home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2131.dms / in.adf / Sick.AMOS / Sick.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1999-09-26  |  1.8 KB  |  47 lines
  1. Rem######################################################### 
  2. Rem#                                                       # 
  3. Rem#  Waynee Software brings you the "SICKNESS SIMULATOR"  # 
  4. Rem#  this is only the second version,  next one will have #   
  5. Rem#  better samples!! I'm lying!!                         # 
  6. Rem#  this prog is (c)Waynee                               #     
  7. Rem######################################################### 
  8. WAYNEE
  9. Procedure WAYNEE
  10. Screen Open 0,100,200,16,Lowres
  11. Rem                                             Break On 
  12. Hide On : Curs Off 
  13. Unpack 7 To 0
  14. Volume 63
  15. Screen Display 0,140,440,640,312
  16. Channel 1 To Screen Display 0
  17. Amal 1,"Move0,-400,200" : Amal On 
  18. Unpack 6 To 1 : Sam Play 9,12,8000 : Sam Play 6,12,7500
  19. Screen Hide 1
  20. Repeat : Until Mouse Click=1 : Sam Play 9,11,7500 : Sam Play 6,11,7700
  21. Screen 0 : Fade 3 : Wait 46 : Wait Vbl : Screen Copy 1 To 0
  22. A=0
  23. Set Rainbow 0,7,64,"(2,1,8)(2,-1,8)","","(2,1,8)(2,-1,8)"
  24. Rainbow 0,4,90,40
  25. Channel 5 To Rainbow 0
  26. Amal 5,"L: For R0=0 To63S2; Let X=R0; For R1=0 To 2;Next R1;Next R0;Jump L"
  27. Amal On 
  28. Fade 6 To 1
  29. Screen Close 1
  30. Do 
  31. Wait Key 
  32. If Key State(80)=True Then Sam Play 15,1,17000+A
  33. If Key State(81)=True Then Sam Play 15,2,14000+A
  34. If Key State(82)=True Then Sam Play 15,3,11000+A
  35. If Key State(83)=True Then Sam Play 15,4,35000+A
  36. If Key State(84)=True Then Sam Play 15,5,10000+A
  37. If Key State(85)=True Then Sam Play 15,6,10000+A
  38. If Key State(86)=True Then Sam Play 15,7,10000+A
  39. If Key State(87)=True Then Sam Play 15,8,11500+A
  40. If Key State(88)=True Then Sam Play 15,9,11000+A
  41. If Key State(89)=True Then Sam Play 15,10,19000+A
  42. If Key State(76)=True Then A=A+500
  43. If Key State(77)=True and A>-6500 Then A=A-500
  44. If Key State(64)=True Then Sam Play 6,11,7500+A : Sam Play 9,11,7800+A
  45. If Key State(68)=True Then Sam Play 9,12,7500+A : Sam Play 6,12,7700+A
  46. Loop 
  47. End Proc