new local flag

[Madalin]

Cum pot crea un NOU flag.. iar la el sa pot adauga comenzi doar pentru acel FLAG... am facut un proces pentru un exemplu am adaugat in core... stats... dar nu stiu exact ce pasi sa urmez sa fie valid flagul.. ca sa si apara la !commands si sa si mearga..

[ReaL|DoG]

Pentru a adauga un flag, trebuie sa editezi urmatoarele fisiere:
core.tcl
local_n.tcl (sau global_n.tcl depinde ce flag vrei sa modifici)
local_s.tcl

Incepem cu core.tcl
Pentru a adauga un flag global trebuie sa pui linia

proc check:O:gl {hand}      {return [matchattr $hand O ]}

la

############ Check access level ######################

iar pentru un flag local adaugi linia

proc check:p:ch {hand chan} {return [matchattr $hand p|p   $chan] }

Salvezi si editezi local_n.tcl sau global_n.tcl
si la procesul

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

unde ai

if {![string match {[+-]} [string index $modes 0]] || ![regexp {^[\+\-hwecubtxjpdkfgvloamnONHPBLSXW]+$} $modes]} {a:usage $x global ; return "FAILED: invalid flags ($modes)"}

adaugi flagul tau ( acolo unde e scris cu rosu ). La fel faci si pentru local.

Acum editezi local_s.tcl ( acolo unde ai !commands )
si te duci la procesul

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

si adaugi liniile

set O ""
set _O ""
[a:command -level $w] == "O"}  {lappend O  [lindex [split $w ,] 0]} elseif {
if { [check:O:gl $hand] && $O != ""}        { a:tell $x 62 "O $O" }

Iar pentru flagul local:

set p ""
set _p ""
[a:command -level $w] == "|p"} {lappend _p [lindex [split $w ,] 0]} elseif {
if { [check:p:ch $hand $chan] && $_p != ""} { a:tell $x 65 "p $_p" }

Si cam atat !

[Smile]

Salu` am adaugat 1 flag global si un flag local ... am adaugat denumirile ptr aceste flag`uri ... si cand dau .admins sau .admins global nu`mi arata ... ma puteti ajuta ?

Deci am pus flag`ul C intre +N si +n iar la local flag`ul +e intre +v si +o

in a&A_26_a_local_v am pus :

if { [llength $N]} { a:tell $x 17 "$y [a:translate $hand $chan 211] [join $N]"}
if { [llength $C]} { a:tell $x 17 "$y [a:translate $hand $chan 230] [join $C]"}
if { [llength $n]} { a:tell $x 17 "$y [a:translate $hand $chan 212] [join $n]"}

if { [llength $m]} { a:tell $x 17 "$y [a:translate $hand $chan 213] [join $m]"}

if { [llength $o]} { a:tell $x 17 "$y [a:translate $hand $chan 214] [join $o]"}
if { [llength $e]} { a:tell $x 17 "$y [a:translate $hand $chan 233] [join $e]"}

if { [llength $l]} { a:tell $x 17 "$y [a:translate $hand $chan 218] [join $l]"}
if { [llength $v]} { a:tell $x 17 "$y [a:translate $hand $chan 215] [join $v]"}
if { [llength $d]} { a:tell $x 17 "$y [a:translate $hand $chan 216] [join $d]"}
if { [llength $k]} { a:tell $x 17 "$y [a:translate $hand $chan 217] [join $k]"}

Iar in a&a_04_a_dict_en.tcl am pus asha :

set say(lang.1.230)   "CODERS:"
set say(lang.1.231)   ""
set say(lang.1.232)   ""
set say(lang.1.233)   "ELITE-MEMBER:"

Deci imi spuneti si mie dc nu`mi apare cand dau cuiva global +C si apoi dau .admins global sa`mi apara
MANAGER: a
CODER : b
La fel si la cel logal