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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - konuşan bot (https://www.ircforumlari.net/mirc-scripting-sorunlari/196220-konusan-bot.html)

s.a arkadaşlar konuşan bot dialoğu yapmaya çalışıyorum takıldım biyerde
check ler calışmıyor işaretliyorum kapatıp acınca işaret kalkıyor anlayamadım nedenini
check "on", 13, 22 60 19 10
check "on", 14, 81 59 19 10

Kod:

dialog botcuk {

  title "BOT Banali"

  size -1 -1 136 156

  option dbu

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

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

  button "Kelime Oku", 3, 24 80 37 12

  button "Kelime Sil", 4, 24 96 37 12

  button "Boto kapat", 5, 53 112 31 12, ok

  text "Özel konuşma", 7, 15 48 40 12

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

  text "By_MuraTT", 9, 88 135 30 11

  box "Bot Ayar Menüsü", 10, 9 5 119 123

  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 11, 15 136 58 10

  icon 12, 51 26 25 16,  C:\Documents and Settings\aziz\Desktop\aziz\icon\diger.ico, 0

  check "on", 13, 22 60 19 10

  check "on", 14, 81 59 19 10

}

 

 

on *:dialog:botcuk:sclick:1:{ if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\h.g.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }

}

on *:dialog:botcuk:sclick:2:{

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

  titlebar @Görüntüleme aziz\h.g.txt içeriği

  loadbuf @Görüntüleme aziz\h.g.txt

}

on *:dialog:botcuk:sclick:3:{ //echo -a $read(aziz\h.g.txt,$$?="numarası:")  }

on *:dialog:botcuk:sclick:4:{

  if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 

    if $read(aziz\h.g.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\h.g.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\h.g.txt | goto zıpzıp } 

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

  }

}

on *:dialog:botcuk:init:*: {

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

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

}

on *:dialog:botcuk:sclick:13: {

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

  else {  /.enable #ozelmuhabbet  }

}

on *:dialog:botcuk:sclick:14: {

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

  else {  /.enable #kanalmuhabbet }

}

#kanalmuhabbet off

on *:text:*h.g*:#:{ msg # $read $mircdiraziz\h.g.txt | halt }

 

#kanalmuhabbet end

 

;****************************************************************************************;

#ozelmuhabbet off

on *:text:*olabilir*:?: /.timer 1 5 /msg $nick $read $mircdiraziz\h.g.txt

 

#ozelmuhabbet end

Cevap: konuşan bot

Tamam buldum arkadaşlar kendi konuma kendim cvp vermekmiş nasip :)

kırmızı belirtiğim yerleri yanlış yazmışım :)

Alıntı:

muratt_aziz Nickli Üyeden Alıntı (Mesaj 684100)

Kod:

dialog botcuk {

  title "BOT Banali"

  size -1 -1 136 156

  option dbu

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

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

  button "Kelime Oku", 3, 24 80 37 12

  button "Kelime Sil", 4, 24 96 37 12

  button "Boto kapat", 5, 53 112 31 12, ok

  text "Özel konuşma", 7, 15 48 40 12

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

  text "By_MuraTT", 9, 88 135 30 11

  box "Bot Ayar Menüsü", 10, 9 5 119 123

  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 11, 15 136 58 10

  icon 12, 51 26 25 16,  C:\Documents and Settings\aziz\Desktop\aziz\icon\diger.ico, 0

  check "on", 13, 22 60 19 10

  check "on", 14, 81 59 19 10

}

 

 

on *:dialog:botcuk:sclick:1:{ if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\h.g.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }

}

on *:dialog:botcuk:sclick:2:{

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

  titlebar @Görüntüleme aziz\h.g.txt içeriği

  loadbuf @Görüntüleme aziz\h.g.txt

}

on *:dialog:botcuk:sclick:3:{ //echo -a $read(aziz\h.g.txt,$$?="numarası:")  }

on *:dialog:botcuk:sclick:4:{

  if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 

    if $read(aziz\h.g.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\h.g.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\h.g.txt | goto zıpzıp } 

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

  }

}

on *:dialog:botcuk:init:*: {

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

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

}

on *:dialog:botcuk:sclick:13: {

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

  else {  /.enable #ozelmuhabbet  }

}

on *:dialog:botcuk:sclick:14: {

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

  else {  /.enable #kanalmuhabbet }

}
 #kanalmuhabbet off
 on *:text:*h.g*:#:{ msg # $read $mircdiraziz\h.g.txt | halt }
 
 #kanalmuhabbet end
 
 ;****************************************************************************************;
 #ozelmuhabbet off
 on *:text:*olabilir*:?: /.timer 1 5 /msg $nick $read $mircdiraziz\h.g.txt
 
 #ozelmuhabbet end

Cevap: konuşan bot

bunun tamamını paylaşabilirmisin muratt_aziz kardeş?

Cevap: konuşan bot

Daha yeni yeni yapıyorum bitince paylaşırım :)

Cevap: konuşan bot

ayıkmışın iyi takip edersen hatasız yaparsın. bilgini paylasman gusel.

Cevap: konuşan bot

kendi çapında çok iyi işlere imza atıyor umarım bu hevesi hiçbir zaman kırılmaz :)

Cevap: konuşan bot

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bişeyler yapmaya çalışıyorum umarım faydalı olur :)

Cevap: konuşan bot

Alıntı:

DenperaS Nickli Üyeden Alıntı (Mesaj 684259)

bunun tamamını paylaşabilirmisin muratt_aziz kardeş?

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Burdan kullanabilirsin

Cevap: konuşan bot

tamam kendi botumu yapacağım öğreneceğim sizede öğretirim artık bir şeyler:) sağolasın