/* Check if Prowizard pops up during ripping and automates save module and continue! */ /* Another nice script done for SOAMC= ENDGAME July 2018 by Stone Oakvalley Studios */ filename=ARG(1) ADDRESS command fileptr='infile' path='PIPE:mega' idcount=1 founder=0 /* Detections performed */ /* 1: "Taratata !!" comes = save module */ /* 2: "Nothing recognized at all..." comes = no modules found at the end of buffer = quit and die */ 'clip STRING='filename /* Put entire filename into clipboard */ /* Now loop until either requesters appear or Pro-Wizard autoexits = also detected, script ends */ DO FOREVER ADDRESS COMMAND 'show w >PIPE:mega' SAY 'Detection activated' 'waitframes 50' founder=0 /* First make sure "Pro-Wizard v2.2" is found as a window. When its not there, its probably AutoExit and we shall quit too */ IF OPEN(fileptr,path,'R') THEN DO DO WHILE ~Eof(fileptr) in_string=Readln(fileptr) IF FIND(in_string,'Pro-Wizard') THEN DO founder=1 END END CALL CLOSE(fileptr) IF founder=0 THEN DO SAY "Pro-Wizard ended automatically..." EXIT END END IF founder=1 THEN DO /* Start the window scan a second time */ 'show w >PIPE:mega' 'waitframes 50' IF OPEN(fileptr,path,'R') THEN DO DO WHILE ~Eof(fileptr) in_string=Readln(fileptr) IF FIND(in_string,'Taratata') THEN DO singlefile=filename"."idcount idcount=idcount+1 "clip STRING="singlefile /* Put unique filename into clipboard */ SAY "Module Found, saving as: "singlefile 'fakekey s RAMIGA' /* Press the SAVE button */ 'waitframes 10' 'fakekey lshift right' /* Make sure we clear file requester properly */ 'waitframes 10' 'fakekey x RAMIGA' /* Clear the filerequester first */ 'waitframes 10' 'fakekey v RAMIGA' /* Paste the save filename */ 'waitframes 10' 'fakekey return' /* Chooses the path part of original filename */ 'waitframes 10' 'fakekey return' /* The filename is now in input path + modified filename, so save it now! */ 'waitframes 10' END IF FIND(in_string,'Nothing recognized') THEN DO /* Nothing found in entire scan, so quit and die */ SAY 'no more modules' 'fakekey return' 'waitframes 10' EXIT /* Fully Exit the arexx and batch file scripts now */ END END CALL CLOSE(fileptr) END END END