| Masters | 15 Temmuz 2010 10:32 |
Cevap: ircserviceste mircten quit
Alıntı:
;| PAPATYA mIRC Script v5
;| Coded by bLackStar 2006 ©
;| [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;|
;| Tüm hakları SiberTR Internet Hizmetleri'ne aittir.
;| [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;SERVICES BOT CYCLE v1.0
;Coded by bLackStar
alias cyclebot { dialog -m papatyacyclebot papatyacyclebot }
dialog papatyacyclebot {
title "PAPATYA v5 - Services Bot Cycle Sistem by bLackStar"
size -1 -1 362 280
box "" 1, 1 45 359 53
icon 2, -20 -27 400 105, papatyaimg/sbcs.jpg
text "Cycle Sistem ile, belirteceğiniz kanalda sistemin yaratacağı botlar siz PAPATYA v5'i açık tuttuğunuz sürece giriş çıkış yapacaktır. Bu sistemi kullanabilmek için nickinizde admin yetkisi olmalıdır." 3, 5 55 350 40
box "" 4, 1 94 359 115
text "Services Adresi:" 5, 60 108 100 15
edit "", 7, 160 106 150 20,autohs
text "Cycle Kanalı:" 6, 60 130 100 15
edit "", 8, 160 128 100 20,autohs
text "Bot Adeti:" 50, 60 154 100 15
edit "", 51, 160 150 100 20,autohs
text "Konuşma Modu:" 52, 60 176 100 15
radio "Açık" 53, 160 176 50 15,
radio "Kapalı" 54, 210 176 100 15,
text "* Birden çok kanala sokmak için kanalları virgün (,) ile ayırın." 9, 60 191 284 15, disable
box "" 10, 1 205 359 67
button "+ Botları Sok +" 11, 20 217 150 20
button "- Botları Çıkart -" 12, 180 217 150 20
button "Başlattıktan sonra buraya tıklayıp bu pencereyi kapatınız." 13, 20 245 310 20, ok
}
on *:DIALOG:papatyacyclebot:init:0:{
did -a $dname 7 %sbserver
did -a $dname 8 %sbkanal
did -a $dname 51 %sbadet
if (%sbdurum == ON) { did -b $dname 11 }
if (%sbdurum == OFF) { did -b $dname 12 }
if (%sbkonusma == ON) { did -c $dname 53 }
if (%sbkonusma == OFF) { did -c $dname 54 }
}
on 1:dialog:papatyacyclebot:sclick:*:{
if ($did == 11) {
set %sbserver $did(7)
set %sbkanal $did(8)
set %sbadet $did(51)
set %sbdurum ON
timer %sbadet 0 /papatya-bot
did -b $dname 11
did -e $dname 12
}
if ($did == 12) {
set %sbdurum OFF
did -e $dname 11
did -b $dname 12
botlariat
}
if ($did == 53) { set %sbkonusma ON }
if ($did == 54) { set %sbkonusma OFF }
}
alias papatya-nick /set %papatya-nick $read $mircdirpapatyasys\service.txt
alias papatya-ident /set %papatya-ident $read $mircdirpapatyasys\ident.txt
alias papatya-fullname /set %papatya-fullname $read $mircdirpapatyasys\fullname.txt
alias papatya-host /set %papatya-host $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(111,999) $+ . $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ . $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(A,Z) $+ $rand(A,Z) $+ .IP
alias papatya-bot {
/papatya-nick
/papatya-ident
/papatya-fullname
/papatya-host
/Operserv Raw : NICK %papatya-nick 1 1 %papatya-ident %papatya-host %sbserver : %papatya-fullname
/echo @CycleSistem 4( $+ $time $+ ) BOT: %papatya-nick oluşturuldu!
/write papatyasys/bagliservicesbot.txt %papatya-nick
/cycleyap %papatya-nick
}
alias cycleyap {
window @CycleSistem
set -e %cycle_ $+ $1 $1
set %cyclegir $rand(1,60)
set %cyclecik %cyclegir + $rand(100,800)
.timer 1 %cyclegir /os raw : $+ $1 join %sbkanal
.timer 1 %cyclegir /echo @CycleSistem 3( $+ $time $+ ) GİRİŞ: $1 %sbkanal kanalına girdi. %cyclecik saniye sonra kanaldan çıkacak.
.timer 1 %cyclecik /os raw : $+ $1 part %sbkanal
.timer 1 %cyclecik /echo @CycleSistem 2( $+ $time $+ ) ÇIKIŞ: $1 %sbkanal kanalından çıktı. %cyclegir saniye sonra kanala yeniden girecek.
.timer 1 %cyclecik /cycleyap %cycle_ $+ $1
if (%sbkonusma == ON) {
set %czrandom $rand(1,5)
if (%czrandom == 2) {
mesajhesapla
.timer 1 %czmesaj /os raw : $+ $1 PRIVMSG %sbkanal $read $mircdirpapatyasys\mesajlar.txt
.timer 1 %czmesaj /os raw svsmode %papatya-nick +iwtR
.timer 1 %czmesaj /echo @CycleSistem 5( $+ $time $+ ) MESAJ: $1 %sbkanal kanalına mesaj yazdı.
}
}
}
alias mesajhesapla {
.set %czmesaj %cyclegir + 2
}
alias botlariat {
set %sbbotsayisi $lines(papatyasys/bagliservicesbot.txt)
var %i 1
while %i <= $lines(papatyasys/bagliservicesbot.txt) {
os raw : $+ $read(papatyasys/bagliservicesbot.txt,%i) QUIT Botlar Yok Edildi. - Services Bot Cycle Sistem!
inc %i
if (%sbbotsayisi = %i) { /echo @CycleSistem 2--- Tüm Botlar YOK EDİLDİ --- | /write -c papatyasys/bagliservicesbot.txt | timer* off }
}
}
| kodlama bu sekilde burda txt den okudugu nickleri belirli aralıklarla kanala join/part yaptırıyor. |
