Where i can have r0t3n script you know his service script for TCL :S
I have a bot of TCL and i need the script :S
Please can someone give me that script? all have it no fair

Thanks...

# -- command mytrigger
proc command:mytrigger { command nickname hostname handle channel arguments } {
global botnick botname
global lastnick lastchan lastargs lastcmd lasttrig
array set triggers {
"1" {$} "2" {!} "3" {?} "4" {.} "5" {-}
"6" {²} "7" {%} "8" {&} "9" {*} "10" {:} "11" {~} "12" {@} "13" {€} "14" {+} "15" {°} "16" {`} "17" {µ} "18" {ƒ} "19" {†} "20" {™} "21" {^} "22" {/}
}
if {![info exists triggers([string range [lindex [split $arguments] 0] 1 end])]} {
if {[llength [set trigger [getuser $handle XTRA trigger]]] < 1} {
set trigger "[string trim $::protection::settings::trigger] \{default\}"
}
putserv "[getuser [nick2hand $lastnick] XTRA methode] $nickname :Current personal trigger is: $trigger"
putserv "[getuser [nick2hand $lastnick] XTRA methode] $nickname :Please use: $lasttrig \037?#id?\037"
set list ""
set id 0
while {$id < 22} {
incr id 1
lappend list "#$id ($triggers($id))"
}
putserv "[getuser [nick2hand $lastnick] XTRA methode] $nickname :Available triggers are: [join $list ", "]"
return
}
setuser $handle XTRA trigger $triggers([string range [lindex [split $arguments] 0] 1 end])
putserv "[getuser [nick2hand $lastnick] XTRA methode] $nickname :Your personal trigger has been successfully set to: [getuser $handle XTRA trigger]"
}
Return to TCL Scripting Request
Users browsing this forum: No registered users and 3 guests