For Bot: !login and !register

tips: ko kena ade dalam level owner.. /auser owner <nickko>
On *:unotify: { .unset $+(%,$nick) }
on *:JOIN:#: {
if ($level($nick) == owner) && ($($+(%,$nick),2) != 1) {
set %joindata $readini(users.ini, $nick $+ , username)
if (%joindata == $null) {
msg $chan owner tolong register /msg $me !register passwd <-- password aper pon takpe untuk keselamatan
}
else {
msg $chan sila identify pengenalan owner: /msg $me !login password
}
unset %joindata
}
}


on *:TEXT:* {
if ($1 == !register) && ($2) {
inc -u3 %natang
if (%natang == 1) {
set %joindata $readini(users.ini, $nick $+ , username)
if (%joindata == $null) {
msg $nick wokeh dah register 12[ $nick 12] password 12[ $2 12]
writeini -l users.ini $nick username $nick
writeini -l users.ini $nick password $md5($2)
writeini -l users.ini $nick mode v
writeini -l users.ini $nick admin 0
msg $nick taip !login password untuk pengesahan
}
else {
msg $nick dah register ler
}
ignore -u3 $nick
halt
}
}
if ($1 == !login) {
inc -u3 %natang
if (%natang == 1) {
if (!$2) { msg $nick command: !login <passwd> | halt }
if ($($+(%,$nick),2) == 1) { .msg $nick dah login dah.. nak login aper lagik | halt }
set %joindata $readini(users.ini, $nick $+ , username)
if (%joindata == $null) {
msg $nick amboi dia suka hati jer nak login!! tak register lagik ler sayang oi
.ignore -u3 $nick
}
else {
if ($md5($2) == $readini(users.ini, $nick $+ , password)) {
msg $nick pengesahan owner 12[ $nick 12] data system di terima
.set $+(%,$nick) 1
}
else {
msg $nick rasa rasa betul ke passwd tu??
}
}
halt
}
}
}

cam adew BUG jer...
xtau la takowt2 irc aku..