Code: Select all
#TRAX regler script av Nyhusern
proc say {who what} {
puthelp "PRIVMSG $who :$what"
}
proc notice {who what} {
puthelp "NOTICE $who :$what"
}
proc cleanarg {arg} {
set temp ""
for {set i 0} {$i < [string length $arg]} {incr i} {
set char [string index $arg $i]
if {($char != "\12") && ($char != "\15")} {
append temp $char
}
}
set temp [string trimright $temp "\}"]
set temp [string trimleft $temp "\{"]
return $temp
}
bind pub - !regler pub:regler
proc pub:regler {nick uhost hand chan args} {
global botnick
set args [split [cleanarg $args]]
if {[llength $args]<1} {
privmsg $nick "------\002Trax REGLER!\002-------------------------------------------"
privmsg $nick "Regler for vår kanal"
privmsg $nick "1. Aldri reklamer for andre kanaler(Dette vil ende med ban)"
privmsg $nick "2. Aldri spørr etter idle deals (Dette kan ende med ban)"
privmsg $nick "3. Aldri flood kanalen (Dette vil ende med ban kanskje til og med PERM ban)"
privmsg $nick "4. Aldri mas på en @(OP). Vi vil svare deg når vi kan (Dette kan ende med kick evt ban)"
privmsg $nick "5. Oppfør deg til all tid, og prøv å hold språk bruken til et "OK" nivå (Om ikke kan det ende med kick evt ban)"
privmsg $nick "Det var det! Ha det hyggelig på vår IRC kanal MVH: TRAX Admins / Crew"
privmsg $nick "---------------------------------------------------------"
privmsg $nick "\002Husk at vi tar disse reglene veldig seriøst, og både oppfordrer og regner med at du vil følge dem!\002"
privmsg $nick "------- skriv \002 !regler\002 for å få opp reglene engang til ----------"
#end
}
}
Yes the text is on norwegian, so if you need to understand what ive have wrote just tell me and i'll redo it with english language.