| rewal | 08 Temmuz 2019 11:51 |
Cevap: Kendi Konuşan Bot'unuzu Yapın
Alıntı:
muratt_aziz Nickli Üyeden Alıntı
(Mesaj 685422)
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...]
|
birşey soracağım bu botta örneğin Numara yazınca botun cvp ayak numarasımı diye gidiyor karşıya ama Ara yazıncada aynı cevap gidiyor bunu nasıl önleyebilirim Numara ve Ara kelimelerine aynı cevap gitmesin :) |
