alias servicesbot { dialog -m papatyaservicesbot papatyaservicesbot }
dialog papatyaservicesbot {
  title "PAPATYA v5 Services Bot Oluşturucu"
  size -1 -1 245 250
  box "" 1, 1 1 243 248
  text "PapatyA Services Bot Creator v2.0" 2, 35 10 200 15
  text "+ Genel Bilgiler +" 4, 10 30 100 15
  text "Services Adresi»" 3, 10 50 100 15
  edit "services.sibertr.net" 12, 100 49 130 20,autohs
  text "Kac Tane»" 5, 10 67 150 15
  edit "300" 13, 100 65 130 20,autohs
  text "+ Botların Gireceği Kanallar +" 6, 10 85 200 15
  text "1»" 7, 10 105 50 15
  edit "#Kanal-1" 14, 50 105 130 20,autohs
  text "2»" 8, 10 120 50 15
  edit "#Kanal-2" 15, 50 120 130 20,autohs
  text "3»" 9, 10 135 50 15
  edit "#Kanal-3" 16, 50 135 130 20,autohs
  text "4»" 10, 10 150 50 15
  edit "#Kanal-4" 17, 50 150 130 20,autohs
  text "5»" 11, 10 165 50 15
  edit "#Kanal-5" 18, 50 165 130 20,autohs
  button "Botlari Olustur" 19, 24 190 200 25
  button "Yardım!" 20, 24 220 100 20
  button "Kapat" 21, 124 220 100 20, ok
}
On *:DIALOG:papatyaservicesbot:*:* {
  if ($devent == sclick) { 
    if ($did == 20 ) { serviceshelp }
    if ($did == 19 ) { .set %os-services $did(12) | .set %os-timer $did(13) | .set %kanal1 $did(14) | .set %kanal2 $did(15) | .set %kanal3 $did(16) | .set %kanal4 $did(17) | .set %kanal5 $did(18) | /timer %os-timer 1 /os-bot }
  }
}
menu status,menubar { 
  - 
  †IRC Services Bot†:/dialog -m papatyaservicesbot papatyaservicesbot
  - 
}

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, resimler/resim.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 /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 PAPATYA v5 - 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 }
  }
}
menu status,menubar { 
  - 
  †IRC Cycle Bot†:/dialog -m papaytacyclebot papatyacyclebot
  - 
}