home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / comms / other / televideo / arexx / televideo.amirx < prev    next >
Text File  |  1998-05-09  |  925b  |  2 lines
  1. /* Optimized with RexxOpt 1.4 */
  2. OPTIONS RESULTS;PARSE ARG NuovaPagina Dest .;ADDRESS TELEVIDEO.1 GETPAGESTEM Pagina NuovaPagina;IF Dest ~="";THEN DO;ADDRESS AMIRC.1 "ECHO P=«Televideo» Spedisco pagina" Pagina.NUM "a" Dest;ADDRESS AMIRC.1 "RAW PRIVMSG" Dest ":+- << TELEVIDEO by PJ >> ------ Pag." Pagina.NUM "-+";END;ELSE ADDRESS AMIRC.1 SAY "+- << TELEVIDEO by PJ >> ------ Pag." Pagina.NUM "-+";Ciclo=2;Flood=1;DO WHILE Ciclo<=Pagina.0;IF Dest ~="";THEN ADDRESS AMIRC.1 "RAW PRIVMSG" Dest ":|"||LEFT(Pagina.Ciclo,40)||" |";ELSE ADDRESS AMIRC.1 SAY "|"||LEFT(Pagina.Ciclo,40)||" |";Ciclo=Ciclo+1;Flood=Flood+1;IF Flood//3=0 THEN ADDRESS COMMAND "C:Wait 1";IF Flood//6=0 THEN ADDRESS COMMAND "C:Wait 2";IF Flood//12=0 THEN ADDRESS COMMAND "C:Wait 4";END;IF Dest ~="";THEN ADDRESS AMIRC.1 "RAW PRIVMSG" Dest ":+-----------------------------------------+";ELSE ADDRESS AMIRC.1 SAY "+-----------------------------------------+"