Programeren van spelletjes vind ik zelf erg moeilijk, ik heb een spel gemaakt waarbij je het getal moest raden, daar was ik 2 uur mee bezig, maar voor degene die hem wil weten:
Code: Selecteer alles
0 store (->)F
ClrHome
randInt(1,1000) store (->)A
Output(4,4,"GETAL TUSSEN"
Output(5,6,"1-1000"
Pause
ClrHome
Lbl 1
Input "RAAD HET GETAL : ",B
If B>A:Then:Goto 10:Else
If B<A:Then:Goto 11:Else
If B=A:Then:Goto 12
Lbl 10
F+1 store (->)F
randInt(1,4) store (->)I
If I=1:Then:Disp "LAGER":Goto 1:Else
If I=2:Then:Disp "TOO HIGH":Goto 1:Else
If I=3:Then:Disp "HIJ ZIT LAGER":Goto 1:Else
If I=4:Then:Disp "LOWER"
Goto 1
Lbl 11
F+1 store (->)F
randInt(1,4) store (->)J
If J=1:Then:Disp "HOGER":Goto 1:Else
If J=2:Then:Disp "TE LAAG":Goto 1:Else
If J=3:Then:Disp "GO UP":Goto 1:Else
If J=4:Then:Disp "UP UP UP"
Goto 1
Lbl 12
F+1 store (->)F
ClrHome
Output(4,5,"THE END"
Disp "BEURTEN:",F
Pause
ClrHome
If F=15:Then:Output(4,5,"EXCELLENT"
Pause :ClrHome:Else
If 15<F and F<25:Then:Output(4,4,"KAN BETER"
Pause :ClrHome:Else
If F>26:Then:Output(4,5,"VERY BAD"
Pause
F zou eigenlijk theta moeten zijn, maar kan ieder getal wezen,
veel plezier ermee
Als er iets niet klopt stuur mij dan een mailtje