home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / comms / other / televideo / arexx / tv2irc_button < prev   
Text File  |  1998-05-09  |  2KB  |  60 lines
  1. /*
  2.  *  Script Arexx di esempio per Televideo
  3.  *  
  4.  *      Scritto da Piergiorgio Ghezzo
  5.  *
  6.  *
  7.  *  Il seguente script trasmette una pagina nel canale corrente di AmIRC.
  8.  *  Se non e' selezionata una pagina viene trasmessa quella attualmente
  9.  *  caricata.
  10.  *
  11.  *  Sintassi:
  12.  *
  13.  *     RUN >NIL: RX TV2IRC_Button %P
  14.  *
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. PARSE ARG Port Dest .
  20.  
  21. ADDRESS(Port)
  22.  
  23. GETPAGESTEM Pagina
  24.  
  25. /*** La variabile Pagina.NUM ora contiene il numero della pagina caricata ***/
  26. /*** La variabile Pagina.0 contiene invece il numero di linee             ***/
  27. /*** Il testo della pagina e' contenuto nello stem Pagina.x               ***/
  28.  
  29. /*** Ora mando il contenuto della pagina su IRC ***/
  30.  
  31. IF Dest ~= ""
  32.    THEN DO
  33.         ADDRESS AMIRC.1 "ECHO P=«Televideo» Spedisco pagina" Pagina.NUM "a" Dest
  34.         ADDRESS AMIRC.1 "RAW PRIVMSG" Dest ":+- << TELEVIDEO by PJ >> ------ Pag." Pagina.NUM "-+"
  35.         END
  36.    ELSE ADDRESS AMIRC.1 SAY "+- << TELEVIDEO by PJ >> ------ Pag." Pagina.NUM "-+"
  37.  
  38. Ciclo = 2
  39. Flood = 1
  40.  
  41. DO WHILE Ciclo <= Pagina.0
  42.  
  43.    IF Dest ~= ""
  44.       THEN ADDRESS AMIRC.1 "RAW PRIVMSG" Dest ":|"||LEFT(Pagina.Ciclo,40)||" |"
  45.       ELSE ADDRESS AMIRC.1 SAY "|"||LEFT(Pagina.Ciclo,40)||" |"
  46.  
  47.    Ciclo = Ciclo + 1
  48.  
  49.    /*** Con questi ritardi evito le uscite per flood ***/
  50.    Flood = Flood + 1
  51.    IF Flood //  3 = 0 THEN ADDRESS COMMAND "C:Wait 1"
  52.    IF Flood //  6 = 0 THEN ADDRESS COMMAND "C:Wait 2"
  53.    IF Flood // 12 = 0 THEN ADDRESS COMMAND "C:Wait 4"
  54.    END
  55.  
  56.  
  57. IF Dest ~= ""
  58.    THEN ADDRESS AMIRC.1 "RAW PRIVMSG" Dest ":+-----------------------------------------+"
  59.    ELSE ADDRESS AMIRC.1 SAY "+-----------------------------------------+"
  60.