/**************************************************************************\ $VER: Updater (v32 to v34), v3.4 by Dotoran (2-Jul-94) \**************************************************************************/ options results;tr=transmit;se=sendstring;addkeys ('Y');tr '#1pfiles:LogActs3/LogActs3.Purge}' se 'c9Deleting c6contents of cb"caPFiles:LogActs/ActsHelp/cb" c6directory...' address command 'DELETE pfiles:LogActs3/ActsHelp/#?';tr 'cdDonec6!' if exists('pfiles:LogActs3/_Default') then address command 'DELETE pfiles:LogActs3/_Default' call open(f1,'pfiles:logacts3/activities');pr.0='!GENERAL!';act.0='j|j|GENERAL HELP|j' tot=readln(f1);do i=1 to tot;act.i=upper(readln(f1));pr.i='!GENERAL!';end i call close(f1);se 'f1n9c6Updating cb'tot' cfHelp Filesc6: cd[cb';do i=1 to tot;se '*' if index(act.i,'& SAM')~=0 then do;pr.i='Activity_Monitor' ;iterate i;end if index(act.i,'ASSASSIN')~=0 then do;pr.i='Assassin' ;iterate i;end if index(act.i,'AUTOMESS')~=0 then do;pr.i='Auto_Message' ;iterate i;end if index(act.i,'BBS_STATS')~=0 then do;pr.i='BBS_Stats' ;iterate i;end if index(act.i,'CALL_LOG')~=0 then do;pr.i='Call_Logger' ;iterate i;end if index(act.i,'& AC')~=0 then do;pr.i='CNet_AC_Command' ;iterate i;end if index(act.i,'& AG')~=0 then do;pr.i='CNet_AG_Command' ;iterate i;end if index(act.i,'& AM')~=0 then do;pr.i='CNet_AM_Command' ;iterate i;end if index(act.i,'& CR')~=0 then do;pr.i='CNet_CR_Command' ;iterate i;end if index(act.i,'& INF')~=0 then do;pr.i='CNet_INF_Command' ;iterate i;end if index(act.i,'& ST')~=0 then do;pr.i='CNet_ST_Command' ;iterate i;end if index(act.i,'TOTALS')~=0 then do;pr.i='CNet_Totals' ;iterate i;end if index(act.i,'& T')~=0 then do;pr.i='CNet_T_Command' ;iterate i;end if index(act.i,'RANDCOMDEF')~=0 then do;pr.i='Computer_Definitions' ;iterate i;end if index(act.i,'DIRTY_JOKE')~=0 then do;pr.i='Dirty_Jokes_Database' ;iterate i;end if index(act.i,'DIRTY_LIMS')~=0 then do;pr.i='Dirty_Limmericks' ;iterate i;end if index(act.i,'DSE')~=0 then do;pr.i='Space_Empire_DSE' ;iterate i;end if index(act.i,'EMPIRE|')~=0 then do;pr.i='Empire' ;iterate i;end if index(act.i,'EXCALIBUR')~=0 then do;pr.i='Excalibur' ;iterate i;end if index(act.i,'& FPY')~=0 then do;pr.i='Flux_Point_Yank' ;iterate i;end if index(act.i,'GAMEROOM')~=0 then do;pr.i='Game_Room' ;iterate i;end if index(act.i,'GLOBAL-WAR')~=0 then do;pr.i='Global_War_CNet' ;iterate i;end if index(act.i,'GLOBALWAR')~=0 then do;pr.i='Global_War_Paragon' ;iterate i;end if index(act.i,'HACKER')~=0 then do;pr.i='Hacker' ;iterate i;end if index(act.i,'H&S.BOOT')~=0 then do;pr.i='Hack_&_Slash' ;iterate i;end if index(act.i,'NDLE_BARS')~=0 then do;pr.i='Handle_Bars' ;iterate i;end if index(act.i,'KINGMAIN')~=0 then do;pr.i='King_Of_The_Mountain' ;iterate i;end if index(act.i,'TOP10LISTS')~=0 then do;pr.i='Lettermans_Top_Ten' ;iterate i;end if index(act.i,'MOTEL!')~=0 then do;pr.i='Murder_Motel' ;iterate i;end if index(act.i,'LINE_FOOT')~=0 then do;pr.i='Online_Football' ;iterate i;end if index(act.i,'NTASY-STAR')~=0 then do;pr.i='Phantasy_Star' ;iterate i;end if index(act.i,'RANDQUOTE')~=0 then do;pr.i='Random_Quotes' ;iterate i;end if index(act.i,'STOCK-MARK')~=0 then do;pr.i='Stock_Market' ;iterate i;end if index(act.i,'SUGBOX')~=0 then do;pr.i='Suggestion_Box' ;iterate i;end if index(act.i,'SYSOPS')~=0 then do;pr.i='SysOp_List' ;iterate i;end if index(act.i,'TRADEWARS!')~=0 then do;pr.i='Trade_Wars' ;iterate i;end if index(act.i,'TREKQUOTES')~=0 then do;pr.i='Trek_Quotes' ;iterate i;end if index(act.i,'USER_LOGS')~=0 then do;pr.i='User_Logs' ;iterate i;end if index(act.i,'VOTE')~=0 then do;pr.i='Voting_Check_New' ;iterate i;end if index(act.i,'WARBOTZ')~=0 then do;pr.i='War_Botz!' ;iterate i;end if index(act.i,'WOFORTUNE')~=0 then do;pr.i='Wheel_Of_Fortune' ;iterate i;end if index(act.i,'& WHO')~=0 then do;pr.i='Who_Long_Listing' ;iterate i;end if index(act.i,'& WH|')~=0 then do;pr.i='Who_Normal_Listing' ;iterate i;end if index(act.i,'& W|')~=0 then do;pr.i='Who_Short_Listing' ;iterate i;end if index(act.i,'YOUNG-GUNS')~=0 then do;pr.i='Young_Guns' ;iterate i;end if index(act.i,'YUPPIEWARS')~=0 then do;pr.i='Yuppie_Wars' ;iterate i;end end i;tr 'cd]n2cbCopying c6files...n1@4';gen.='';gen=0;do i=0 to tot;parse var act.i j'|'j'|'a'|'j tr 'c6Activity cf#c9: cf'i;tr ' c6Activityc9: ce'a;tr ' cbCopy c6Fromc9: c3"c2PFiles:LogActs3/PreSets/'pr.i'c3"' tr ' cbCopy c6Toc9: cb"caPFiles:LogActs3/ActsHelp/help.0.'i'cb"';se ' cfStatusc9: ' address command 'COPY pfiles:logacts3/presets/'pr.i' pfiles:logacts3/actshelp/help.0.'i if pr.i='!GENERAL!' & i>0 then do;gen=gen+1;gen.gen=a;end;tr 'cdOKc6!n1';end i;tr 'c6The cf!GENERAL! ceHelp cbFile c6was used for:n1' do i=1 to gen;z='cd';if i%2=i/2 then z='cb';tr z||gen.i;end i;se 'n1c6Press c9any key c6to continue...g1' tr 'n2cfAdding cb"caMore? Bitcb" c6& cb"caTimescb" c6to each activity...n1@4' call open(f1,'pfiles:LogActs3/Activities','r');totacts=readln(f1) do i=1 to totacts;a=readln(f1);t=time('n');time=left(t,2)substr(t,4,2)right(t,2) b=strip(substr(a,9),'t','x')'1|x';act.i=date('s')||time||b;tr 'cd'a'n1ce'act.i'n1';end i;call close(f1) call open(f1,'pfiles:LogActs3/Activities','w');call writeln(f1,totacts);se 'cbSavingc6...' do i=1 to totacts;call writeln(f1,act.i);end i;tr 'cdDonec6!n1';call close(f1);tr 'c6Update c9completedc6!' /** Last Edited: 2-Jul-94 *************************************************\ \****************************************** FRONTIERS BBS (716)/823-9892 **/