Service.tcl

[StareX]

Hello,
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...

[zNigel-]

"booohooow"

He gives it to trusted people only. So everyone doesnt have it.

[StareX]

Ehh.. and xela guard script?

I have the script but i have bug on the "mytrigger" :S
can somebody can give me a fixed script? :S

If you wonder my problem is on:

Code: Select all

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

:S

[daveyw]

Your topic title is "Service.tcl", a few posts later you're pasting some lines of xela.
We can't help you in this topic with xela.

About service.tcl; this is extremely private, and you will never get it. Keep on dreaming

[StareX]

Ok... so i will type on help.

[Cristian]

nice a secret script what does it do, what makes it so special? So us mortals can relate