twenty lines?....far too many ;D

Author

Message

Mentor

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 5th Oct 2002 16:05

Link

and why the five commands a line limit?, and external media?, HUH!, beginers!, (LOL just kidding), but you can get a working program in FAR less than twenty lines, heres one thats an oldie, note that it uses a goto to keep the code small, goto is not normaly accepted by the code community, it`s considerd bad form, so sue me ;D

+ Code Snippet

start:
randomize timer():count=0:cls:number=rnd(99)+1:print "I am thinking of a number between 1 and 100":print "I will give you ten tries to get it, what do you think it is?"
do
goagain:
input a:count=count+1: if a>100 or anumber then print a;" is higher than the number I was thinking of, try another number please"
if a=number then print "you where correct ";a;" is the number I was thinking of, you got it in ";count;" tries, get ready to go again": wait 4000:goto start
if count>10 then print "sorry!, you took more than ten tries to find the number, try another number, you may be lucky this time": wait 5000:goto start
loop

Back to top

Profile PM

Mentor

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 3rd Nov 2002 21:00

Link

duh!, somehow this has got shredded in the posting, it will not run and I don`t keep my source more than a few days, sorry

Mentor.

Back to top

Profile PM

Richard Davey

Retired Moderator

21

Years of Service

User Offline

Joined: 30th Apr 2002

Location: On the Jupiter Probe

Posted: 5th Nov 2002 02:40

Link

No offence but that would have been a quite dull program, even if it was less than 20 lines, compared to virtually every other contribution here so far

Cheers,

Rich

"Gentlemen, we are about to short-circuit the Universe!"
DB Team / Atari ST / DarkForge / Retro Gaming

Back to top

Profile PM Email Website

Delta

21

Years of Service

User Offline

Joined: 15th Nov 2002

Location:

Posted: 15th Nov 2002 21:21

Link

bahh.. you guessmaster has no attatude :p mine sounds right stupid (though dosn't work propely

)

set window on
set display mode 450,260,16 : ink RGB(0,255,0),1 : cls
start:
Input "select a number from 0 to ",m# : a# = rnd(m#) : g# = 1 : print "Guess my number"
do
Input "Guess ",g# : cls : n# = n#+1

if g# = a# then goto win : if g# < a# then print "Higher fool!" : if g# > a# then print "Lower fool!" : if g# > m# then print "That number is haigher than YOUR set maximum, you stupid idiot!"

loop

win:
cls : if n# = 1 then gg$ = " guess" else gg$ = " guesses" : Print "Damh you boy! you got my number in ",n#,gg$
print "untill next time fool!"

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / twenty lines?....far too many ;D