home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 36 / Mail_Madness_36_2002-01-03_Telenova_Side_D.d64 / reactiontest_mrq (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  51 lines
  1. 0 rem useless tool by mr.quark/ooo 2001
  2. 10 print"[147]":poke53280,6:poke53281,6
  3. 20 print"         reactiontester deluxe          "
  4. 25 print"     specially done for ooo-partys      "
  5. 30 print"         hit any key to start"
  6. 40 poke198,0:wait198,1
  7. 50 input"[147]type your handle please:";a$
  8. 60 ifa$="mac"thenprint"do you wanna dance tonight?"
  9. 61 ifa$="scorpe"thenprint"beat the poschman!"
  10. 62 ifa$="satan klaus"thenprint"when will you release roy sheldon?"
  11. 63 ifa$="zealot"thenprint"paintalot :)"
  12. 64 ifa$="katakis"thenprint"alles guell!"
  13. 65 ifa$="mr.tec"thenprint"plasmamen!"
  14. 66 ifa$="tec"thenprint"plasmamen!"
  15. 67 ifa$="awar"thenprint"mailmadness rulez! yeah crack the md!"
  16. 68 ifa$="mr.museum"thenprint"mailmadness & packed radio rulez"
  17. 69 ifa$="lord nikon"thenprint"hi dude!"
  18. 70 ifa$="catweazle"thenprint"hi fettkiesel!"
  19. 71 ifa$="murphy"thenprint"she's eating shit! bahhh!"
  20. 72 ifa$="floyd"thenprint"hi old friend! willow rulez!"
  21. 73 ifa$="bugjam"thenprint"do you remember symek 97? :)"
  22. 74 ifa$="ninja"thenprint"the dreams, always fresh and cool!"
  23. 76 ifa$="dizzy devil"thenprint"how about some roy sheldon code? ;)"
  24. 77 ifa$="doc bacardi"thenprint"always fresh and cool!"
  25. 80 print"now please press the spacebar if the    "
  26. 90 print"screen will flash"
  27. 100 fort= 0to 3000:nextt
  28. 110 print"[147]"
  29. 120 gosub 200
  30. 130 forb=0to400
  31. 135 getb$:ifb$=""thennextb
  32. 140 gosub 200
  33. 141 forc=0to400
  34. 142 getc$:ifc$=""thennextc
  35. 150 gosub 200
  36. 151 ford=0to400
  37. 152 getd$:ifd$=""thennextd
  38. 160 print"[147] your results ";a$
  39. 165 print"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]"
  40. 166 printtab(int(b/10))"[218]"
  41. 167 printtab(int(c/10))"[218]"
  42. 168 printtab(int(d/10))"[218]"
  43. 169 print"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  44. 170 print"[194]good[194]??[194]no comment[194]     very stoned   [194]"
  45. 175 print" hit a key to restart"
  46. 180 poke198,0:wait198,1
  47. 190 run
  48. 200 t=int(200*rnd(6))
  49. 201 fora=0to(t*10):nexta
  50. 202 poke53281,1:poke53281,6:return
  51.