egghelp/eggheads community

Topic and 60 min Trigger ...

2004-02-17T12:06:26-04:00

I have Fixed it, it works finde now :>

set mychan #su1c!de
bind pub T|T .set_topic topic_changer
bind pub T|T .start_trigger trigger

#### CHANGER ####
proc topic_changer {nick uhost hand chan text} {
global mychan
set news_txt news.txt
set dateichen [open $news_txt w]
puts $dateichen $text
close $dateichen
if {[onchan Q $mychan]} {
putserv "PRIVMSG Q :SETTOPIC $chan 10,1««« 7#0su1c!de ¬ 7W0ww.7S0u1cide-7C0lan.de 10««« 7•10 »»» 7S0tAy 7a0nD 7t0Alk 7a0Bout 7g0Od 10««« 7•10 »»» 7N0ews:31 $text 10»»»"
}
if {[onchan L $mychan]} {
putserv "TOPIC $mychan :10,1««« 7#0su1c!de ¬ 7W0ww.7S0u1cide-7C0lan.de 10««« 7•10 »»» 7S0tAy 7a0nD 7t0Alk 7a0Bout 7g0Od 10««« 7•10 »»» 7N0ews:31 $text 10»»»"
}
putquick "PRIVMSG $mychan :Successfully changed ..."
}
#### END CHANGER ####

#### Trigger ####
proc trigger {nick host hand chan rest} {
global mychan
timer 60 {
set dateichen [open news.txt r]
gets $dateichen templine
putserv "MODE $mychan -c+m"
putserv "PRIVMSG $mychan :1,0« 12W1,0elcome 12@ 1,012#1,0su1c!de 12C1,0lan 1,0 «» 12W1,0ww.12S1,0u1cide-12C1,0lan.12d1,0e 1,01»"
putserv "PRIVMSG $mychan :1,0« 12(1,0Server12) 0182.96.73.33:27015 12(1,0Hostname12) 1:: #su1c!de's Selbstmord Bunker :: #su1c!de @ QNet ::»"
putserv "PRIVMSG $mychan :1,0« 12(1,0Server-Rankings URL12) 01http://hlstats.Su1cide-Clan.de 12(1,0Forum URL12) 01http://Forum.Su1cide-Clan.de »"
putserv "PRIVMSG $mychan :1,0« 12(1,0Sponsors12)01 12W1,0ww.sund12T1,0echnik.de ¬ 12W1,0ww.rave12S1,0erver.de 12(1,0Partner12)1 12#1dreisam.12c1hiller ¬ 12#1e12X1treme.e12S1ports »"
putserv "PRIVMSG $mychan :1,0« 12(1,0Current News12)01 $templine »"
putserv "MODE $mychan +c-m"
close $dateichen
return 0
}
putserv "PRIVMSG $chan :Trigger geladen... Time: every 60 min"
}

Statistics: Posted by Blade2 — Tue Feb 17, 2004 12:06 pm

Re: Topic and 60 min Trigger ...

2004-02-16T11:37:13-04:00

I think this script didn't work

I think, you should
- give us more details
- ensure that it didn't work

Statistics: Posted by arcane — Mon Feb 16, 2004 11:37 am

Topic and 60 min Trigger ...

2004-02-15T21:07:24-04:00

I think this script didn't work, can anybody help me plz ??

Code:

set mychan #su1c!debind pub T|T ?set_topic topic_changerbind join - * trigger#### CHANGER ####proc topic_changer {nick uhost hand chan text} {global mychan    set news_txt news.txt    set dateichen [open $news_txt w]    puts $dateichen $text    close $dateichenif {[onchan Q $mychan]} {putserv "PRIVMSG Q :SETTOPIC $chan 10,1««« 7#0su1c!de ¬ 7W0ww.7S0u1cide-7C0lan.de 10««« 7•10 »»» 7S0tAy 7a0nD 7t0Alk 7a0Bout 7g0Od 10««« 7•10 »»» 7N0ews:31 $text 10»»»"}if {[onchan L $mychan]} {putserv "TOPIC $mychan :10,1««« 7#0su1c!de ¬ 7W0ww.7S0u1cide-7C0lan.de 10««« 7•10 »»» 7S0tAy 7a0nD 7t0Alk 7a0Bout 7g0Od 10««« 7•10 »»» 7N0ews:31 $text 10»»»"}putquick "PRIVMSG $mychan :Successfully changed ..."}#### END CHANGER ######## Trigger ####proc trigger {nick host hand chan text} {global mychantimer 60 {set news_txt news.txt    set dateichen [open $news_txt r]    gets $dateichen $text    close $dateichenputserv "MODE $mychan -c+m"putserv "PRIVMSG $mychan :1,0« 12W1,0elcome 12@ 1,012#1,0su1c!de 12C1,0lan 1,0 «» 12W1,0ww.12S1,0u1cide-12C1,0lan.12d1,0e 1,01»"putserv "PRIVMSG $mychan :1,0« 12(1,0Server12) 0182.96.73.33:27015 12(1,0Hostname12) 1:: #su1c!de's Selbstmord Bunker :: #su1c!de @ QNet ::»"putserv "PRIVMSG $mychan :1,0« 12(1,0Server-Rankings URL12) 01http://hlstats.Su1cide-Clan.de  12(1,0Forum URL12) 01http://Forum.Su1cide-Clan.de »"putserv "PRIVMSG $mychan :1,0« 12(1,0Sponsors12)01 12W1,0ww.sund12T1,0echnik.de ¬ 12W1,0ww.rave12S1,0erver.de 12(1,0Partner12)1 12#1dreisam.12c1hiller ¬ 12#1e12X1treme.e12S1ports »"putserv "PRIVMSG $mychan :1,0« 12(1,0Current News12)01 $text »"putserv "MODE $mychan +c-m"  } }#### END TRIGGER ####

Statistics: Posted by Blade2 — Sun Feb 15, 2004 9:07 pm