So one day I was just sitting and staring at my calculator and I thought, what a wonderful idea to find cows on my calc! The game will be like the original, unfortunately their website is down right now :-/.
http://findtheinvisiblecow.com/
If you are more interested I am sure there are some video clips on YouTube.
So far the game is going pretty well and one can find a cow based upon the text displayed at the bottom of the screen.

Current Download: https://app.box.com/s/wkry9um357jq1i81r0mv
The newest version will not be available until tomorrow.
Looks great! I can't wait for it to be all done.
My only suggestion is making it compatible using

Code:
:0->Xmin
:1->(delta)X
:Xmax>96->C
Right now I'm debating on wether or not to make it compatible because I just found a neat way to make a menu. There are boxes around two selections, the current selection is surrounded by a black box and the others by a gray box. Works awesomely
Nice work! Reminds me of robotfindschicken - which is a cool game Smile.

I was wondering if you could share with us something that you have learned while coding this game?
Ah of course!
Well first of all, I learned an interesting thing with using the command line(. You can add a number for color as well which is quite handy.
Next, I learned about Strings!
And I hope to create this entire game with no labels, it has been a dream of mine since tifreak told me about his first program.
And updates!
I will now freely share the code, I hope if you have any suggestions you can give them to me. Right now I need a bit of help on detecting the distance of the cursor from the cow.
Here we go!

Code:
:DCS
"933999999993399993A39939393A393333FF330303AF33B3303AA300033A3B43033330000003344330430030030004B39344003003003339993300000000399999993003300039999999333643330999999344446444399999534436634439955555344444439955555553333335555555555555555555555555555555555555"
ZStandard
0->Xmin:20->Xmax
AxesOff:GridOff:BackgroundOff
1->dim(|LCOWS
While 1
ClrDraw
TextColor(Black
While 1
randInt(0,20)->X
randInt(~7,10)->Y
" "->Str8
10->W
DelVar Z
DelVar C
Pt-On(W,Z,3,Black
Repeat K=22 or C
getKey->K
Text(~1,145,1,Str8
If K=0
Then
"Derp
Else
If W<0 or W>20 or Z<~7 or Z>10
Then
Pt-Off(W,Z,3
W+((W<0)*2)-1->W
Z+((Z<0)*2)-1->Z
Pt-On(W,Z,3,Black
Else
If K=21
Then
If W=X and Z=Y
Then
1->C
End
Else
Pt-Off(W,Z,3
W+((K=26)-(K=24))->W
Z+((K=25)-(K=34))->Z
Pt-On(W,Z,3,Black
abs(W-X)->A
abs(Z-Y)->B
If A>=7 and B>=7
Then
"Cow.        "->Str8
Else
If A>=4 and B>=4
Then
"Cow!        "->Str8
Else
If A>=1 and B>=1
Then
"COW!        "->Str8
Else
If A=0 and B=0
"CCCOOOWWW!!!"->Str8

End
End
End
End
End
End
End
If K=22
Then
Disp "Find The Invisible Cow
Disp "By: APotato
Return
Else
ClrDraw
|LCOWS(1)->D
D+1->D
D->|LCOWS(1)
Text(~1,50,5,"Cows Found By You: ",D
End
Line(5,~1,15,~1
Line(6,~1,16,~1
Line(5,~1,6,~1
Line(15,~1,16,~1
Repeat getKey
End
ClrDraw
End
End

And a screenshot to come, some derpy problems to fix right now.
Updates! Added unlockable achievements! The only problem is its easy to hack...
The program is complete! It can be downloaded from here: http://www.cemetech.net/programs/index.php?mode=file&path=/84pcse/basic/games/FindtheInvisibleCow.zip
Nice work! Do you think that you may be adding more options, such as different styles of game play later on? It works pretty well now. Smile
Hmm I wish I could but I don't have any idea, I had an idea of saving up cows to purchase different cursor colors but do you have any? Smile
For the cow currency, you could use a custom list to store the items bought and # of cows, which would also provide a way to save achievements and make them more difficult to hack in.
Just as a tip, when cleaning up the program, if you use a custom list, put SetUpEditor , without an argument, at the end to hide your custom list in the list editor.
ahh, so would that protect the custom list from easy hacking?
No, you need to do something else to help encrypt the contents of the list in order to help protect it, and then reset the list if the data does not match what was saved. Otherwise, lists can be accessed via the List button. For instance, if you could try this when you save the list:


Code:
pi->rand
randL1
cumSum(L1->L1(dim(L1


Then to check:

Code:
If (cumSum(L1)-L1(dim(L1))) != L1(dim(L1
 ;Reset Stuff
pi->rand
L1/rand->L1


There are better ways, but this is a simple method to do. Smile
Have you thought about using some DCSE8.0 libs to add some graphics and such?
Yes Razz I was thinking of having a sprite of a cow pop up and a speech bubble that said "moo"
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement