home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 May / PowerPlay0597.bin / LESER / gti / DEMO13.GTI < prev    next >
Text File  |  1997-01-01  |  779b  |  53 lines
  1. dv-gti-file
  2. #
  3. # Demonstriert das Abspielen von VOC-Dateien
  4. #
  5. # Befehl: vocload / vocloop
  6. # Start : gti demo13.gti
  7. #
  8.  
  9. #
  10. # Zeichensatz und Farbpalette laden
  11. #
  12. loadfont(1,'font51.bfn')
  13. loadpal('porn.pal')
  14. activedpal
  15.  
  16. #
  17. # Text
  18. #
  19. textwide(2)
  20. xytext(1,160,10,'Lets make a little HOUSE Music',1,2)
  21. xytext(1,160,40,'Porn Kings',3,2)
  22. xytext(1,160,70,'Up To No Good',5,2)
  23. xytext(1,160,170,'GTI VOC-DEMO',31,2)
  24.  
  25. #
  26. # Farben 1 - 15 rotieren lassen
  27. #
  28. startrotpal(15)
  29.  
  30. #
  31. # Setze Label für endlosen Rücksprung
  32. #
  33. label(0)
  34.  
  35. #
  36. # Lade VOC-Datei porn2.voc und spiele diese 2 mal ab
  37. #
  38. vocload(1,'porn2.voc')
  39. vocloop(1,2)
  40.  
  41. #
  42. # Lade VOC-Datei porn1.voc und spiele diese 3 mal ab
  43. #
  44. vocload(1,'porn1.voc')
  45. vocloop(1,3)
  46.  
  47. #
  48. # Springe zurück
  49. #
  50. gotolabel
  51.  
  52.  
  53.