home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / nz18.dms / nz18.adf / AmigaBASIC / Mr.Pod < prev    next >
Text File  |  1993-12-03  |  4KB  |  146 lines
  1. SCREEN 1,320,240,5,1
  2. WINDOW 20,"Look,Jump,Laugh,Talk,Smell",(0,0)-(300,200),8,1
  3. SAY TRANSLATE$ (" ")
  4. COLOURS:
  5.  PALETTE 0,0,0,0         'BLACK
  6.  PALETTE 1,1,1,1         'WHITE
  7.  PALETTE 2,0,0,1         'BLUE
  8.  PALETTE 3,.1,.5,1       'LIGHT BLUE
  9.  PALETTE 4,.33,.87,0     'LIGHT GREEN
  10.  PALETTE 5,.73,1,0       'LIME
  11.  PALETTE 6,0,1,0         'GREEN
  12.  PALETTE 7,1,0,0         'RED - MOUTH
  13.  PALETTE 8,1,.4,.4       'CHERRY RED - NOSE
  14.  PALETTE 9,1,.8,.5
  15.  PALETTE 10,1,1,.13      'YELLOW
  16.  PALETTE 11,.7,.3,0      'BROWN
  17.  COLOR 6,6:CLS
  18.  
  19. SKY:
  20.  LINE (0,0)-(300,40),3,BF:COLOR 1,3
  21.  FOR CLOUDS=1 TO 15
  22.   W=INT(RND*300):V=INT(RND*40)
  23.   FOR F=1 TO 5:Q=INT(RND*40)+10:P=Q/2
  24.    LINE (W,V)-(W-Q,V):LINE (W,V)-(W+Q,V):V=V-1
  25.   NEXT F
  26.  NEXT CLOUDS
  27.  
  28. DRAWPOD:
  29.  BODY:
  30.   CIRCLE (150,120),35,9,,,1.3:PAINT (150,120),9:LINE (123,120)-(177,130),9,BF
  31.   CIRCLE (150,130),27,2,3.14,0,1:LINE (123,130)-(177,130),2:PAINT (150,140),2
  32.  LEGS:
  33.   LINE (139,145)-(130,170),2,BF:LINE (161,145)-(170,170),2,BF
  34.  FEET:
  35.   CIRCLE (135,173),6,0,,,.6:PAINT (135,173),0
  36.   CIRCLE (165,173),6,0,,,.6:PAINT (165,173),0
  37.    LACES:
  38.     CIRCLE (131,168),3,1,,,.2:CIRCLE (139,168),3,1,,,.2
  39.     LINE (131,170)-(139,166),1
  40.     CIRCLE (161,168),3,1,,,.2:CIRCLE (169,168),3,1,,,.2
  41.     LINE (161,170)-(169,166),1
  42.  ARMS:
  43.   COLOR 9,3
  44.   LINE (170,105)-(190,115):LINE (170,115)-(182,121)
  45.   LINE (190,115)-(195,130):LINE (182,121)-(186,130)
  46.   LINE (195,130)-(186,130):PAINT (190,128),9
  47.  
  48.   LINE (130,105)-(110,115):LINE (130,115)-(118,121)
  49.   LINE (110,115)-(105,130):LINE (118,121)-(114,130)
  50.   LINE (105,130)-(114,130):PAINT (110,128),9
  51.  HANDS:
  52.   FOR F=0 TO 2
  53.    LINE (105+F,130)-(104+F,135):LINE (113+F,130)-(114+F,135)
  54.    LINE (109+F,130)-(109+F,135):LINE (189+F,130)-(189+F,135)
  55.    LINE (185+F,130)-(184+F,135):LINE (193+F,130)-(195+F,135)
  56.   NEXT F
  57.  
  58.  
  59.  BELT:
  60.   LINE (123,132)-(177,136),11,BF
  61.   CIRCLE (150,134),5,10,,,.6:LINE (150,132)-(150,136),10
  62.   LINE (149,134)-(155,134),10
  63.  EYES:
  64.   CIRCLE (140,100),6,3,,,1.3:PAINT (140,100),3
  65.   CIRCLE (160,100),6,3,,,1.3:PAINT (160,100),3
  66.   CIRCLE (140,100),6,0,,,1.3:CIRCLE (160,100),6,0,,,1.3
  67.   FOR F=0 TO 1:CIRCLE (140,100),F,0:CIRCLE (160,100),F,0:NEXT F
  68.  NOSE:
  69.   CIRCLE (150,108),6,8,,,1.3:PAINT (150,108),8
  70.  MOUTH:
  71.   FOR F=10 TO 13:CIRCLE (150,122),F,7,,,.2:NEXT F
  72.  
  73. Loop:
  74.  COLOR 0,6:LOCATE 24,1:PRINT "                                        "
  75.  LOCATE 24,1:INPUT " Mr. Pod can ";i$
  76.  LOCATE 23,1:PRINT STRING$(80," ");
  77.  i$=UCASE$(i$)
  78.  IF i$="LOOK"  THEN GOSUB LOOK:  GOTO Loop
  79.  IF i$="JUMP"  THEN GOSUB JUMP:  GOTO Loop
  80.  IF i$="LAUGH" THEN GOSUB LAUGH: GOTO Loop
  81.  IF i$="TALK"  THEN GOSUB TALK:  GOTO Loop
  82.  IF i$="SMELL" THEN GOSUB SMELL: GOTO Loop
  83.  IF i$="BYE"   THEN SYSTEM
  84.  IF i$="" THEN LOCATE 23,1:PRINT " Type a word to do or BYE to quit": GOTO Loop
  85.  LOCATE 23,1:PRINT " No, Mr Pod. cannot ";i$
  86. GOTO Loop
  87.  
  88. LOOK:
  89.  FOR M=0 TO 2:FOR F=0 TO 1:CIRCLE (140+M,100),F,0:CIRCLE (140+M,100),2,3
  90.   CIRCLE (160+M,100),F,0:CIRCLE (160+M,100),2,3
  91.  NEXT F,M
  92.  FOR M=2 TO -2 STEP -1:FOR F=0 TO 1
  93.   CIRCLE (140+M,100),F,0:CIRCLE (140+M,100),2,3
  94.   CIRCLE (160+M,100),F,0:CIRCLE (160+M,100),2,3
  95.  NEXT F,M
  96.  FOR M=-2 TO 0:FOR F=0 TO 1
  97.   CIRCLE (140+M,100),F,0:CIRCLE (140+M,100),2,3
  98.   CIRCLE (160+M,100),F,0:CIRCLE (160+M,100),2,3
  99.  NEXT F,M
  100.  
  101.  FOR M=0 TO 3:FOR F=0 TO 1
  102.   CIRCLE (140,100+M),F,0:CIRCLE (140,100+M),2,3
  103.   CIRCLE (160,100+M),F,0:CIRCLE (160,100+M),2,3
  104.  NEXT F,M
  105.  FOR M=3 TO -3 STEP -1:FOR F=0 TO 1
  106.   CIRCLE (140,100+M),F,0:CIRCLE (140,100+M),2,3
  107.   CIRCLE (160,100+M),F,0:CIRCLE (160,100+M),2,3
  108.  NEXT F,M
  109.  FOR M=-3 TO 0:FOR F=0 TO 1
  110.   CIRCLE (140,100+M),F,0:CIRCLE (140,100+M),2,3
  111.   CIRCLE (160,100+M),F,0:CIRCLE (160,100+M),2,3
  112.  NEXT F,M
  113. RETURN
  114.  
  115. JUMP:
  116.  FOR F=0 TO 40:SCROLL (100,83-F)-(200,182-F),0,-1:SOUND (F*20)+200,.1:NEXT F
  117.  FOR F=40 TO 0 STEP -1:SCROLL (100,83-F)-(200,182-F),0,1
  118.  SOUND (F*20)+200,.1:NEXT F
  119. RETURN
  120.  
  121. LAUGH:
  122.  GOSUB OPENMOUTH
  123.  SAY TRANSLATE$ ("HA HA HA")
  124.  GOSUB CLOSEMOUTH
  125. RETURN
  126.  
  127. TALK:
  128.  GOSUB OPENMOUTH:SAY TRANSLATE$ ("HOW ARE YOU?"):GOSUB CLOSEMOUTH
  129. RETURN
  130.  
  131. SMELL:
  132.  FOR G=1 TO 2
  133.   FOR F=6 TO 8:CIRCLE (150,108),F,8,,,1.3:NEXT F
  134.   FOR F=8 TO 4 STEP -1:CIRCLE (150,108),F,9,,,1.3:NEXT F
  135.   FOR F=4 TO 6:CIRCLE (150,108),F,8,,,1.3:NEXT F
  136.  NEXT G
  137. RETURN
  138. OPENMOUTH:
  139.  FOR F=10 TO 13:CIRCLE (150,122),F,9,,,.2:NEXT F
  140.  FOR F=13 TO 15:CIRCLE (150,122),F,7,,,.2:NEXT F
  141. RETURN
  142. CLOSEMOUTH:
  143.  FOR F=13 TO 15:CIRCLE (150,122),F,9,,,.2:NEXT F
  144.  FOR F=10 TO 13:CIRCLE (150,122),F,7,,,.2:NEXT F
  145. RETURN
  146.