Service.tcl

Do you have script in mind but no ability to make it, type in what it should do, and you might be lucky.

Service.tcl

Postby StareX » Wed Aug 12, 2009 12:42 pm

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 :o

Thanks... :)
StareX
 

Re: Service.tcl

Postby zNigel- » Wed Aug 12, 2009 12:54 pm

"booohooow"

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

Re: Service.tcl

Postby StareX » Wed Aug 12, 2009 1:00 pm

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
StareX
 

Re: Service.tcl

Postby daveyw » Wed Aug 12, 2009 1:06 pm

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 :D
daveyw
 

Re: Service.tcl

Postby StareX » Wed Aug 12, 2009 1:07 pm

Ok... so i will type on help.
StareX
 

Re: Service.tcl

Postby Cristian » Wed Aug 12, 2009 4:01 pm

nice a secret script ;) what does it do, what makes it so special? So us mortals can relate ;)
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar


Return to TCL Scripting Request

Who is online

Users browsing this forum: No registered users and 0 guests

cron