PHP- Kodu
on ^*:join:#:{
if $chan == #help {
if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (12NREG1) + (5CREG1) + (4IPBAN1),$chr(3))
halt
}
}
elseif $chan == #operhelp {
if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (4AUTH1) + (12ZLINE-AC1) + (5ZLINE1),$chr(3))
halt
}
}
elseif $chan == #yardim {
if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (4VOICE1) + (5ZLINE1),$chr(3))
halt
}
}
elseif $chan == #sikayet {
if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i),1 (4VOICE1) + (5ZLINE1),$chr(3))
halt
}
}
elseif $istok(#egitim #irchelp #helpers #helpstaff #halfsohbet #halfoper #helpteam #helpsinav #kanlekle,$chan,32) { echo $chan $timestamp 10*Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ )
halt
}
else {
if ($nick != $me) { echo $chan $timestamp 10 *Giriş: $nick ( $+ $gettok($fulladdress,2,33) $+ ) $iif(!$regex($address($nick,2),/(oper|admin|helper|helpstajyer)/i), 1 (4NEWNICK1) + (12BAN1) + (5ZLINE1),$chr(3))
halt
}
}
}
on ^*:part:#:{
if ($nick != $me) { echo $chan $timestamp 3 *Çıkış: $nick ( $+ $gettok($fulladdress,2,33) $+ )
halt
}
}
on ^*:quit: {
set %quit 0
:start
inc %quit
if ($comchan($nick,%quit) != $null) {
echo $comchan($nick,%quit) $timestamp 12 *Ayrıldı: $nick ( $+ $gettok($fulladdress,2,33) $+ ) ( $+ $1- $+ )
goto start
}
haltdef
}
on ^*:hotlink:*:*:{
if $1 == (BAN) { return }
if $1 == (ZLINE) { return }
if $1 == (NREG) { return }
if $1 == (CREG) { return }
if $1 == (VOICE) { return }
if $1 == (ZLINE-AC) { return }
if $1 == (NEWNICK) { return }
if $1 == (AUTH) { return }
if $1 == [#] { return }
if $1 == (IPBAN) { return }
halt
}
on *:hotlink:*:*:{
if $1 == (NEWNICK) { msg #kanalekle !newnick $remove($gettok($hotline,4,32),) }
if $1 == (BAN) { allban $remove($gettok($hotline,4,32),) }
if $1 == (ZLINE) { msg #kanalekle !zline $remove($gettok($hotline,4,32),) $$?="Sebep?" }
if $1 == (NREG) { //msg #help $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) nick kaydı için gereken bilgiler özelinize gönderiliyor. | msg #helpers .nickreg $remove($gettok($hotline,4,32),) }
if $1 == (CREG) { //msg #help $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) kanal kaydı için gereken bilgiler özelinize gönderiliyor. | msg #helpers .kanalreg $remove($gettok($hotline,4,32),) }
if $1 == (VOICE) { //mode # +v $remove($gettok($hotline,4,32),) | msg # mesajekle $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) size nasıl yardımcı olabilirim? }
if $1 == (ZLINE-AC) { //window -a #kanaliniekle | msg #kanaliniekle !banac $$?="IP nedir?" }
if $1 == (AUTH) { /msg #operhelp $+($chr(2),$remove($gettok($hotline,4,32),),$chr(2),$chr(44)) nick kayıt işlemi sırasında kullandığınız "e-mail@posta" adresi nedir? }
if $1 == [#] { //genel | /set %tfnick $strip($remove($gettok($strip($hotline),3,32),<,>)) }
if $1 == (IPBAN) { mode # +b $remove($gettok($hotline,4,32),) }
}
dialog komutlar {
title "There Form"
size -1 -1 110 75
option dbu
button "BAN", 2, 20 10 73 12, flat ok
button "BAN KICK", 3, 20 25 73 12, flat ok
button "NEWNİCK", 4, 20 40 73 12, flat ok
button "ZLINE", 5, 20 55 73 12, flat ok
}
alias genel dialog -m komutlar komutlar
on 1:dialog:komutlar:sclick:*:{
if ($did == 2 ) { /mode $active +b %tfnick }
if ($did == 3 ) { //ban -u360 $chan %tfnick $+ !*@* | /kick $chan %tfnick 1Kural ihlali, ayrıntılı bilgi için;12 /rules 1komutunu uygulayınız. NOT : " $+ $gettok($asctime($calc($ctime + 360)),4,32), $+ " itibariyle ban deaktif(iptal) olacaktır. }
if ($did == 4 ) { /msg # !newnick %tfnick }
if ($did == 5 ) { /msg # !zline %tfnick $$?="Sebep?" }