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
Code:
proc check:O:gl {hand} {return [matchattr $hand O ]}
la
Code:
############ Check access level ######################
iar pentru un flag local adaugi linia
Code:
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
Code:
proc pub:chattrgl {hand chan args x mix} {
unde ai
Code:
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
Code:
proc pub:commands {hand chan args x mix} {
si adaugi liniile
Code:
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:
Code:
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 !