[Request script] give X access & autoop

[spy]

As avea si eu nevoie daca se poate de un TCL, gen daca dau !add <user> bot-ul automat sa dea Prin X Access la acel user cu un access setat de mine in script + autoop. si sa imi trimita o notificare pe notice precum ca acel user a fost adaugat. sper sa imi fi inteles cererea. multumesc anticipat.

[aNormaLu]

a:command -add add pub:add 0000 000 m

proc pub:add {hand chan args x mix} {

	set who [lindex $args 0]
        set level "400"

	if { $who == ""} {a:usage $x xadduser; return "FAILED: not all parameters specified"}

      puthelp "privmsg X :adduser $chan $who $level"
      puthelp "privmsg X :modinfo $chan automode $who op"
      puthelp "notice $x :done master :p"
}

tre +m global pt a folosi !add <user> ... levelu e setat la 400..pui tu kt vrei.

[spy]

Eu folosesc netbots, nu este a&a script, poti sa mi-l faci sa mearga? pt netbots?
ms mult.

[lsn]

O sa iti modific putin scriptul lui Normal (care oricum nu functiona la parametrii lui)

bind pub m !adauga adauga

proc adauga {nick uhost hand chan arg} {

	set who [lindex $arg 0]
        set level "400"

	if {![llength $who]} {puthelp "notice $nick :trebuie sa specifici userul ..."; return}

      puthelp "privmsg X :adduser $chan $who $level"
      puthelp "privmsg X :modinfo $chan automode $who op"
      puthelp "notice $nick :done master :p"
}

[spy]

Merci mult lsn,la o parte din el imi dadea asa:
la aceasta linie:

if {![llenght $who]} {puthelp "notice $nick :trebuie sa specifici userul ..."; return}

botul imi dadea eroarea asta:

[23:21] Tcl error [adauga]: invalid command name "llenght"

si am inlocuit cu:

if {$who == ""} {
putserv "PRIVMSG $chan :$nick: 12Folosire:2 !adauga4 <user>"; return
}

si merge ok

[lsn]

Greseala mea este llength in loc de llenght

[spy]

As dori sa stiu si eu cum as putea face sa nu mai dau !69 si userul,ci sa dau doar !69 si nick-ul respectivului,si bot-ul sa ai dea whois pe acel nick si sa citeasca doar userul care este logat si sa ai ofere access la X 69. Am facut eu ceva mai jos cam cum ar trebui sa fie.

bind pub m !69 69

proc 69 {nick uhost hand chan arg} {

set who [lindex $arg 0]
set level "69"

if {$who == ""} {
putserv "PRIVMSG $chan :$nick: 12Folosire:2 !694 <user>"; return
}


puthelp "privmsg X :adduser $chan $who $level"
puthelp "privmsg X :modinfo $chan automode $who op"
puthelp "privmsg $chan $nick :2done master4 :2p4 $nick2 am adaugat userul4 $who2 pe4 $chan2 cu access level4 $level2 +4 autoop2 si este un access nu o4 pozitie2 :4P 2/hop pt a-ti lua2 @4 +!+2 "
puthelp "kick $chan $who :2Ai primit access12 $level2 pe4 $chan2 de catre4 $hand2 hop pentru2 a-ti lua4 @2 :4"
puthelp "invite $who $chan"

}

[Ionut]

nu sunt sigur dar functioneaza:
in loc de:

puthelp "privmsg X :adduser $chan $who $level"
puthelp "privmsg X :modinfo $chan automode $who op"

poti pune

puthelp "privmsg X :adduser $chan =$who $level"
puthelp "privmsg X :modinfo $chan automode =$who op"

ps: kick-ul si invite`ul nu il vad necesar. posibil sa fie setat pe canal noop si aia restrictioneza modul +o celor cu access mai mic de 100 cea ce inseamna ca degeaba ai setat u automode op
ps2: nu cunosc in deajuns de mult tcl-scriptin (aproape mai deloc) incat sa fac sa dea raspunsul in functie de notice`urile pe care le primeste de la X. Userul pate are noadduser sau cum este setarea
ps3: poate te ajuta cineva care cunoaste mult mai bine ca mine important este ca functioneaza

[spy]

Da a mers nu mi-a dat prin cap chestia cu =$who , merci !