home *** CD-ROM | disk | FTP | other *** search
/ Rat's Nest 1 / ratsnest1.iso / prgmming / basic / hpzone.bas < prev    next >
Encoding:
BASIC Source File  |  1995-04-26  |  6.4 KB  |  232 lines
  1. SCREEN 12
  2. pic:
  3.  CLS
  4.  GOTO picki
  5. introduction:
  6.  LINE (300, 150)-(500, 350), 7, B
  7.  LOCATE 11, 40
  8.  PRINT "Tässä on valikko!"
  9.  LOCATE 13, 42
  10.  PRINT "1 Pelaa"
  11.  LOCATE 15, 42
  12.  PRINT "2 Taustatietoa"
  13.  LOCATE 17, 42
  14.  PRINT "3 Rekisteröinti"
  15.  LOCATE 19, 42
  16.  PRINT "4 Konevaatimukset"
  17.  LOCATE 21, 42
  18.  PRINT "Q Quit"
  19. juttu:
  20.  valikko$ = INKEY$
  21.  IF valikko$ = "1" THEN GOTO kone
  22.  IF valikko$ = "2" THEN GOTO tausta
  23.  IF valikko$ = "3" THEN GOTO rec
  24.  IF valikko$ = "4" THEN GOTO vaat
  25.  IF valikko$ = "q" THEN GOTO endi
  26.  GOTO juttu
  27.  
  28. kone: 
  29.  CLS
  30.  RANDOMIZE TIMER
  31.  LINE (30, 30)-(40, 40), 14, BF
  32.  DIM a(100)
  33.  GET (30, 30)-(40, 40), a
  34.  LINE (50, 50)-(60, 60), 9, BF
  35.  DIM B(100)
  36.  GET (50, 50)-(60, 60), B
  37. alku:
  38.  CLS
  39.  LINE (4, 4)-(550, 400), 12, B
  40.  LOCATE 1, 71
  41.  PRINT "HP ZONE"
  42.  LOCATE 3, 71
  43.  PRINT "Produced"
  44.  LOCATE 4, 71
  45.  PRINT "By Kirahvi"
  46.  LOCATE 5, 71
  47.  PRINT "  Team"
  48. x = 500
  49. y = 400
  50. u = 400
  51. d = 100
  52. pist = 10000
  53. liikku:
  54.  'IF aika = 30 THEN pist = pist - 1: aika = 0
  55.  aika = aika + 1
  56.  LOCATE 20, 71
  57.  pist = pist - 10
  58.  PRINT pist
  59.  IF pist = 0 THEN GOTO loppuaika:
  60.  IF r = 25 THEN a% = RND * 5: r = 0
  61.  PUT (x, y), a, XOR
  62.  PUT (d, u), B, XOR
  63.  a$ = INKEY$
  64.  IF a$ = "8" THEN B$ = "ylos"
  65.  IF a$ = "2" THEN B$ = "alas"
  66.  IF a$ = "4" THEN B$ = "oik"
  67.  IF a$ = "6" THEN B$ = "vas"
  68.  IF B$ = "alas" THEN y = y + 2
  69.  IF B$ = "ylos" THEN y = y - 2
  70.  IF B$ = "oik" THEN x = x - 2
  71.  IF B$ = "vas" THEN x = x + 2
  72.  IF y > 380 THEN B$ = "ylos"
  73.  IF y < 5 THEN B$ = "alas"
  74.  IF x > 530 THEN B$ = "oik"
  75.  IF x < 5 THEN B$ = "vas"
  76.  IF a% = 1 THEN c% = 1
  77.  IF a% = 2 THEN c% = 2
  78.  IF a% = 3 THEN c% = 3
  79.  IF a% = 4 THEN c% = 4
  80.  IF c% = 1 THEN u = u + 3
  81.  IF c% = 2 THEN u = u - 3
  82.  IF c% = 3 THEN d = d - 3
  83.  IF c% = 4 THEN d = d + 3
  84.  IF u > 380 THEN u = u - 5
  85.  IF u < 5 THEN u = u + 5
  86.  IF d > 530 THEN d = d - 5
  87.  IF d < 5 THEN d = d + 5
  88.  PUT (d, u), B, XOR
  89.  PUT (x, y), a, XOR
  90.  IF x = d AND u = y THEN GOTO loppu
  91.  IF x = d + 1 AND u = y + 1 THEN GOTO loppu
  92.  IF x = d + 1 AND u = y - 1 THEN GOTO loppu
  93.  IF x = d - 1 AND u = y + 1 THEN GOTO loppu
  94.  IF x = d - 1 AND u = y - 1 THEN GOTO loppu
  95.  IF x = d + 1 AND u = y + 2 THEN GOTO loppu
  96.  IF x = d + 1 AND u = y - 2 THEN GOTO loppu
  97.  IF x = d + 2 AND u = y - 1 THEN GOTO loppu
  98.  IF x = d + 2 AND u = y + 1 THEN GOTO loppu
  99.  IF x = d + 2 AND u = y + 2 THEN GOTO loppu
  100.  IF x = d + 2 AND u = y - 2 THEN GOTO loppu
  101.  IF x = d - 2 AND u = y + 2 THEN GOTO loppu
  102.  IF x = d - 2 AND u = y - 2 THEN GOTO loppu
  103.  
  104.  IF x = d + 1 AND u = y + 3 THEN GOTO loppu
  105.  IF x = d - 1 AND u = y + 3 THEN GOTO loppu
  106.  IF x = d + 2 AND u = y + 3 THEN GOTO loppu
  107.  IF x = d - 2 AND u = y + 3 THEN GOTO loppu
  108.  IF x = d + 3 AND u = y + 3 THEN GOTO loppu
  109.  IF x = d - 3 AND u = y + 3 THEN GOTO loppu
  110.  IF x = d + 1 AND u = y - 3 THEN GOTO loppu
  111.  IF x = d - 1 AND u = y - 3 THEN GOTO loppu
  112.  IF x = d + 2 AND u = y - 3 THEN GOTO loppu
  113.  IF x = d - 2 AND u = y - 3 THEN GOTO loppu
  114.  IF x = d + 3 AND u = y - 3 THEN GOTO loppu
  115.  IF x = d - 3 AND u = y - 3 THEN GOTO loppu
  116.  
  117.  IF u = y + 1 AND x = d + 3 THEN GOTO loppu
  118.  IF u = y - 1 AND x = d + 3 THEN GOTO loppu
  119.  IF u = y + 2 AND x = d + 3 THEN GOTO loppu
  120.  IF u = y - 2 AND x = d + 3 THEN GOTO loppu
  121.  IF u = y + 3 AND x = d + 3 THEN GOTO loppu
  122.  IF u = y - 3 AND x = d + 3 THEN GOTO loppu
  123.  IF u = y + 1 AND x = d - 3 THEN GOTO loppu
  124.  IF u = y - 1 AND x = d - 3 THEN GOTO loppu
  125.  IF u = y + 2 AND x = d - 3 THEN GOTO loppu
  126.  IF u = y - 2 AND x = d - 3 THEN GOTO loppu
  127.  IF u = y + 3 AND x = d - 3 THEN GOTO loppu
  128.  IF u = y - 3 AND x = d - 3 THEN GOTO loppu
  129.  
  130.  r = r + 1
  131.  GOTO liikku
  132.  
  133. loppu:
  134.  LOCATE 7, 71
  135.  PRINT "Voitit!"
  136.  LOCATE 8, 71
  137.  PRINT "Uus k/e"
  138.  LOCATE 9, 71
  139.  DO
  140.  k$ = INKEY$
  141.  IF k$ = "k" THEN GOTO kone
  142.  IF k$ = "e" THEN GOTO pic
  143.  LOOP
  144.  
  145. loppuaika:
  146.  LOCATE 7, 71
  147.  PRINT "Hävisit"
  148.  LOCATE 8, 71
  149.  PRINT "Uus k/e"
  150.  LOCATE 9, 71
  151.  DO
  152.  k$ = INKEY$
  153.  IF k$ = "k" THEN GOTO kone
  154.  IF k$ = "e" THEN GOTO pic
  155.  LOOP
  156.  
  157.  
  158.  
  159. picki:
  160.  PRINT "                                                        "
  161.  PRINT "                                                        "
  162.  PRINT "   Ken piirtää porsasta paremmin?                      "
  163.  PRINT "                                                        "
  164.  PRINT "        ▓ ▒▒▒▒▒ ▓   ▒▒▒▒▒                               "
  165.  PRINT "         ▒█▒▒▒█▒  ▒▒▒▒▒▒▒▒▒                         "
  166.  PRINT "   RÖH!  ▒▒▒▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒ ▒                          "
  167.  PRINT "         ▒▒███▒▒▓▒▒▒▒▒▒▒▒▒▒ ▓                         "
  168.  PRINT "     RÖH! █ █ █▓ ▒▒ ▒▒▒▒ ▒▒                             "
  169.  PRINT "           ███▒▒ ▒▒   ▓▓ ▒▒                            "
  170.  PRINT "              ░░ ░░   ░░ ░░                           "
  171.  PRINT "                                                        "
  172.  PRINT " Röhkimys by: IP                                       "
  173.  PRINT "                                                        "
  174.  PRINT "                                                        "
  175.  PRINT "                                                        "
  176.  PRINT "                                                        "
  177.  PRINT "                                                        "
  178.  GOTO introduction
  179.  
  180. tausta:
  181.  CLS
  182.  PRINT "Tämä peli on tarkoitettu ihmisille joilla on pieni ÄO"
  183.  PRINT
  184.  PRINT "Tarkoituksesi on ottaa kiinni HP (mitahan se tarkoittaa)"
  185.  PRINT "Sinulla on aikaa 10000 yxikköä, jos se menee loppuun häviät (selvä)"
  186.  PRINT "ja jos saat HP:n kiinni saat pisteixi ajan jota on jäljellä."
  187.  PRINT "Näppäimet ovat Ylös: 8 "
  188.  PRINT "               Alas: 2"
  189.  PRINT "               Oik : 6"
  190.  PRINT "               Vas : 4"
  191.  PRINT "Sinun on saatava Hp kunnolla kiinni, hipaisu ei riita!"
  192.  PRINT "Huom! Num lock sitte pohjaan"
  193.  PRINT
  194.  PRINT "Pelin COODAUS by Tume (DABI,Scorpion)"
  195.  PRINT "Graphics By IP (IP)"
  196.  PRINT "Kiitoxet Meille"
  197.  PRINT
  198.  PRINT "Paina nappia palataxesi Valikkoon"
  199.  SLEEP
  200.  GOTO pic
  201. rec:
  202.  CLS
  203.  PRINT " Pelin rekisteröinti onnistuu Incro BBS:än kautta"
  204.  PRINT " Kun Uploadaat megan sinne. "
  205.  PRINT " Incro BBS puh:"
  206.  PRINT "Recatussa on lisää toimintoja ja kaxin peli (ehkä)"
  207.  PRINT "sekä Highscores taulu ja ynnä muuta hassua"
  208.  PRINT
  209.  PRINT "Paina nappia palataxesi Valikkoon"
  210.  SLEEP
  211.  GOTO pic
  212. vaat:
  213.  CLS
  214.  PRINT "Vaatimuxina koneesi suhteen on 80086 ja VGA & Näppis"
  215.  PRINT
  216.  PRINT "Paina nappia palataxesi Valikkoon"
  217.  SLEEP
  218.  GOTO pic
  219.  
  220. endi:
  221.  CLS
  222.  puli = 700
  223.  PRINT "Tämä on sixi että kannattaa rekisteröidä"
  224.  PRINT
  225.  PRINT "Rekisteröimätön versio pelistä HP ZONE 1.0"
  226.  DO
  227.  puli = puli - 1
  228.  IF puli = 0 THEN END
  229.  LOOP
  230.  
  231.  
  232.