Content added Content deleted
No edit summary |
imported>DrOwl mNo edit summary |
||
Line 1:
some random code taken from other tcl scripts
==user flag check==
<pre>
#Dekadent Learn v1.0.1 by CoolMaster for eggdrop
# Verify if user have access flags to use learn changes, return 1 if yes else return 2
Line 7 ⟶ 9:
if {[matchattr $hand $learn($type)] == 1} {return 1} else {return 2}
}
</pre>
|
Revision as of 22:07, 5 October 2005
some random code taken from other tcl scripts
user flag check
#Dekadent Learn v1.0.1 by CoolMaster for eggdrop # Verify if user have access flags to use learn changes, return 1 if yes else return 2 proc check_access {hand type} { global learn if {[matchattr $hand $learn($type)] == 1} {return 1} else {return 2} }