Topic and 60 min Trigger ...

[Blade2]

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

Code: Select all

set mychan #su1c!de
bind pub T|T ?set_topic topic_changer
bind 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 $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 text} {
global mychan
timer 60 {
set news_txt news.txt
    set dateichen [open $news_txt r]
    gets $dateichen $text
    close $dateichen
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 $text »"
putserv "MODE $mychan +c-m" 
	 } 
}
#### END TRIGGER ####

[arcane]

I think this script didn't work

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

[Blade2]

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"
}