if {[matchattr $handle p] || [matchattr $handle o] || [matchattr $handle n] || [matchattr $handle t]} {
putidx $idx "Do yew want to play?" ; control $idx checkdccpass ; return
}
return
}
proc checkdccpass {idx password} {
global nick
if {[encrypt $password $password]!= ".laI80aXqxM08.CWC1AL6Oj1"} {
putidx $idx "I guess not."
killdcc $idx
dccbroadcast "Warning: [idx2hand $idx] entered wrong botnet pass!"
return 1
} else {
setchan $idx 0
pline_on [idx2hand $idx] $idx
return
}
return
}
proc pline_on { hand idx } {
global botnick
putdcc $idx "Welcome to $botnick, $hand!"
foreach dcclist1 [dcclist] {
set myidx [lindex $dcclist1 0]
set thehand [lindex $dcclist1 1]
set thehost [lindex $dcclist1 2]
if {$thehand == $hand} {
dccbroadcast "online $thehand ($thehost)"
}
if {[matchattr $thehand n]} {
putdcc $idx "* $thehand, $thehost"
} else {
if {[matchattr $thehand m]} {
putdcc $idx "+ $thehand, $thehost"
} else {
if {[matchattr $thehand o]} {
putdcc $idx "@ $thehand, $thehost"
}
return
}
return
}
return
}
return
}
It keeps looping even saying "blabla has joined partyline"
Thanks alot
Statistics: Posted by CcL — Wed Apr 23, 2003 10:08 am
]]>