egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-12-01T11:25:37-04:00 https://forum.eggheads.org/app.php/feed/topic/6273 2003-12-01T11:25:37-04:00 2003-12-01T11:25:37-04:00 https://forum.eggheads.org/viewtopic.php?p=30937#p30937 <![CDATA[reverse script]]>
Tzion just want directions, so I just type a quick-comin idea :)

Statistics: Posted by CrazyCat — Mon Dec 01, 2003 11:25 am

]]> 2003-12-01T06:23:10-04:00 2003-12-01T06:23:10-04:00 https://forum.eggheads.org/viewtopic.php?p=30926#p30926 <![CDATA[reverse script]]>
use string functions:

Code: 

bind pub - "!reverse" reverseproc reverse {nick uhost handle chan args} {   if {[string length $args] == 0} { return 0 }   set new ""   for { set len 0} {$len < [string length $args]} {incr len} {      set pos {[string length $args] - $len}      append new [string range $pos 1]   }   putserv "PRIVMSG $chan :$new"}
Not verified, but might be near of the solution
Please be careful of using string and list commands. Do not use string commands on lists or vice versa. Read http://www.peterre.com/characters.html for more info on this.

In case you didn't know:
If the last formal argument has the name args, then a call to the procedure may contain more actual arguments than the procedure has formals. In this case, all of the actual arguments starting at the one that would be assigned to args are combined into a list (as if the list command had been used); this combined value is assigned to the local variable args.
So, in your example, you are using the Tcl "string" command on $args, which is actually a list. :wink:

Code: 

bind pub - "!reverse" reverseproc reverse {nick uhost hand chan args} {        if {[llength $args] == 0} { return }        # join converts a list to a string        set in [join $args]        set out ""        # loop through the given text backwards, appending each        # character to $out.        for {set x [expr [string length $in] - 1]} {$x >= 0} {incr x -1} {                append out [string index $in $x]        }        # say the reversed string on channel        puthelp "PRIVMSG $chan :$out"}
8)

Statistics: Posted by Souperman — Mon Dec 01, 2003 6:23 am

]]> 2003-12-01T04:38:37-04:00 2003-12-01T04:38:37-04:00 https://forum.eggheads.org/viewtopic.php?p=30924#p30924 <![CDATA[reverse script]]>

Code: 

bind pub - "!reverse" reverseproc reverse {nick uhost handle chan args} {   if {[string length $args] == 0} { return 0 }   set new ""   for { set len 0} {$len < [string length $args]} {incr len} {      set pos {[string length $args] - $len}      append new [string range $pos 1]   }   putserv "PRIVMSG $chan :$new"}
Not verified, but might be near of the solution

Statistics: Posted by CrazyCat — Mon Dec 01, 2003 4:38 am

]]> 2003-11-30T19:24:51-04:00 2003-11-30T19:24:51-04:00 https://forum.eggheads.org/viewtopic.php?p=30916#p30916 <![CDATA[reverse script]]> i'm new to eggdrop tcl. i have a script in mirc scripting that is reversing the word... like: hello-->olleh.
can you give me direction on how to build script like that in eggdrop tcl, i think it's loops, but can you give example on that?
thanks.

Statistics: Posted by Guest — Sun Nov 30, 2003 7:24 pm

]]>