home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2131.dms / in.adf / Sick.Bak / Sick.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1999-09-26  |  1.8 KB  |  46 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#                                                       #     
  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. Screen Display 0,140,440,640,312
  15. Channel 1 To Screen Display 0
  16. Amal 1,"Move0,-400,200" : Amal On 
  17. Unpack 6 To 1 : Sam Play 9,12,8000 : Sam Play 6,12,7500
  18. Screen Hide 1
  19. Repeat : Until Mouse Click=1 : Sam Play 9,11,7500 : Sam Play 6,11,7700
  20. Screen 0 : Fade 3 : Wait 46 : Wait Vbl : Screen Copy 1 To 0
  21. A=0
  22. Set Rainbow 0,7,64,"(2,1,8)(2,-1,8)","","(2,1,8)(2,-1,8)"
  23. Rainbow 0,4,90,40
  24. Channel 5 To Rainbow 0
  25. Amal 5,"L: For R0=0 To63S2; Let X=R0; For R1=0 To 2;Next R1;Next R0;Jump L"
  26. Amal On 
  27. Fade 6 To 1
  28. Screen Close 1
  29. Do 
  30. Wait Key 
  31. If Key State(80)=True Then Sam Play 15,1,17000+A
  32. If Key State(81)=True Then Sam Play 15,2,14000+A
  33. If Key State(82)=True Then Sam Play 15,3,11000+A
  34. If Key State(83)=True Then Sam Play 15,4,35000+A
  35. If Key State(84)=True Then Sam Play 15,5,10000+A
  36. If Key State(85)=True Then Sam Play 15,6,10000+A
  37. If Key State(86)=True Then Sam Play 15,7,10000+A
  38. If Key State(87)=True Then Sam Play 15,8,11500+A
  39. If Key State(88)=True Then Sam Play 15,9,11000+A
  40. If Key State(89)=True Then Sam Play 15,10,19000+A
  41. If Key State(76)=True Then A=A+500
  42. If Key State(77)=True and A>-9000 Then A=A-500
  43. If Key State(64)=True Then Sam Play 6,11,7500+A : Sam Play 9,11,7800+A
  44. If Key State(68)=True Then Sam Play 9,12,7500+A : Sam Play 6,12,7700+A
  45. Loop 
  46. End Proc