egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-06-28T14:31:03-04:00 https://forum.eggheads.org/app.php/feed/topic/12065 2006-06-28T14:31:03-04:00 2006-06-28T14:31:03-04:00 https://forum.eggheads.org/viewtopic.php?p=64403#p64403 <![CDATA[Who can make this easier?]]>

Code: 

bind pubm - * reset:flagproc reset:flag {nick uhost hand chan arg} {  set reset [lrange [split $arg] 0 2]  set fd [open $::flagfile r+]  set case 0  if {[string match -nocase {text 1} $reset] || [string match -nocase {text 2} $reset]} {set case 1}  if {[string match -nocase {text 8} $reset] || [string match -nocase {text 9} $reset]} {set case 2}  if {$case == 1 || $case ==2} {      while {![eof $fd]} {         lappend list [gets $fd]      }      if {$case == 1} {set list [lreplace $list 0 0 [list 3 3]]}      if {$case == 2} {set list [lreplace $list 0 0 [list 5 5]]}         seek $fd 0         puts -nonewline $fd [join $list \n]         close $fd        return 0   }}

Statistics: Posted by darton — Wed Jun 28, 2006 2:31 pm

]]> 2006-06-27T07:20:27-04:00 2006-06-27T07:20:27-04:00 https://forum.eggheads.org/viewtopic.php?p=64350#p64350 <![CDATA[Who can make this easier?]]> Look, this part

Code: 

bind pubm - * reset:flag      while {![eof $fd]} {         lappend list [gets $fd]      }      set list [lreplace $list 0 0 [list 3 3]]     seek $fd 0     puts -nonewline $fd [join $list \n]     close $fd     return 0     }
is repeated 2 more times. Only the if-query is different. And now my question is whether I really must repeat the following part after each if-query.

Code: 

      while {![eof $fd]} {         lappend list [gets $fd]      }      set list [lreplace $list 0 0 [list 3 3]]     seek $fd 0     puts -nonewline $fd [join $list \n]     close $fd     return 0
Only this line is different after the if-queries: "set list [lreplace $list 0 0
  • ] "

Statistics: Posted by darton — Tue Jun 27, 2006 7:20 am

]]> 2006-06-25T12:15:51-04:00 2006-06-25T12:15:51-04:00 https://forum.eggheads.org/viewtopic.php?p=64310#p64310 <![CDATA[Who can make this easier?]]> I made a script very circumstantially I think. There are definitely several lines which are unnecessary. Maybe somebody can make this more easier for me:

Code: 

bind pubm - * reset:flagproc reset:flag {nick uhost hand chan arg} {  set reset [lrange [split $arg] 0 2]  set reset [stripcodes bcruag $reset]  set fd [open $::flagfile r+]  if {[string match -nocase {text 1} $reset] || [string match -nocase {text 2} $reset]} {      while {![eof $fd]} {         lappend list [gets $fd]      }      set list [lreplace $list 0 0 [list 3 3]]     seek $fd 0     puts -nonewline $fd [join $list \n]     close $fd     return 0     }  if {[string match -nocase {text 3} $reset] || [string match -nocase {text 4} $reset] || [string match -nocase {text 5} $reset] || [string match -nocase {text 6} $reset] || [string match -nocase {text 7} $reset]} {      while {![eof $fd]} {         lappend list [gets $fd]      }      set list [lreplace $list 0 0 [list 4 4]]     seek $fd 0     puts -nonewline $fd [join $list \n]     close $fd     return 0     }  if {[string match -nocase {text 8} $reset] || [string match -nocase {text 9} $reset]} {      while {![eof $fd]} {         lappend list [gets $fd]      }      set list [lreplace $list 0 0 [list 5 5]]          seek $fd 0     puts -nonewline $fd [join $list \n]     close $fd     return 0     } }
This script opens a textfile and change two numbers. But it should only change something if there are special texts written in the channel.

Statistics: Posted by darton — Sun Jun 25, 2006 12:15 pm

]]>