home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CASIOCOL.ZIP / KRILE1C.ZIP / SOURCE.ZIP / SIREN.ASI < prev    next >
Text File  |  1997-11-28  |  357b  |  29 lines
  1. gosub siren:
  2. end
  3.  
  4. siren:
  5. rem muahahaha, Siren sounds :-)
  6. siren=1
  7. gosub siren_out:
  8. siren=0
  9. gosub siren_out:
  10. siren=1
  11. gosub siren_out:
  12. siren=0
  13. gosub siren_out:
  14. return
  15.  
  16. siren_out:
  17. rem if were to go up, set siren=1 else
  18. rem set siren=0 to go down :)
  19. for x=1 to 2000
  20. if siren=1 then
  21. z=x
  22. else
  23. z=2000
  24. z=z-x
  25. endif
  26. sound z,1
  27. next x
  28. return
  29.