IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN DO
IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN DO
SAY 'No tritonrexx.library found !'
SAY 'Available on Aminet !'
EXIT(10)
END
END
Say 'RexxReqTools.library found'
IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
SAY 'No tritonrexx.library found !'
SAY 'Available on Aminet !'
EXIT(10)
END
END
rtv=TritonRexxVersion()
Say 'TritonRexx.library v. 'rtv' found'
IF ~SHOW('LIBRARIES','rexxtricks.library') THEN DO
IF ~ADDLIB('rexxtricks.library',2,-30,0) THEN DO
SAY 'No Rexxtricks.library found !'
Say 'Available on Aminet !'
EXIT(10)
END
END
Say 'RexxTricks.library found'
IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
SAY 'No Rexxsupport.library available '
EXIT(10)
END
END
Say 'RexxSupport.library found'
kick = GETENV('Kickstart')
vewb = GETENV('Workbench')
lang = GETENV('Language')
Hippo='Work:Hippoplayer/HiP'
nohip=0
disbld=0
IF ~SHOWLIST('P','HIPPOPLAYER') THEN
NoHip=1
tv=TritonVersion()
SIGNAL ON break_c
SIGNAL ON failure
SIGNAL ON halt
SIGNAL ON ioerr
SIGNAL ON syntax
minimum = 0
maximum = 64
wert = 64
bold='1b'x'[1m'
app = TR_CREATEAPP('TRCA_Name Emergency-Break',
'TRCA_LongName "Emergency-Break in scripts with errors"',
'TRCA_Info "Tries to shut everything down.."',
'TRCA_Version 1.2',
'TRCA_Release 1',
'TRCA_Date 8.11.95',
'TAG_END')
IF app ~= '00000000'x THEN DO
appname = 'HiP-ARexx-Play'
applongname = 'HiP-ARexx-Play - (c)1995 by Marcel Doering'
appinfo = 'ARexx-Player using Hippoplayer'
appversion = '2.0'
apprelease = '2'
appdate = '11.3.1996'
clipname = ' HiP-ARexx-Play '
clipinfo = ' ARexx-Player using Hippoplayer '
app = TR_CREATEAPP('TRCA_Name' '"'appname'"',
'TRCA_LongName' '"'applongname'"',
'TRCA_Info' '"'appinfo'"',
'TRCA_Version' '"'appversion'"',
'TRCA_Release' '"'apprelease'"',
'TRCA_Date' '"'appdate'"',
'TAG_END')
IF NoHip=1 THEN
notrunning = rtezrequest('Attention !'||'0a'x||'You have to start HiP if you want to use H.A.P. !','Okay','Attention !','rtez_flags=ezreqf_centertext','rtez_defaultresponse = 0',)
ELSE
NOP
SayVol = FALSE
HelpBool = 0
windowtags = WindowID(1),
QuickHelpOn(HelpBool),
WindowFlags(TRWI_Backfill TRBF_SHINE),
WindowBackFillFB,
WindowTitle(appname appversion),
BeginMenu("Project"),
MenuItem("A_About",10),
MenuItem("History",15) ItemBarlabel,
MenuItem("I_HiP-Status",11) ItemBarlabel,
MenuItem("Y_Iconify",14) ItemBarlabel,
MenuItemC("U_QuickHelp",103),
MenuItemC("V_Print Volume",110) ItemBarlabel,
MenuItem("Q_Quit HiP & H.A.P.",12),
BeginMenu('H.A.P. Control'),
MenuItem('L_Load & Play',1),
MenuItem('D_Add module',7),
MenuItem('P_Pause',2),
MenuItem('>_Pattern >>',3),
MenuItem('<_Pattern <<',4),
MenuItem('Z_Zip',5),
MenuItem('H_Hide',9),
MenuItem('W_Samples Window',8),
MenuItem('T_Status...',11),
MenuItem('E_Eject',6),
NamedFrameBox('Volume'),
'VertGroupA',
SliderGadget(0,maximum-minimum,wert+minimum,1),
'HorizGroupA',
'Space',
'VertGroupA',
'SpaceS',
Button("Start HiP !",13) QuickHelp('Start HiP, using defined path'),
Button("Load & Play",1) QuickHelp('Load & Play a module'),
Button("Add module",7) QuickHelp('Add an module to the Mod-List of HiP'),
Button("Pause",2) QuickHelp('Pause the module HiP is playing'),
Button("Pattern >>",3) QuickHelp('Jump pattern forward of module'),
Button("Pattern <<",4) QuickHelp('Jump pattern reverse of module'),
Button("Zip",5) QuickHelp('Zip HiP-window'),
'EndGroup',
'VertGroupA',
'SpaceS',
Button("Hide",9) QuickHelp('Hide HiP-window'),
Button("Samples Window",8) QuickHelp('Open samples window of HiP'),
Button("Status...",11) QuickHelp('Get some informations'),
Button("Eject",6) QuickHelp('Eject playing module'),
Button("Quit HiP & H.A.P.",12) QuickHelp('Quit Hippoplayer & HiP-ARexx-Play'),
CALL TR_EASYREQUEST(app,'ATTENTION !'||'0a'x||'HippoPlayer is not running,'||'0a'x||'You can start it from HiP-ARexx-Play or directly, but'||'0a'x||'Don`t use HiP-ARexx-Play`s other functions without HiP running !','I`ll do that','TREZ_LockProject' C2D(window) 'TAG_END')
RETURN
END
GetInfos:
options results
address 'HIPPOPLAYER'
get play
if result == 1 then do
play = " HiP is playing "
end
else do
play = " HiP is not playing "
end
get name
NAME = " Loaded module: " result " "
get fnam
FNAM = " Full name of the loaded module: " result " "
get type
TYPE = " Type of the loaded module: " result " "
get size
SIZE = " Size of the loaded module: " result " "
get comm
COMM = " Filecomment for the loaded module: " result " "
get curr
CURR = " Number of the loaded module: " result " "
DROP PLAY NAME FNAM TYPE SIZE COMM PR0T CURR CSNG NSNG CSPO MSPO CFIL NFIL CNAM KIKK WBVE CITY DURA DURT
RETURN
starthip:
Say 'Hippopath is:' Hippo
if ~exists(hippo) then do
notthere=rtezrequest('Couldn`t find HippoPlayer as 'hippo','||'0a'x||' edit the script at line 53 to enter your path !','Ups..','Couldn`t start HiP !','rtez_flags=ezreqf_centertext','rtez_defaultresponse = 0',)
return
end
Say 'Trying to start HiP...'
ADDRESS COMMAND Hippo
delay(50)
note = rtezrequest('Due to some unfixable problems, '||'0a'x||'HiP should be started before H.A.P. !'||'0a'x||'Otherwise some functions, especially the status-req'||'0a'x||'might not work properly !'||'0a'x||'Though you can try it..:)','Hmm..','Please Note !','rtez_flags=ezreqf_centertext','rtez_defaultresponse = 0',)
IF SHOWLIST('P','HIPPOPLAYER') THEN
call engads
else
notthere=rtezrequest('Couldn`t find HippoPlayer`s ARexx-Port.,'||'0a'x||'I`ve no idea, why this happens.','?!?','Couldn`t find HiP-Port !','rtez_flags=ezreqf_centertext','rtez_defaultresponse = 0',)
