Results 1 to 3 of 3

Thread: verify script

  1. #1
    Junior Member
    Join Date
    Jun 2007
    Posts
    41
    Rep Power
    0

    Default verify script

    Am aceste 2 scripturi :

    Code:
    bind bot -|- lastinfo           b:bind:bot:lastinfo
    
    proc b:bind:bot:lastinfo {from cmd arg} {
    	global settings botnick
    	
    	set chan [string tolower [lindex $arg 0]]
    	set x    "[split [lindex $arg 1]] [split [lindex $arg 2]] [split [lindex $arg 3]] [split [lindex $arg 4]]"
    	
    	if { [string equal $settings(homechan) $chan]} {return}
    	
    	set text  ""
    	set valid ""
    	
    if {![validchan $chan]} {if { [stats:channel -exists $chan]} {
    	if { [stats:channel -get $chan purgewhom] != ""} {set text "$chan [stats:channel -get $chan purgetime] [stats:channel -get $chan purgewhom] [stats:channel -get $chan purgewhy]"; set valid -purge}
    		} 
    	} {
    	if {[channel get $chan suspended]} {set text "$chan" ; set valid -suspended} {set text "$chan"; set valid -valid}
    	}
    	
    	if {[llength $text]} {putbot $from "lastinfo:reply $x $settings(suppchan) $botnick $valid $text"}
    putlog "verify from $from"
    
    }
    putlog "Verify Client Bot Script loaded"
    Si al doilea este :

    Code:
    a:command -add verify   pub:verify   1728 000 v
    
    bind bot -|- lastinfo:reply     b:bind:bot:lastinfo:reply
    
    proc pub:verify {hand chan args x mix} {
    	global settings  botnick
    	
    	set chan [string tolower $chan]
        	set nick [lindex $x 0]
    	
    	if { [string equal $settings(homechan) $chan]} {puthelp "PRIVMSG $settings(homechan) :$nick USAGE: !verify #channel"; return}
    	set ask 0
    	if {![validchan $chan]} { 
    		set ask 1
    		if { [stats:channel -exists $chan]} {  
    			if { [stats:channel -get $chan purgewhom] != ""} {
    puthelp "PRIVMSG $settings(homechan) :$nick \0034$chan\003 has been purged: \0032[join [ctime [stats:channel -get $chan purgetime]]]\003 by: \0032[stats:channel -get $chan purgewhom]\003 with reason: \0032[stats:channel -get $chan purgewhy]\003"}
    			} else {a:tell $x 238}
    	} else {
    puthelp "PRIVMSG $settings(homechan) :$nick \0034$chan\003 is a valid channel which i'm on"}
    	if {$ask} {putallbots "lastinfo $chan $x"}
    	return ".."
    }
    
    
    proc b:bind:bot:lastinfo:reply {from cmd arg} {
    global settings
    
    	set arg [split $arg]	
    	set botchan [lindex $arg 4]
    	set bnick 	[lindex $arg 5]
    	set what    [lindex $arg 6]
    	set chan    [lindex $arg 7]
    	if {[string equal -nocase $what -purge]} {
    	set time    [join [ctime [lindex $arg 8]]]
    	set by      [lindex $arg 9]
    	set reason  [lrange $arg 10 end]
    }
    if {[string equal -nocase $what -suspended]} {
    puthelp "PRIVMSG $settings(homechan) :[lindex $arg 0] \0032$bnick\003 @ \0034$botchan\003, says that \0034$chan\003 is \0032suspended\003";putlog "VERIFY: Got results from $from"} elseif {
    [string equal -nocase $what -purge]} {
    puthelp "PRIVMSG $settings(homechan) :[lindex $arg 0] \0032$bnick\003 @ \0034$botchan\003, says that \0034$chan\003 has been \0032purged\003 on \0032$time\003 by \0032$by\003 with the reason: \0032$reason\003";putlog "VERIFY: Got results from $from"} elseif {
    [string equal -nocase $what -valid]} {
    puthelp "PRIVMSG $settings(homechan) :[lindex $arg 0] \0032$bnick\003 @ \0034$botchan\003, says that he is on \0034$chan\003 and it's a \0032valid\003 channel";putlog "VERIFY: Got results from $from"} else {return 0}
    	
    }
    
    return "verify module"
    Primul script este pus pe toti eggdropii si are rolul de a oferi informatii catre al doilea script ( care este pus doar pe botul hub al celorlalti ) , iar prin comanda Mirc-Help verify #canal , butul hub ( in cazul meu Mirc-Help ) ofera informatii despre #canal si anume daca a fost vreun eggdrop linkat pe acel canal , daca a primit purge sau daca nu a fost deloc

    PRoblema este ca la orice canal as da verify imi da asa :

    Code:
    [19:19] -Mirc-Help- FAILED: you specified an invalid channel (02#Fcnal for any help apply on #Mirc-Help
    Pe vechiul a&a light mergea perfect , no bugs . pe a&a light 4.0 nu mai functioneaza :P Dc ?

  2. #2
    Junior Member Alexik's Avatar
    Join Date
    Dec 2005
    Location
    /root
    Posts
    62
    Rep Power
    0

    Default

    Scriptul foloseste stats deci trebuie adaptat pentru ultima versiune de a&a light. Ai mai cerut ajutor cu un script in genul astuia, inspira-te din raspuns e mai simplu decat crezi.

    Succes!
    Only GoD can judge me !

  3. #3
    Junior Member
    Join Date
    Jun 2007
    Posts
    41
    Rep Power
    0

    Default

    am modificat din [::stats::channel -get ] cum era acolo in [stats:channel ... acolo a mers , aici nu a mers...

    de fapt am pus direct scripturile modificate caci , inainte de a le posta , am modificat ca sa fie in concordanta cu noul a&a stats..

    deci vreo solutie ceva ?
    Last edited by Erised; 15-09-2009 at 18:11. Reason: there is an "edit" button

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •