Code
15 Mart 2016, 22:24
Gelişmiş bir online takip sistemi hazırladım.
Botun çalışabilmesi için %chan ve %opchan verilerinin doldurulması gerekmekte. %chan verisine user kanalını, %opchan verisine op kanalı yazılacaktır.
Ayrıca %master verisi de doldurulacak. %master verisine botun sahibinin nicki yazılacaktır.
%opchan kanalında &yardım yazarsanız daha detaylı bir bilgi alabilirsiniz.
on *:text:*:%opchan: {
if ($regex($1,/^[&!.]gizle/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) {
if (%MasterHidding == 1) { msg $chan 2 $nick siz zaten gizli durumdasınız. }
if (%MasterHidding == 0) || (%MasterHidding == $null) { msg $chan 2 $nick gizli duruma geçtiniz. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülmeyecek. | hidden $nick $nick $date $time $chan }
}
if ($2) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmadığı için işlem yapılamaz. }
if ($ini(operator.ini,$2)) {
if ($readini(operator.ini,$2,hidden) == 1) { msg $chan 2 $2 kullanıcısı zaten gizli durumda bulunuyor. }
if ($readini(operator.ini,$2,hidden) == 0) || ($readini(operator.ini,$2,hidden) == $null) { msg $chan 2 $2 gizli duruma geçti. Bundan sonra takip bilgileri, operatör bilgileri, operatör listesinde adı görülmeyecek. | hidden $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]goster/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) {
if (%MasterHidding == 0) || (%MasterHidding == $null) { msg $chan 2 $nick siz zaten gizli durumda değilsiniz. }
if (%MasterHidding == 1) { msg $chan 2 $nick gizli durumundan çıktınız. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülecek. | show $nick $nick $date $time $chan }
}
if ($2) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmadığı için işlem yapılamaz. }
if ($ini(operator.ini,$2)) {
if ($readini(operator.ini,$2,hidden) == 0) || ($readini(operator.ini,$2,hidden) == $null) { msg $chan 2 $2 kullanıcısı zaten gizli durumda bulunmuyor. }
if ($readini(operator.ini,$2,hidden) == 1) { msg $chan 2 $2 gizli durumdan çıkartıldı. Bundan sonra takip bilgileri, operatör bilgileri, operatör listesinde adı görülecek. | show $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]ekle/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if ($ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı $readini(follow.ini,$2,addop) tarafından $readini(follow.ini,$2,adddate) tarihinde $readini(follow.ini,$2,addtime) saatinde takip listesine eklenmiş. }
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesine eklendi. | followadd $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]sifirla/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinde bulunmuyor. }
if ($ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısının takip bilgileri sıfırlanmıştır. | followclean $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]osifirla/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmadığı için sıfırlanamaz. }
if ($ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısının operatör takip bilgileri sıfırlanmıştır. | operatorclean $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]tsifirla/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) { msg $chan 2Tüm kayıtlar sıfırlanmıştır. | cleanall $2 $nick $chan }
}
if ($regex($1,/^[&!.]oekle/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if ($2 == %master) { msg $chan 2Belirttiğiniz kişi $me botunun sahibidir, operatör listesine eklenemez. }
if ($2 != %master) {
if ($ini(operator.ini,$2)) { msg $chan 2 $2 zaten bir operatör. }
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör olarak eklendi. | operatoradd $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]osil/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if ($2 == %master) { msg $chan 2Belirttiğiniz kişi $me botunun sahibidir, operatör listesinden silinemez. }
if ($2 != %master) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde yok. }
if ($ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısının operatör yetkisi kaldırıldı. | operatordel $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]help/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
helptopic $2 $chan
}
}
if ($regex($1,/^[&!.]olist/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { operatorlist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]reboot/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) { msg $chan 2Yeniden başlatılıyor...(3-5 saniye içerisinde tekrar bağlanacaktır.) | reboot $nick $chan $date $time }
}
if ($regex($1,/^[&!.]top10/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { topten $chan $nick $date $time }
}
if ($regex($1,/^[&!.]optop10/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { optopten $chan $nick $date $time }
}
if ($regex($1,/^[&!.]yardim/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { help $nick $chan $date $time }
}
if ($regex($1,/^[&!.]sil/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinde zaten bulunmuyor. }
if ($ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinden çıkartılmıştır. | followdel $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]list/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { followlist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]clist/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { onlinelist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]dlist/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { offlinelist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]obilgi/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) && ($2) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if (!$2) {
if ($ini(operator.ini,$nick)) || ($nick == %master) { loginfo $nick $chan $nick $date $time }
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2 $nick siz operatör listesinde bulunmuyorsunuz. }
}
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if ($2) {
if ($ini(operator.ini,$2)) || ($2 == %master) { loginfo $2 $chan $nick $date $time }
if (!$ini(operator.ini,$2)) && ($2 != %master) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmamaktadır. }
}
}
}
if ($regex($1,/^[&!.]bilgi/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) && ($2) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if (!$2) {
if ($ini(follow.ini,$nick)) { followinfo $nick $chan $nick $date $time }
if (!$ini(follow.ini,$nick)) { msg $chan 2 $nick siz takip listesinde bulunmuyorsunuz. }
}
if ($2) {
if ($ini(follow.ini,$2)) { followinfo $2 $chan $nick $date $time }
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinde bulunmamaktadır. }
}
}
}
alias hidden {
write $+($2,.txt) 2 $+($date, - ,$time,:) $iif($1 == $2,Gizlilik moduna geçti.,$+(,$1) kullanıcısını gizlilik moduna geçirdi.)
if ($1 == %master) { set %MasterHidding 1 }
if ($1 != %master) { writeini -n operator.ini $1 hidden 1 }
}
alias show {
write $+($2,.txt) 2 $+($date, - ,$time,:) $iif($1 == $2,Gizlilik modundan çıktı.,$+(,$1) kullanıcısını gizlilik modundan çıkardı.)
if ($1 == %master) { set %MasterHidding 0 }
if ($1 != %master) { writeini -n operator.ini $1 hidden 0 }
}
alias cleanall {
var %ini = $ini(follow.ini,0), %x = 1
while (%x <= %ini) {
unset $+(%,$ini(follow.ini,%x))
inc %x
}
if ($file(follow.ini)) { remove follow.ini }
if ($file(operator.ini)) { remove operator.ini }
var %ini = $ini(operator.ini,0), %x = 1
while (%x <= %ini) {
if ($file($+($ini(operator.ini,%x),.txt))) { remove $+($ini(operator.ini,%x),.txt) }
inc %x
}
write $+($2,.txt) 2 $+($date, - ,$time,:) tüm bilgileri sıfırladı.
}
alias loginfo {
if ($1 == %master) && (%MasterHidding == 1) && ($3 != %master) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
if ($1 != %master) && ($readini(operator.ini,$1,hidden) == 1) && ($1 != $3) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
var %ini = $lines($+($1,.txt)), %x = 1
if (%ini == 0) { msg $2 2 $1 adlı operatörün hiçbir işlem kaydı bulunmamaktadır. }
while (%x <= %ini) {
timer 1 %x msg $2 $read($+($1,.txt),%x)
inc %x
}
write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının log bilgilerini sorguladı.
}
alias operatoradd {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesine ekledi.
writeini -n operator.ini $1 addop $2
writeini -n operator.ini $1 adddate $3
writeini -n operator.ini $1 addtime $4
writeini -n operator.ini $1 addchan $5
writeini -n operator.ini $1 hidden 0
}
alias followdel {
set $+(%,$1) 0
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesinden çıkardı.
remini -n follow.ini $1
if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
noti $1 2
}
alias followinfo {
if ($1 == %master) && (%MasterHidding == 1) && ($3 != %master) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
if ($1 != %master) && ($readini(operator.ini,$1,hidden) == 1) && ($1 != $3) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
%x = $calc($eval($+(%,$1)))
save $1
msg $2 2 Kullanıcı Adı: $1 Durumu: $iif($timer($+(follow,$1)),Çevrimiçi,Çevrimdışı)
msg $2 2 Ekleyen Operatör, Kanal: $readini(follow.ini,$1,addop) $+ , $readini(follow.ini,$1,addchan)
msg $2 2 Eklenme Tarihi, Saati: $readini(follow.ini,$1,adddate) - $readini(follow.ini,$1,addtime)
msg $2 2 Son Çevrimiçi Olduğu Süre: $convert(%x)
msg $2 2 Toplam Çevrimiçi Olduğu Süre: $+( ,$convert($readini(follow.ini,$1,onlinetime)))
write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sorguladı.
}
alias save {
writeini -n follow.ini $1 onlinetime $calc($readini(follow.ini,$1,onlinetime)+$eval($+( %,$1)))
set $+(%,$1) 0
}
alias update {
var %ini = $ini(follow.ini,0), %x = 1
while (%x <= %ini) {
save $ini(follow.ini,%x)
inc %x
}
}
alias operatorlist {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) Operatör listesini sorguladı.
if ($2 != %master) {
var %ini = $ini(operator.ini,0), %x = 1, %y = 0, %z = 1, %command = $ini(operator.ini,0)
while (%z <= %ini) {
if ($readini(operator.ini,$ini(operator.ini,%z),hidde n) == 1) { dec %command }
inc %z
}
if (%command == 0) && (%master != $null) && (%MasterHidding == 1) { msg $1 2Operatör listesinde kimse bulunmuyor. | return }
while (%x <= %ini) {
if ($readini(follow.ini,$ini(operator.ini,%x),onlinet ime)) && ($readini(operator.ini,$ini(operator.ini,%x),hidde n) == 0) { inc %y | save $ini(operator.ini,%x) | msg $1 2 $+(%y,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x) ,onlinetime)) }
if (!$readini(follow.ini,$ini(operator.ini,%x),online time)) && ($readini(operator.ini,$ini(operator.ini,%x),hidde n) == 0) { inc %y | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) }
inc %x
}
if (%master != $null) && (%MasterHidding == 0) {
inc %y
if ($readini(follow.ini,%master,onlinetime)) { save %master | msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan Çevrimiçi Süresi: $convert($readini(follow.ini,%master,onlinetime)) }
if (!$readini(follow.ini,%master,onlinetime)) { msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan }
}
}
if ($2 == %master) {
var %ini = $ini(operator.ini,0), %x = 1, %y = 0, %z = $calc(%ini + 1)
if (%z == 0) { msg $1 2Operatör listesinde kimse bulunmuyor. | return }
while (%x <= %ini) {
if ($readini(follow.ini,$ini(operator.ini,%x),onlinet ime)) { inc %y | save $ini(operator.ini,%x) | msg $1 2 $+(%y,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x) ,onlinetime)) }
if (!$readini(follow.ini,$ini(operator.ini,%x),online time)) { inc %y | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) }
inc %x
}
if (%master != $null) {
inc %y
if ($readini(follow.ini,%master,onlinetime)) { save %master | msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan Çevrimiçi Süresi: $convert($readini(follow.ini,%master,onlinetime)) }
if (!$readini(follow.ini,%master,onlinetime)) { msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan }
}
}
}
alias operatordel {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesinden çıkardı.
remini -n operator.ini $1
operatorclean $1 $2
}
alias followadd {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesine ekledi.
writeini -n follow.ini $1 addop $2
writeini -n follow.ini $1 adddate $3
writeini -n follow.ini $1 addtime $4
writeini -n follow.ini $1 addchan $5
writeini -n follow.ini $1 onlinetime 0
if ($1 ison %chan) { $+(.timerfollow,$1) 0 1 follow $1 }
noti $1 1 0
}
alias followclean {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sıfırladı.
writeini -n follow.ini $1 addop $2
writeini -n follow.ini $1 adddate $3
writeini -n follow.ini $1 addtime $4
writeini -n follow.ini $1 addchan $5
writeini -n follow.ini $1 onlinetime 0
set $+(%,$1) 0
if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
if ($1 ison %chan) { $+(.timerfollow,$nick) 0 1 follow $1 }
}
alias operatorclean {
remove $+($1,.txt)
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı operatörün takip bilgilerini sıfırladı.
}
alias topten {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) TOP10 listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1
if (%ini == 0) { msg $1 2TOP10 listesinde kimse bulunmuyor. }
if (%ini != 0) {
while (%x <= %ini) {
%y = $ini(follow.ini,%x)
if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
inc %x
}
var %n = 1
while ($findval(%n) != $null) && (%n <= 10) {
if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
inc %n
}
cleanpoints
msg $1 %topten
}
}
alias optopten {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) OPTOP10 listesini sorguladı.
var %ini = $ini(operator.ini,0), %x = 1
if (%ini == 0) { msg $1 2OPTOP10 listesinde kimse bulunmuyor. }
if (%ini != 0) {
while (%x <= %ini) {
%y = $ini(operator.ini,%x)
if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
inc %x
}
if ($readini(follow.ini,%master,onlinetime)) { set $+(%,%master,.points) $readini(follow.ini,%master,onlinetime) }
var %n = 1
while ($findval(%n) != $null) && (%n <= 10) {
if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
inc %n
}
cleanpoints
msg $1 %topten
}
}
alias cleanpoints {
var %i = 1
while $var(%*.points, %i) {
unset $+(%,$remove($ifmatch,$chr(37),.points),.points)
}
}
alias findval {
if ($1 == 0) return $var(%*.points,0)
window -sh @sort 0 0 100 100
var %i = 1
while ($var(%*.points,%i)) {
aline @sort $base( [ [ $ifmatch ] ] ,10,10,10) $remove($ifmatch,$chr(37),.points)
inc %i
}
var %info = $line(@sort,$calc($line(@sort,0) - $iif($1 isnum,$1,$fline(@sort,$1,1)) + 1))
window -c @sort
if ($prop == val) {
var %regex = $regex(sort,$gettok(%info,1,32),m~0*(\d*)~g)
return $regml(sort,1)
}
else return $gettok(%info,2,32)
}
alias help {
timer 1 1 msg $2 2[!&.]gizle NICK: NICK operatörün işlem kayıtları, operatör listesindeki adını göstermemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 1 yazınız.
timer 1 2 msg $2 2[!&.]&goster NICK: Gizlenme modu aktif edilen NICK operatörünün gizlilik modunu açmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 2 yazınız.
timer 1 3 msg $2 2[!&.]&ekle NICK: NICK adlı kullanıcıyı takip listesine eklemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 3 yazınız.
timer 1 4 msg $2 2[!&.]&sil NICK: NICK adlı kullanıcıyı takip listesinden çıkarmak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 4 yazınız.
timer 1 5 msg $2 2[!&.]&list: Takip listesindeki kullanıcıları listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 5 yazınız.
timer 1 6 msg $2 2[!&.]&bilgi NICK: Takip listesinde bulunan NICK kullanıcısının takip bilgilerini görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 6 yazınız.
timer 1 7 msg $2 2[!&.]&top10: Takip listesinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 7 yazınız.
timer 1 8 msg $2 2[!&.]&clist: Takip listesindeki çevrimiçi kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 8 yazınız.
timer 1 9 msg $2 2[!&.]&dlist: Takip listesindeki çevrimdışı kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 9 yazınız.
timer 1 10 msg $2 2[!&.]&sifirla NICK: NICK adlı kullanıcının takip bilgilerini sıfırlamak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 10 yazınız.
timer 1 11 msg $2 2[!&.]&osifirla NICK: NICK adlı operatörün işlem kaydını sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 11 yazınız.
timer 1 12 msg $2 2[!&.]&tsifirla : Tüm kullanıcıların takip bilglierini, takip listesini; operatörlerin işlem kaydını, operatör listesini sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 12 yazınız.
timer 1 13 msg $2 2[!&.]&oekle NICK: NICK adlı kullanıcı operatör listesine eklemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 13 yazınız.
timer 1 14 msg $2 2[!&.]&osil NICK: NICK adlı operatörü operatör listesinden çıkarmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 14 yazınız.
timer 1 15 msg $2 2[!&.]&olist: Operatör yetkisine sahip kullanıcıları görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 15 yazınız.
timer 1 16 msg $2 2[!&.]&obilgi NICK: Operatör listesinde bulunan NICK operatörünün işlem kaydını görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 16 yazınız.
timer 1 17 msg $2 2[!&.]&optop10: Takip listesinde bulunan operatörlerin içinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 17 yazınız.
timer 1 18 msg $2 2[!&.]&reboot: $me botunun yeniden başlatılması için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 18 yazınız.
}
alias helptopic {
if ($1 == 1) {
msg $2 2[!&.]&gizle NICK Komutu ve Kullanımı
msg $2 2Bu komutu sadece MASTER kullanabilir.
msg $2 2MASTER:Bu kullanıcılar kendilerini &gizle komutu ile gizleme moduna geçebilirler.
msg $2 2ÖRNEK: Lociz kişisi MASTER'dir.
msg $2 2<Lociz> &gizle
msg $2 2<LBot> Lociz gizli duruma geçtiniz, bundan sonra operatör bilgileriniz, operatör listesinde adınız görülmeyecek.
msg $2 2BAŞKA BİRİ İÇİN:&gizle OperatörNicki şeklinde kullanılır.
msg $2 2ÖRNEK:Lociz kişisi MASTER, Owner kişisi OPERATÖR'dür.
msg $2 2<Lociz> &gizle Owner
msg $2 2<LBot> Owner gizli duruma geçti, bundan sonra operatör bilgileri, operatör listesinde adı görülmeyecek.
}
else { msg $2 2 $1 konulu yardım dosyası henüz aktif değil. }
}
alias followlist {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) Takip listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1
if (%ini == 0) { msg $1 2Takip listesinde kimse bulunmuyor. }
while (%x <= %ini) {
save $ini(follow.ini,%x)
msg $1 2 $+(%x,.) Kullanıcı Adı: $iif($ini(follow.ini,%x),$ini(follow.ini,%x),HATA![KOD:1]) Ekleyen: $iif($readini(follow.ini,$ini(follow.ini,%x),addop ),$readini(follow.ini,$ini(follow.ini,%x),addop),H ATA![KOD:1]) Eklenme Tarihi, Saati: $iif($readini(follow.ini,$ini(follow.ini,%x),addda te),$readini(follow.ini,$ini(follow.ini,%x),adddat e),HATA![KOD:1]) - $iif($readini(follow.ini,$ini(follow.ini,%x),addti me),$readini(follow.ini,$ini(follow.ini,%x),addtim e),HATA![KOD:1]) Eklenen Kanal: $iif($readini(follow.ini,$ini(follow.ini,%x),addch an),$readini(follow.ini,$ini(follow.ini,%x),addcha n),HATA![KOD:1]) Çevrimiçi Süresi: $convert($iif($readini(follow.ini,$ini(follow.ini, %x),onlinetime),$readini(follow.ini,$ini(follow.in i,%x),onlinetime),0))
inc %x
}
}
alias convert { return $replace($duration($1,0),wks,$chr(32) hft,wk,$chr(32) hft,mins,$chr(32) dk,hrs,$chr(32) saat,secs,$chr(32) sn,min,$chr(32) dk,hr,$chr(32) saat,sec,$chr(32) sn,days,$chr(32) gün,day,$chr(32) gün) }
alias reboot {
write $+($1,.txt) 2 $+($date, - ,$time,:) $me botunu yeniden başlattı.
set %restart 1
set %restartuser $1
exit -nr
}
alias follow {
if ($1 ison %chan) && ($ini(follow.ini,$1)) { inc -e $+(%,$1) }
if ($1 !ison %chan) || (!$ini(follow.ini,$1)) { noti $1 2 | save $1 | $+(.timerfollow,$1) off }
}
on *:nick: {
if ($ini(follow.ini,$newnick)) { noti $newnick 3 | $+(.timerfollow,$newnick) 0 1 follow $newnick }
}
on *:join:#: {
if ($chan == %chan) {
if ($nick == $me) { timerchck 1 1 checkstart }
if ($ini(follow.ini,$nick)) { noti $nick 1 1 | $+(.timerfollow,$nick) 0 1 follow $nick }
}
if ($chan == %opchan) {
if ($nick == $me) {
inc %run 1
if (%run == 1) { set %firstrunD $date | set %firstrunT $time }
msg $chan 2 $me botunun $chan kanalına $+(%run,.) girişidir.
if ($nick == $me) && (%restart == 1) { .msg $chan 2 $me botu %restartuser tarafından yeniden başlatılmıştır. | unset %restart | unset %restartuser }
}
}
}
alias checkstart {
var %ini = $ini(follow.ini,0), %x = 1
while (%x <= %ini) {
if ($ini(follow.ini,%x) ison %chan) && (!$timer($ini(follow.ini,%x))) { .noti $ini(follow.ini,%x) 1 0 | $+(.timerfollow,$ini(follow.ini,%x)) 0 1 follow $ini(follow.ini,%x) }
inc %x
}
}
alias noti {
if ($2 == 1) && ($3 == 1) { .notice $1 2Hoşgeldiniz, $+($1,.) Süreniz başlamıştır. }
if ($2 == 1) && ($3 == 0) { .notice $1 2Süreniz başlamıştır. }
if ($2 == 2) && ($1 ison %chan) { .notice $1 2Süreniz durdurulmuştur. }
if ($2 == 3) { .notice $1 2Süreniz tekrar başlamıştır. }
}
alias onlinelist {
write $+($2,.txt) 2 $+($date, - ,$time,:) Çevrimiçi listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1, %y = 0
while (%x <= %ini) {
if ($timer($+(follow,$ini(follow.ini,%x)))) { inc %y | msg $1 2 $+(%y,.) Kullanıcı Adı: $+($ini(follow.ini,%x),[Çevrimiçi]) Aktif Süre: $convert($calc($eval($+(%,$ini(follow.ini,%x))))) }
inc %x
}
if (%y == 0) { msg $1 2Çevrimiçi kimse bulunmuyor. }
}
alias offlinelist {
write $+($2,.txt) 2 $+($date, - ,$time,:) Çevrimdışı listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1, %y = 0
while (%x <= %ini) {
if (!$timer($+(follow,$ini(follow.ini,%x)))) { inc %y | msg $1 2 $+(%y,.) Kullanıcı Adı: $+($ini(follow.ini,%x),[Çevrimdışı]) }
inc %x
}
if (%y == 0) { msg $1 2Çevrimdışı kimse bulunmuyor. }
}
Log:
[23:32:38] <@Lociz> &yardim
[23:32:40] <LBot> 2[!&.]gizle NICK: NICK operatörün işlem kayıtları, operatör listesindeki adını göstermemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 1 yazınız.
[23:32:41] <LBot> 2[!&.]&goster NICK: Gizlenme modu aktif edilen NICK operatörünün gizlilik modunu açmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 2 yazınız.
[23:32:42] <LBot> 2[!&.]&ekle NICK: NICK adlı kullanıcıyı takip listesine eklemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 3 yazınız.
[23:32:43] <LBot> 2[!&.]&sil NICK: NICK adlı kullanıcıyı takip listesinden çıkarmak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 4 yazınız.
[23:32:43] <LBot> 2[!&.]&list: Takip listesindeki kullanıcıları listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 5 yazınız.
[23:32:44] <LBot> 2[!&.]&bilgi NICK: Takip listesinde bulunan NICK kullanıcısının takip bilgilerini görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 6 yazınız.
[23:32:45] <LBot> 2[!&.]&top10: Takip listesinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 7 yazınız.
[23:32:46] <LBot> 2[!&.]&clist: Takip listesindeki çevrimiçi kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 8 yazınız.
[23:32:47] <LBot> 2[!&.]&dlist: Takip listesindeki çevrimdışı kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 9 yazınız.
[23:32:48] <LBot> 2[!&.]&sifirla NICK: NICK adlı kullanıcının takip bilgilerini sıfırlamak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 10 yazınız.
[23:32:49] <LBot> 2[!&.]&osifirla NICK: NICK adlı operatörün işlem kaydını sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 11 yazınız.
[23:32:50] <LBot> 2[!&.]&tsifirla : Tüm kullanıcıların takip bilglierini, takip listesini; operatörlerin işlem kaydını, operatör listesini sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 12 yazınız.
[23:32:51] <LBot> 2[!&.]&oekle NICK: NICK adlı kullanıcı operatör listesine eklemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 13 yazınız.
[23:32:52] <LBot> 2[!&.]&osil NICK: NICK adlı operatörü operatör listesinden çıkarmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 14 yazınız.
[23:32:53] <LBot> 2[!&.]&olist: Operatör yetkisine sahip kullanıcıları görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 15 yazınız.
[23:32:54] <LBot> 2[!&.]&obilgi NICK: Operatör listesinde bulunan NICK operatörünün işlem kaydını görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 16 yazınız.
[23:32:55] <LBot> 2[!&.]&optop10: Takip listesinde bulunan operatörlerin içinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 17 yazınız.
[23:32:56] <LBot> 2[!&.]&reboot: LBot botunun yeniden başlatılması için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 18 yazınız.
Yapımcı: Lociz
Botun çalışabilmesi için %chan ve %opchan verilerinin doldurulması gerekmekte. %chan verisine user kanalını, %opchan verisine op kanalı yazılacaktır.
Ayrıca %master verisi de doldurulacak. %master verisine botun sahibinin nicki yazılacaktır.
%opchan kanalında &yardım yazarsanız daha detaylı bir bilgi alabilirsiniz.
on *:text:*:%opchan: {
if ($regex($1,/^[&!.]gizle/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) {
if (%MasterHidding == 1) { msg $chan 2 $nick siz zaten gizli durumdasınız. }
if (%MasterHidding == 0) || (%MasterHidding == $null) { msg $chan 2 $nick gizli duruma geçtiniz. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülmeyecek. | hidden $nick $nick $date $time $chan }
}
if ($2) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmadığı için işlem yapılamaz. }
if ($ini(operator.ini,$2)) {
if ($readini(operator.ini,$2,hidden) == 1) { msg $chan 2 $2 kullanıcısı zaten gizli durumda bulunuyor. }
if ($readini(operator.ini,$2,hidden) == 0) || ($readini(operator.ini,$2,hidden) == $null) { msg $chan 2 $2 gizli duruma geçti. Bundan sonra takip bilgileri, operatör bilgileri, operatör listesinde adı görülmeyecek. | hidden $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]goster/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) {
if (%MasterHidding == 0) || (%MasterHidding == $null) { msg $chan 2 $nick siz zaten gizli durumda değilsiniz. }
if (%MasterHidding == 1) { msg $chan 2 $nick gizli durumundan çıktınız. Bundan sonra takip bilgileriniz, operatör bilgileriniz, operatör listesinde adınız görülecek. | show $nick $nick $date $time $chan }
}
if ($2) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmadığı için işlem yapılamaz. }
if ($ini(operator.ini,$2)) {
if ($readini(operator.ini,$2,hidden) == 0) || ($readini(operator.ini,$2,hidden) == $null) { msg $chan 2 $2 kullanıcısı zaten gizli durumda bulunmuyor. }
if ($readini(operator.ini,$2,hidden) == 1) { msg $chan 2 $2 gizli durumdan çıkartıldı. Bundan sonra takip bilgileri, operatör bilgileri, operatör listesinde adı görülecek. | show $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]ekle/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if ($ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı $readini(follow.ini,$2,addop) tarafından $readini(follow.ini,$2,adddate) tarihinde $readini(follow.ini,$2,addtime) saatinde takip listesine eklenmiş. }
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesine eklendi. | followadd $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]sifirla/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinde bulunmuyor. }
if ($ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısının takip bilgileri sıfırlanmıştır. | followclean $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]osifirla/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmadığı için sıfırlanamaz. }
if ($ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısının operatör takip bilgileri sıfırlanmıştır. | operatorclean $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]tsifirla/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) { msg $chan 2Tüm kayıtlar sıfırlanmıştır. | cleanall $2 $nick $chan }
}
if ($regex($1,/^[&!.]oekle/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if ($2 == %master) { msg $chan 2Belirttiğiniz kişi $me botunun sahibidir, operatör listesine eklenemez. }
if ($2 != %master) {
if ($ini(operator.ini,$2)) { msg $chan 2 $2 zaten bir operatör. }
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör olarak eklendi. | operatoradd $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]osil/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if ($2 == %master) { msg $chan 2Belirttiğiniz kişi $me botunun sahibidir, operatör listesinden silinemez. }
if ($2 != %master) {
if (!$ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısı operatör listesinde yok. }
if ($ini(operator.ini,$2)) { msg $chan 2 $2 kullanıcısının operatör yetkisi kaldırıldı. | operatordel $2 $nick $date $time $chan }
}
}
}
}
if ($regex($1,/^[&!.]help/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
helptopic $2 $chan
}
}
if ($regex($1,/^[&!.]olist/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { operatorlist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]reboot/Si)) {
if ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($nick == %master) { msg $chan 2Yeniden başlatılıyor...(3-5 saniye içerisinde tekrar bağlanacaktır.) | reboot $nick $chan $date $time }
}
if ($regex($1,/^[&!.]top10/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { topten $chan $nick $date $time }
}
if ($regex($1,/^[&!.]optop10/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { optopten $chan $nick $date $time }
}
if ($regex($1,/^[&!.]yardim/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { help $nick $chan $date $time }
}
if ($regex($1,/^[&!.]sil/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if (!$2) { msg $chan 2Lütfen kullanıcı adı giriniz. }
if ($2) {
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinde zaten bulunmuyor. }
if ($ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinden çıkartılmıştır. | followdel $2 $nick $date $time $chan }
}
}
}
if ($regex($1,/^[&!.]list/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { followlist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]clist/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { onlinelist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]dlist/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if ($ini(operator.ini,$nick)) || ($nick == %master) { offlinelist $chan $nick $date $time }
}
if ($regex($1,/^[&!.]obilgi/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) && ($2) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if (!$2) {
if ($ini(operator.ini,$nick)) || ($nick == %master) { loginfo $nick $chan $nick $date $time }
if (!$ini(operator.ini,$nick)) && ($nick != %master) { msg $chan 2 $nick siz operatör listesinde bulunmuyorsunuz. }
}
if ($ini(operator.ini,$nick)) || ($nick == %master) {
if ($2) {
if ($ini(operator.ini,$2)) || ($2 == %master) { loginfo $2 $chan $nick $date $time }
if (!$ini(operator.ini,$2)) && ($2 != %master) { msg $chan 2 $2 kullanıcısı operatör listesinde bulunmamaktadır. }
}
}
}
if ($regex($1,/^[&!.]bilgi/Si)) {
if (!$ini(operator.ini,$nick)) && ($nick != %master) && ($2) { msg $chan 2Bu işlem için yetkiniz bulunmamaktadır. }
if (!$2) {
if ($ini(follow.ini,$nick)) { followinfo $nick $chan $nick $date $time }
if (!$ini(follow.ini,$nick)) { msg $chan 2 $nick siz takip listesinde bulunmuyorsunuz. }
}
if ($2) {
if ($ini(follow.ini,$2)) { followinfo $2 $chan $nick $date $time }
if (!$ini(follow.ini,$2)) { msg $chan 2 $2 kullanıcısı takip listesinde bulunmamaktadır. }
}
}
}
alias hidden {
write $+($2,.txt) 2 $+($date, - ,$time,:) $iif($1 == $2,Gizlilik moduna geçti.,$+(,$1) kullanıcısını gizlilik moduna geçirdi.)
if ($1 == %master) { set %MasterHidding 1 }
if ($1 != %master) { writeini -n operator.ini $1 hidden 1 }
}
alias show {
write $+($2,.txt) 2 $+($date, - ,$time,:) $iif($1 == $2,Gizlilik modundan çıktı.,$+(,$1) kullanıcısını gizlilik modundan çıkardı.)
if ($1 == %master) { set %MasterHidding 0 }
if ($1 != %master) { writeini -n operator.ini $1 hidden 0 }
}
alias cleanall {
var %ini = $ini(follow.ini,0), %x = 1
while (%x <= %ini) {
unset $+(%,$ini(follow.ini,%x))
inc %x
}
if ($file(follow.ini)) { remove follow.ini }
if ($file(operator.ini)) { remove operator.ini }
var %ini = $ini(operator.ini,0), %x = 1
while (%x <= %ini) {
if ($file($+($ini(operator.ini,%x),.txt))) { remove $+($ini(operator.ini,%x),.txt) }
inc %x
}
write $+($2,.txt) 2 $+($date, - ,$time,:) tüm bilgileri sıfırladı.
}
alias loginfo {
if ($1 == %master) && (%MasterHidding == 1) && ($3 != %master) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
if ($1 != %master) && ($readini(operator.ini,$1,hidden) == 1) && ($1 != $3) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
var %ini = $lines($+($1,.txt)), %x = 1
if (%ini == 0) { msg $2 2 $1 adlı operatörün hiçbir işlem kaydı bulunmamaktadır. }
while (%x <= %ini) {
timer 1 %x msg $2 $read($+($1,.txt),%x)
inc %x
}
write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının log bilgilerini sorguladı.
}
alias operatoradd {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesine ekledi.
writeini -n operator.ini $1 addop $2
writeini -n operator.ini $1 adddate $3
writeini -n operator.ini $1 addtime $4
writeini -n operator.ini $1 addchan $5
writeini -n operator.ini $1 hidden 0
}
alias followdel {
set $+(%,$1) 0
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesinden çıkardı.
remini -n follow.ini $1
if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
noti $1 2
}
alias followinfo {
if ($1 == %master) && (%MasterHidding == 1) && ($3 != %master) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
if ($1 != %master) && ($readini(operator.ini,$1,hidden) == 1) && ($1 != $3) { msg $2 2 $1 bir gizli operatördür, bilgilerine bakamazsınız. | return }
%x = $calc($eval($+(%,$1)))
save $1
msg $2 2 Kullanıcı Adı: $1 Durumu: $iif($timer($+(follow,$1)),Çevrimiçi,Çevrimdışı)
msg $2 2 Ekleyen Operatör, Kanal: $readini(follow.ini,$1,addop) $+ , $readini(follow.ini,$1,addchan)
msg $2 2 Eklenme Tarihi, Saati: $readini(follow.ini,$1,adddate) - $readini(follow.ini,$1,addtime)
msg $2 2 Son Çevrimiçi Olduğu Süre: $convert(%x)
msg $2 2 Toplam Çevrimiçi Olduğu Süre: $+( ,$convert($readini(follow.ini,$1,onlinetime)))
write $+($3,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sorguladı.
}
alias save {
writeini -n follow.ini $1 onlinetime $calc($readini(follow.ini,$1,onlinetime)+$eval($+( %,$1)))
set $+(%,$1) 0
}
alias update {
var %ini = $ini(follow.ini,0), %x = 1
while (%x <= %ini) {
save $ini(follow.ini,%x)
inc %x
}
}
alias operatorlist {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) Operatör listesini sorguladı.
if ($2 != %master) {
var %ini = $ini(operator.ini,0), %x = 1, %y = 0, %z = 1, %command = $ini(operator.ini,0)
while (%z <= %ini) {
if ($readini(operator.ini,$ini(operator.ini,%z),hidde n) == 1) { dec %command }
inc %z
}
if (%command == 0) && (%master != $null) && (%MasterHidding == 1) { msg $1 2Operatör listesinde kimse bulunmuyor. | return }
while (%x <= %ini) {
if ($readini(follow.ini,$ini(operator.ini,%x),onlinet ime)) && ($readini(operator.ini,$ini(operator.ini,%x),hidde n) == 0) { inc %y | save $ini(operator.ini,%x) | msg $1 2 $+(%y,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x) ,onlinetime)) }
if (!$readini(follow.ini,$ini(operator.ini,%x),online time)) && ($readini(operator.ini,$ini(operator.ini,%x),hidde n) == 0) { inc %y | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) }
inc %x
}
if (%master != $null) && (%MasterHidding == 0) {
inc %y
if ($readini(follow.ini,%master,onlinetime)) { save %master | msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan Çevrimiçi Süresi: $convert($readini(follow.ini,%master,onlinetime)) }
if (!$readini(follow.ini,%master,onlinetime)) { msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan }
}
}
if ($2 == %master) {
var %ini = $ini(operator.ini,0), %x = 1, %y = 0, %z = $calc(%ini + 1)
if (%z == 0) { msg $1 2Operatör listesinde kimse bulunmuyor. | return }
while (%x <= %ini) {
if ($readini(follow.ini,$ini(operator.ini,%x),onlinet ime)) { inc %y | save $ini(operator.ini,%x) | msg $1 2 $+(%y,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) Çevrimiçi Süresi: $convert($readini(follow.ini,$ini(operator.ini,%x) ,onlinetime)) }
if (!$readini(follow.ini,$ini(operator.ini,%x),online time)) { inc %y | msg $1 2 $+(%x,.) Kullanıcı Adı: $ini(operator.ini,%x) Ekleyen: $readini(operator.ini,$ini(operator.ini,%x),addop) Eklenme Tarihi, Saati: $readini(operator.ini,$ini(operator.ini,%x),adddat e) - $readini(operator.ini,$ini(operator.ini,%x),addtim e) Eklenen Kanal: $readini(operator.ini,$ini(operator.ini,%x),addcha n) }
inc %x
}
if (%master != $null) {
inc %y
if ($readini(follow.ini,%master,onlinetime)) { save %master | msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan Çevrimiçi Süresi: $convert($readini(follow.ini,%master,onlinetime)) }
if (!$readini(follow.ini,%master,onlinetime)) { msg $1 2 $+(%y,.) Kullanıcı Adı: %master Ekleyen Operatör: $me Eklenme Tarihi, Saati: %firstrunD - %firstrunT Eklenen Kanal: %opchan }
}
}
}
alias operatordel {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı operatör listesinden çıkardı.
remini -n operator.ini $1
operatorclean $1 $2
}
alias followadd {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcıyı takip listesine ekledi.
writeini -n follow.ini $1 addop $2
writeini -n follow.ini $1 adddate $3
writeini -n follow.ini $1 addtime $4
writeini -n follow.ini $1 addchan $5
writeini -n follow.ini $1 onlinetime 0
if ($1 ison %chan) { $+(.timerfollow,$1) 0 1 follow $1 }
noti $1 1 0
}
alias followclean {
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı kullanıcının takip bilgilerini sıfırladı.
writeini -n follow.ini $1 addop $2
writeini -n follow.ini $1 adddate $3
writeini -n follow.ini $1 addtime $4
writeini -n follow.ini $1 addchan $5
writeini -n follow.ini $1 onlinetime 0
set $+(%,$1) 0
if ($timer($+(follow,$1))) { $+(.timerfollow,$1) off }
if ($1 ison %chan) { $+(.timerfollow,$nick) 0 1 follow $1 }
}
alias operatorclean {
remove $+($1,.txt)
write $+($2,.txt) 2 $+($date, - ,$time,:) $1 adlı operatörün takip bilgilerini sıfırladı.
}
alias topten {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) TOP10 listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1
if (%ini == 0) { msg $1 2TOP10 listesinde kimse bulunmuyor. }
if (%ini != 0) {
while (%x <= %ini) {
%y = $ini(follow.ini,%x)
if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
inc %x
}
var %n = 1
while ($findval(%n) != $null) && (%n <= 10) {
if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
inc %n
}
cleanpoints
msg $1 %topten
}
}
alias optopten {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) OPTOP10 listesini sorguladı.
var %ini = $ini(operator.ini,0), %x = 1
if (%ini == 0) { msg $1 2OPTOP10 listesinde kimse bulunmuyor. }
if (%ini != 0) {
while (%x <= %ini) {
%y = $ini(operator.ini,%x)
if ($readini(follow.ini,%y,onlinetime)) { set $+(%,%y,.points) $readini(follow.ini,%y,onlinetime) }
inc %x
}
if ($readini(follow.ini,%master,onlinetime)) { set $+(%,%master,.points) $readini(follow.ini,%master,onlinetime) }
var %n = 1
while ($findval(%n) != $null) && (%n <= 10) {
if (%n == 1) { %topten = 12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
if (%n != 1) { %topten = %topten $+ ,12 $+(%n,.) 2 $findval(%n) $+ ( $+ $convert($findval(%n).val) $+ ) }
inc %n
}
cleanpoints
msg $1 %topten
}
}
alias cleanpoints {
var %i = 1
while $var(%*.points, %i) {
unset $+(%,$remove($ifmatch,$chr(37),.points),.points)
}
}
alias findval {
if ($1 == 0) return $var(%*.points,0)
window -sh @sort 0 0 100 100
var %i = 1
while ($var(%*.points,%i)) {
aline @sort $base( [ [ $ifmatch ] ] ,10,10,10) $remove($ifmatch,$chr(37),.points)
inc %i
}
var %info = $line(@sort,$calc($line(@sort,0) - $iif($1 isnum,$1,$fline(@sort,$1,1)) + 1))
window -c @sort
if ($prop == val) {
var %regex = $regex(sort,$gettok(%info,1,32),m~0*(\d*)~g)
return $regml(sort,1)
}
else return $gettok(%info,2,32)
}
alias help {
timer 1 1 msg $2 2[!&.]gizle NICK: NICK operatörün işlem kayıtları, operatör listesindeki adını göstermemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 1 yazınız.
timer 1 2 msg $2 2[!&.]&goster NICK: Gizlenme modu aktif edilen NICK operatörünün gizlilik modunu açmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 2 yazınız.
timer 1 3 msg $2 2[!&.]&ekle NICK: NICK adlı kullanıcıyı takip listesine eklemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 3 yazınız.
timer 1 4 msg $2 2[!&.]&sil NICK: NICK adlı kullanıcıyı takip listesinden çıkarmak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 4 yazınız.
timer 1 5 msg $2 2[!&.]&list: Takip listesindeki kullanıcıları listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 5 yazınız.
timer 1 6 msg $2 2[!&.]&bilgi NICK: Takip listesinde bulunan NICK kullanıcısının takip bilgilerini görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 6 yazınız.
timer 1 7 msg $2 2[!&.]&top10: Takip listesinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 7 yazınız.
timer 1 8 msg $2 2[!&.]&clist: Takip listesindeki çevrimiçi kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 8 yazınız.
timer 1 9 msg $2 2[!&.]&dlist: Takip listesindeki çevrimdışı kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 9 yazınız.
timer 1 10 msg $2 2[!&.]&sifirla NICK: NICK adlı kullanıcının takip bilgilerini sıfırlamak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 10 yazınız.
timer 1 11 msg $2 2[!&.]&osifirla NICK: NICK adlı operatörün işlem kaydını sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 11 yazınız.
timer 1 12 msg $2 2[!&.]&tsifirla : Tüm kullanıcıların takip bilglierini, takip listesini; operatörlerin işlem kaydını, operatör listesini sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 12 yazınız.
timer 1 13 msg $2 2[!&.]&oekle NICK: NICK adlı kullanıcı operatör listesine eklemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 13 yazınız.
timer 1 14 msg $2 2[!&.]&osil NICK: NICK adlı operatörü operatör listesinden çıkarmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 14 yazınız.
timer 1 15 msg $2 2[!&.]&olist: Operatör yetkisine sahip kullanıcıları görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 15 yazınız.
timer 1 16 msg $2 2[!&.]&obilgi NICK: Operatör listesinde bulunan NICK operatörünün işlem kaydını görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 16 yazınız.
timer 1 17 msg $2 2[!&.]&optop10: Takip listesinde bulunan operatörlerin içinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 17 yazınız.
timer 1 18 msg $2 2[!&.]&reboot: $me botunun yeniden başlatılması için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 18 yazınız.
}
alias helptopic {
if ($1 == 1) {
msg $2 2[!&.]&gizle NICK Komutu ve Kullanımı
msg $2 2Bu komutu sadece MASTER kullanabilir.
msg $2 2MASTER:Bu kullanıcılar kendilerini &gizle komutu ile gizleme moduna geçebilirler.
msg $2 2ÖRNEK: Lociz kişisi MASTER'dir.
msg $2 2<Lociz> &gizle
msg $2 2<LBot> Lociz gizli duruma geçtiniz, bundan sonra operatör bilgileriniz, operatör listesinde adınız görülmeyecek.
msg $2 2BAŞKA BİRİ İÇİN:&gizle OperatörNicki şeklinde kullanılır.
msg $2 2ÖRNEK:Lociz kişisi MASTER, Owner kişisi OPERATÖR'dür.
msg $2 2<Lociz> &gizle Owner
msg $2 2<LBot> Owner gizli duruma geçti, bundan sonra operatör bilgileri, operatör listesinde adı görülmeyecek.
}
else { msg $2 2 $1 konulu yardım dosyası henüz aktif değil. }
}
alias followlist {
update
write $+($2,.txt) 2 $+($date, - ,$time,:) Takip listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1
if (%ini == 0) { msg $1 2Takip listesinde kimse bulunmuyor. }
while (%x <= %ini) {
save $ini(follow.ini,%x)
msg $1 2 $+(%x,.) Kullanıcı Adı: $iif($ini(follow.ini,%x),$ini(follow.ini,%x),HATA![KOD:1]) Ekleyen: $iif($readini(follow.ini,$ini(follow.ini,%x),addop ),$readini(follow.ini,$ini(follow.ini,%x),addop),H ATA![KOD:1]) Eklenme Tarihi, Saati: $iif($readini(follow.ini,$ini(follow.ini,%x),addda te),$readini(follow.ini,$ini(follow.ini,%x),adddat e),HATA![KOD:1]) - $iif($readini(follow.ini,$ini(follow.ini,%x),addti me),$readini(follow.ini,$ini(follow.ini,%x),addtim e),HATA![KOD:1]) Eklenen Kanal: $iif($readini(follow.ini,$ini(follow.ini,%x),addch an),$readini(follow.ini,$ini(follow.ini,%x),addcha n),HATA![KOD:1]) Çevrimiçi Süresi: $convert($iif($readini(follow.ini,$ini(follow.ini, %x),onlinetime),$readini(follow.ini,$ini(follow.in i,%x),onlinetime),0))
inc %x
}
}
alias convert { return $replace($duration($1,0),wks,$chr(32) hft,wk,$chr(32) hft,mins,$chr(32) dk,hrs,$chr(32) saat,secs,$chr(32) sn,min,$chr(32) dk,hr,$chr(32) saat,sec,$chr(32) sn,days,$chr(32) gün,day,$chr(32) gün) }
alias reboot {
write $+($1,.txt) 2 $+($date, - ,$time,:) $me botunu yeniden başlattı.
set %restart 1
set %restartuser $1
exit -nr
}
alias follow {
if ($1 ison %chan) && ($ini(follow.ini,$1)) { inc -e $+(%,$1) }
if ($1 !ison %chan) || (!$ini(follow.ini,$1)) { noti $1 2 | save $1 | $+(.timerfollow,$1) off }
}
on *:nick: {
if ($ini(follow.ini,$newnick)) { noti $newnick 3 | $+(.timerfollow,$newnick) 0 1 follow $newnick }
}
on *:join:#: {
if ($chan == %chan) {
if ($nick == $me) { timerchck 1 1 checkstart }
if ($ini(follow.ini,$nick)) { noti $nick 1 1 | $+(.timerfollow,$nick) 0 1 follow $nick }
}
if ($chan == %opchan) {
if ($nick == $me) {
inc %run 1
if (%run == 1) { set %firstrunD $date | set %firstrunT $time }
msg $chan 2 $me botunun $chan kanalına $+(%run,.) girişidir.
if ($nick == $me) && (%restart == 1) { .msg $chan 2 $me botu %restartuser tarafından yeniden başlatılmıştır. | unset %restart | unset %restartuser }
}
}
}
alias checkstart {
var %ini = $ini(follow.ini,0), %x = 1
while (%x <= %ini) {
if ($ini(follow.ini,%x) ison %chan) && (!$timer($ini(follow.ini,%x))) { .noti $ini(follow.ini,%x) 1 0 | $+(.timerfollow,$ini(follow.ini,%x)) 0 1 follow $ini(follow.ini,%x) }
inc %x
}
}
alias noti {
if ($2 == 1) && ($3 == 1) { .notice $1 2Hoşgeldiniz, $+($1,.) Süreniz başlamıştır. }
if ($2 == 1) && ($3 == 0) { .notice $1 2Süreniz başlamıştır. }
if ($2 == 2) && ($1 ison %chan) { .notice $1 2Süreniz durdurulmuştur. }
if ($2 == 3) { .notice $1 2Süreniz tekrar başlamıştır. }
}
alias onlinelist {
write $+($2,.txt) 2 $+($date, - ,$time,:) Çevrimiçi listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1, %y = 0
while (%x <= %ini) {
if ($timer($+(follow,$ini(follow.ini,%x)))) { inc %y | msg $1 2 $+(%y,.) Kullanıcı Adı: $+($ini(follow.ini,%x),[Çevrimiçi]) Aktif Süre: $convert($calc($eval($+(%,$ini(follow.ini,%x))))) }
inc %x
}
if (%y == 0) { msg $1 2Çevrimiçi kimse bulunmuyor. }
}
alias offlinelist {
write $+($2,.txt) 2 $+($date, - ,$time,:) Çevrimdışı listesini sorguladı.
var %ini = $ini(follow.ini,0), %x = 1, %y = 0
while (%x <= %ini) {
if (!$timer($+(follow,$ini(follow.ini,%x)))) { inc %y | msg $1 2 $+(%y,.) Kullanıcı Adı: $+($ini(follow.ini,%x),[Çevrimdışı]) }
inc %x
}
if (%y == 0) { msg $1 2Çevrimdışı kimse bulunmuyor. }
}
Log:
[23:32:38] <@Lociz> &yardim
[23:32:40] <LBot> 2[!&.]gizle NICK: NICK operatörün işlem kayıtları, operatör listesindeki adını göstermemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 1 yazınız.
[23:32:41] <LBot> 2[!&.]&goster NICK: Gizlenme modu aktif edilen NICK operatörünün gizlilik modunu açmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 2 yazınız.
[23:32:42] <LBot> 2[!&.]&ekle NICK: NICK adlı kullanıcıyı takip listesine eklemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 3 yazınız.
[23:32:43] <LBot> 2[!&.]&sil NICK: NICK adlı kullanıcıyı takip listesinden çıkarmak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 4 yazınız.
[23:32:43] <LBot> 2[!&.]&list: Takip listesindeki kullanıcıları listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 5 yazınız.
[23:32:44] <LBot> 2[!&.]&bilgi NICK: Takip listesinde bulunan NICK kullanıcısının takip bilgilerini görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 6 yazınız.
[23:32:45] <LBot> 2[!&.]&top10: Takip listesinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 7 yazınız.
[23:32:46] <LBot> 2[!&.]&clist: Takip listesindeki çevrimiçi kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 8 yazınız.
[23:32:47] <LBot> 2[!&.]&dlist: Takip listesindeki çevrimdışı kullanıcıları için listelemek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 9 yazınız.
[23:32:48] <LBot> 2[!&.]&sifirla NICK: NICK adlı kullanıcının takip bilgilerini sıfırlamak için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 10 yazınız.
[23:32:49] <LBot> 2[!&.]&osifirla NICK: NICK adlı operatörün işlem kaydını sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 11 yazınız.
[23:32:50] <LBot> 2[!&.]&tsifirla : Tüm kullanıcıların takip bilglierini, takip listesini; operatörlerin işlem kaydını, operatör listesini sıfırlamak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 12 yazınız.
[23:32:51] <LBot> 2[!&.]&oekle NICK: NICK adlı kullanıcı operatör listesine eklemek için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 13 yazınız.
[23:32:52] <LBot> 2[!&.]&osil NICK: NICK adlı operatörü operatör listesinden çıkarmak için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 14 yazınız.
[23:32:53] <LBot> 2[!&.]&olist: Operatör yetkisine sahip kullanıcıları görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 15 yazınız.
[23:32:54] <LBot> 2[!&.]&obilgi NICK: Operatör listesinde bulunan NICK operatörünün işlem kaydını görmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 16 yazınız.
[23:32:55] <LBot> 2[!&.]&optop10: Takip listesinde bulunan operatörlerin içinde en çok kim çevrimiçi oluyor? Öğrenmek için kullanılan komuttur. Sadece OPERATÖR ve MASTER yetkisine sahip kullanıcılar kullanabilir. Kullanım detayı için: &help 17 yazınız.
[23:32:56] <LBot> 2[!&.]&reboot: LBot botunun yeniden başlatılması için kullanılan komuttur. Sadece MASTER yetkisine sahip kullanıcı kullanabilir. Kullanım detayı için: &help 18 yazınız.
Yapımcı: Lociz