Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $2 == MODE {
var %chan $3
var %mode $4
var %mnick $5
if $4 == -v {
if $3 == #operhelp {
sw $sockname KICK $3 $5 : $+ $botfnick($1) tarafindan voice'iniz alindi. #OperHelp kanalında bekleme yapmak yasaktır hoş sohbetler dileriz ...
}
}
if %chan == #operhelp {
if *-* !iswm $4 {
if *+* iswm $4 {
if *q* iswm $4 || *a* iswm $4 || *o* iswm $4 {
;sw MNet SAJOIN $botfnick($1) #helpers
}
}
}
if %mode == +v {
sw $sockname privmsg #helpdesk : $+ %mnick usere $unick($1) "helpdesk" yardım vermektedir.
if (%voices1. [ $+ [ $unick($1) ] ]) {
inc %voices1. [ $+ [ $unick($1) ] ] 1
goto yaz
}
eLse {
set %voices1. [ $+ [ $unick($1) ] ] 1
goto yaz
}
}
goto son
:yaz
write -s $+ $unick($1) voices1.txt $unick($1) nicki %voices1. [ $+ [ $unick($1) ] ] kez yardım verdi
haLt
:son
haLt
}
}
if $2 == MODE {
var %chan $3
var %mode $4
var %mnick $5
if $4 == -v {
if $3 == #help {
sw $sockname KICK $3 $5 : $+ $botfnick($1) tarafindan voice'iniz alindi. #Help kanalında bekleme yapmak yasaktır hoş sohbetler dileriz ...
}
}
if %chan == #help {
if *-* !iswm $4 {
if *+* iswm $4 {
if *q* iswm $4 || *a* iswm $4 || *o* iswm $4 {
sw MNet SAJOIN $botfnick($1) #helpers,#eğitim,#sınav
}
}
}
if %mode == +v {
sw $sockname privmsg #helpers : $+ %mnick usere $unick($1) "helper" yardım vermektedir.
if (%voice. [ $+ [ $unick($1) ] ]) {
inc %voice. [ $+ [ $unick($1) ] ] 1
goto yaz
}
eLse {
set %voice. [ $+ [ $unick($1) ] ] 1
goto yaz
}
}
goto son
:yaz
write -s $+ $unick($1) voices.txt $unick($1) nicki %voice. [ $+ [ $unick($1) ] ] kez yardım verdi
haLt
:son
haLt
}
}
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $2 == PRIVMSG && $3 == #helpers {
var %irt $right($4-,-1)
if $gettok(%irt,1,32) == !rapor && (Sysop_* iswm $botfnick($1) || *Visor_* iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Admin_* iswm $botfnick($1) || $botfnick($1) == MNet) {
sw $sockname privmsg #helpers 4Muhabbet1.4NET 1Helper'lerinin #help kanalında verdikleri voice sayısı;
var %s 1
while %s <= $lines(voices.txt) {
sw $sockname privmsg #helpers > $read(voices.txt,%s)
inc %s
}
}
}
if $2 == PRIVMSG && $3 == #helpdesk {
var %irt $right($4-,-1)
if $gettok(%irt,1,32) == !rapor && (Sysop_* iswm $botfnick($1) || Helpdesk_Murat iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Admin_* iswm $botfnick($1) || $botfnick($1) == MNet) {
sw $sockname privmsg #helpdesk 4Muhabbet1.4NET 1Helpdesk_'lerinin #operhelp kanalında verdikleri voice sayısı;
var %s 1
while %s <= $lines(voices1.txt) {
sw $sockname privmsg #helpdesk > $read(voices1.txt,%s)
inc %s
}
}
}
Kodlari verebilirim nereye koyağınıda söyleyeyim helpbot' koyacaksın. Scriptin kurulu olduğu dosya içinede iki tane txt acıcaksın voices.txt voices1.txt yapacaksın isimlerini silmesinide soracak olursan daha yapmadım onu yapınca veririm.