egghelp/eggheads community

raw 307 return

2016-05-15T02:31:18-04:00

Yes, to "fix" this you could add a timer to allow the 307 get triggered first.

how do you do that ? on tcl there is no "goto" command.. do I need use while or separate the proc to calling after that.. which one is the best practise between of this 2 below ?

1. .....

Code:

set tgchan1                                      "#jakarta" set tgcmdrankx1                          "!trf*" set tgflagsrankx1                                "m|m" bind pubm $tgflagsrankx1 "$tgchan1 %$tgcmdrankx1" bankd bind raw -|- "307" whoisbalas proc whoisbalas {from key text} { global chkreg botnick chanset nick [lindex $text 1] if {$nick == $botnick} { return 0 } putlog "NICK $nick IS IDENTIFY..!" if {[info exists chkreg($nick)]} {         set chkreg($nick) "0"         } response nick chan} proc whoisdia {text} {     putserv "WHOIS $text $text" } proc bankd {nick host hand chan text} {   whoisdia $nick $chan} proc response {nick arg} { global chkregprivmsg $arg "Debug: $chkreg($nick)" if {$chkreg($nick) != "0"} (    tggamemsg1 "$nick, please identify before transfer"                                 unset chkreg($nick)                                 return } else { tggamemsg1 "$nick identified" }    return 0 }

or

2. .....

Code:

set tgchan1                                      "#jakarta" set tgcmdrankx1                          "!trf*" set tgflagsrankx1                                "m|m" bind pubm $tgflagsrankx1 "$tgchan1 %$tgcmdrankx1" bankd bind raw -|- "307" whoisbalas proc whoisbalas {from key text} { global chkreg botnick chanset nick [lindex $text 1] if {$nick == $botnick} { return 0 } putlog "NICK $nick IS IDENTIFY..!" if {[info exists chkreg($nick)]} {         set chkreg($nick) "0"         } } proc whoisdia {text} {     putserv "WHOIS $text $text" } proc bankd {nick host hand chan text} {  global chkreg whoisdia $nick privmsg $arg "Debug: $chkreg($nick)"  utimer 5 [checked $nick]} proc checked {arg} {global chkregif {$chkreg($arg) != "0"} (    tggamemsg1 "$arg, please identify before transfer"                                 unset chkreg($arg)                                 return } else { tggamemsg1 "$arg identified" } }

Statistics: Posted by gembels — Sun May 15, 2016 2:31 am

raw 307 return

2016-05-13T10:22:14-04:00

Yes, to "fix" this you could add a timer to allow the 307 get triggered first.

Statistics: Posted by caesar — Fri May 13, 2016 10:22 am

raw 307 return

2016-05-13T09:10:27-04:00

@SpiKe^^

i try to put

Code:

if {![info exists chkreg($nick)]} {        set chkreg($nick) "1"        }

its always saying "please identify before transfer" at the first then if they try second time it work.. you have any idea why ?

I think its because "whoisdia $nick" didn't response earlier than [info exists chkreg($nick)] ?

Statistics: Posted by gembels — Fri May 13, 2016 9:10 am

raw 307 return

2016-05-09T09:53:56-04:00

thank you so much for your help SpiKe.. silly me

Statistics: Posted by gembels — Mon May 09, 2016 9:53 am

raw 307 return

2016-05-08T10:52:09-04:00

Found one typo on this line...

Code:

if {$chkreg($nick) != "0"} (    tggamemsg1 "$nick, please identify before transfer"

You used an open parenthesis '(' where you need an open brace '{'

Statistics: Posted by SpiKe^^ — Sun May 08, 2016 10:52 am

raw 307 return

2016-05-08T07:59:51-04:00

Hi,

the result always "$nick, please identify before transfer" and "$nick identified"

can someone explain to me what happen please ?

Thanks in advance

Code:

set tgchan1                                      "#jakarta"set tgcmdrankx1                          "!trf*"set tgflagsrankx1                                "m|m"bind pubm $tgflagsrankx1 "$tgchan1 %$tgcmdrankx1" bankdbind raw -|- "307" whoisbalasproc whoisbalas {from key text} {global chkreg botnickset nick [lindex $text 1]if {$nick == $botnick} { return 0 }putlog "NICK $nick IS IDENTIFY..!"if {[info exists chkreg($nick)]} {        set chkreg($nick) "0"        }}proc whoisdia {text} {    putserv "WHOIS $text $text"}proc bankd {nick host hand chan text} {global chkregwhoisdia $nickprivmsg $chan "Debug: $chkreg($nick)"if {$chkreg($nick) != "0"} (    tggamemsg1 "$nick, please identify before transfer"                                unset chkreg($nick)                                return } else { tggamemsg1 "$nick identified" }return 0}

Statistics: Posted by gembels — Sun May 08, 2016 7:59 am