Content added Content deleted
No edit summary |
imported>mutante m (was dead end) |
||
(2 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
some random code taken from other tcl scripts |
some random code taken from other [[tcl]] scripts |
||
==user flag check== |
|||
<pre> |
|||
#Dekadent Learn v1.0.1 by CoolMaster for eggdrop |
#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 |
# Verify if user have access flags to use learn changes, return 1 if yes else return 2 |
||
Line 7: | Line 9: | ||
if {[matchattr $hand $learn($type)] == 1} {return 1} else {return 2} |
if {[matchattr $hand $learn($type)] == 1} {return 1} else {return 2} |
||
} |
} |
||
</pre> |
|||
related: [[Eggdrop]],[[TCL]] |
|||
[[Category:TCL]] |
|||
[[Category:Programming]] |
Latest revision as of 10:10, 7 October 2006
some random code taken from other tcl scripts
user flag check[edit]
#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} }