home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Sound / PlayGUI / PlayInfo < prev    next >
Text File  |  2000-01-20  |  2KB  |  96 lines
  1. G4C;PlayINFO by Richard Kapp 1999 ; MUST BE IN THE FIRST(!) LINE
  2. WINBIG 0 0 361 227 "MOD INFO"
  3. wintype 11110000
  4. WINFONT topaz_thin.font 8 000
  5.  
  6.  
  7. xonload
  8.         templ = no
  9.         unit = 0
  10.         
  11.        
  12.         loadimage PLAYGUI:book info Workbench
  13.         guiopen PlayInfo
  14.         image 0 0 info
  15.  
  16. xonclose
  17.         freeimage book
  18.         guiquit PlayInfo
  19.  
  20.  
  21. xBUTTON 240 180 60 15 "OKAY"
  22. freeimage book
  23. guiquit PlayInfo
  24.  
  25. XBUTTON 214 8 20 15 ">"
  26. ++unit
  27. gosub PlayInfo changeunit
  28.  
  29. XBUTTON 190 8 20 15 "<"
  30. --unit
  31. gosub PlayInfo changeunit
  32.  
  33. XTEXTIN 310 8 38 14 "" unit '0' 10
  34. gadid 2
  35. gosub PlayInfo changeunit
  36.  
  37. xRoutine ChangeUnit
  38. ; make sure the unit is 0-255
  39. if $unit > 255
  40.    unit = 0
  41. elseif $unit < 0
  42.    unit = 255
  43. endif
  44.  
  45.  
  46. lvuse PlayInfo 1
  47. lvchange "CLIPS:$unit"
  48. update PlayInfo 2 $unit
  49.  
  50. xBUTTON 240 50 60 15 "LOAD"
  51. ReqFile  -1 -1 300 -30 'Choose file :' LOAD filename ''
  52. if $filename > ''
  53.    lvuse PlayInfo 1
  54.    lvchange $filename
  55.    ; now save it so as to write it to the clipboard
  56.    lvsave 'CLIPS:$unit'
  57. endif
  58.  
  59. xBUTTON 240 70 60 15 "SAVE"
  60. ReqFile  -1 -1 300 -30 'Save as file :' SAVE savename ''
  61. if $savename > ' '
  62.    ifexists file $savename
  63.       ezreq 'File $savename exists.\nOverwrite ?' Overwrite|CANCEL choice
  64.       if $choice = 0
  65.          stop
  66.       endif
  67.    endif
  68.    lvsave $savename
  69. endif
  70.  
  71. XBUTTON 240 90 60 15 "CLEAR"
  72. lvuse PlayInfo 1
  73. lvclear
  74. lvsave 'CLIPS:$unit'
  75.  
  76. XLISTVIEW 13 40 145 170 "" clipline CLIPS:0 10 NUM
  77. gadid 1
  78. say "Narr!"
  79. xBUTTON 240 110 60 15 "EDIT"
  80. if $templ = no
  81. CLI 'C:copy PlayGUI:template.txt ram:t'
  82. CLI 'C:run >NIL: C:ed ram:t/template.txt'
  83. templ = yes
  84. elseif $templ = yes
  85. CLI 'C:run >NIL: C:ed ram:t/template.txt'
  86. endif
  87.  
  88. xBUTTON 240 130 60 15 "HELP"
  89. EZReq "You can write and edit your info via ED and view, save and load it here." "AHA" helpy
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.