IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Kendi Konuşan Bot'unuzu Yapın (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/196732-kendi-konusan-botunuzu-yapin.html)

Kendi Konuşan Bot'unuzu Yapın

Bot klasörünü mircin ana klasörü icersine koyunuz
Yuklemek icin
/load -rs bot\cas.txt
yazınız

Dialog sayesinde Kendi botunuzu yapabilir düzenleye bilirsiniz

Kod:

 

dialog cas {

  title "Konuşan BoT Oluşturma Panali"

  size -1 -1 136 144

  option dbu

  button "Kelime Ekle", 1, 72 96 42 12

  button "Görüntüle", 2, 72 80 42 12

  button "Kelime Sil", 4, 20 96 41 12

  button "KAPAT", 5, 53 125 31 12, ok

  text "Özel konuşma", 7, 24 32 40 12

  text "Kanal Konuşma", 8, 72 32 40 12

  box "Ayarlar", 10, 8 16 119 108

  icon 12, 56 13 25 16,  bot\diger.ico, 0

  check "on", 13, 38 45 19 10

  check "on", 14, 87 45 19 10

  button "Dosya ekle", 3, 20 80 41 12

  text "Bot\dosyanızınadı.txt", 6, 35 67 54 10

  text "Bot Dosya Kullanımı", 15, 35 57 49 8

  text "Metininiz", 16, 91 67 25 9

  text "By MuraTT", 9, 104 128 30 8

  text "Bot kod klasörü     bot\cas.txt   dedir", 11, 20 112 103 8

}

on *:dialog:cas:sclick:1:{ if $input(Dosya örnek: bot\Dosyanız.txt kelimeniz,e,Metin girme paneli) != $null { write $token($!,1,32) $gettok($!,2-,32)  | echo -a $token($!,1,32) belgesine06" $gettok($!,2-,32) " eklendi.  }

}

on *:dialog:cas:sclick:2:{

  set %txtkontrolgör $input(Belge örn: bot\Dosyaadı.txt,eo,TXT Görüntüleme Paneli)

  if %txtkontrolgör == $null { goto zıpzıp }

  else {

    $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

    loadbuf @Görüntüleme $!

  }

}

on *:dialog:cas:sclick:3:{

  run notepad.exe $+(bot\,$$?="Dosya adı:")

}

on *:dialog:cas:sclick:4:{

  if $input(Dosya örnek: bot\dosya.txt satır başlangıcı,e,Metin silme paneli) != $null { 

    if $read($token($!,1,32),w,$+(*,$gettok($!,2-,32),*)) { echo -a 06" $read($token($!,1,32),$readn) " silindi. | write $+(-dl,$readn) $token($!,1,32)  } 

    else { echo -a Böyle bir satır bulunamadı }

  }

}

on *:dialog:cas:init:*: {

  if ($group(#ozelmuhabbet).status == on )  did -c cas 13

  if ($group(#kanalmuhabbet).status == on )   did -c cas 14

}

on *:dialog:cas:sclick:13: {

  if ($group(#ozelmuhabbet).status == on ) { .disable #ozelmuhabbet  }

  else {  /.enable #ozelmuhabbet  }

}

on *:dialog:cas:sclick:14: {

  if ($group(#kanalmuhabbet).status == on ) { .disable #kanalmuhabbet  }

  else {  /.enable #kanalmuhabbet }

}

Yükleme linki
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]