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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   boT (https://www.ircforumlari.net/mirc-scripting-sorunlari/299296-bot.html)

---erhan 16 Kasım 2009 20:10

boT
 
Bır Sorum Daha Olcak Hocam Yardımcı Olursanız Makbule gecerım Ya ben Botuma Soyle Bırsey Eklıycem Yonetım Kanalına her 10 Dk da Bır pazar gunu Toplantımız Vardır herkez katılmak zorunda dıye bır yazı atsın ozele degıl kanala oyle bırsey yapma sansımız varmı veya her hernagı bır yonetıcı kanala gırıs yaptıgı zaman oto atsın kanala yazıyı

yaLin 16 Kasım 2009 21:32

Cevap: boT
 
Kod:

alias globalmesaj {
  if $dialog(Global) == $null {
    dialog -m Global Global
  }
}
dialog Global {
  title "Global Mesaj Bildirim Listesi"
  size -1 -1 590 375
  button "Sil", 1, 500 265 70 20
  list 2, 10 20 570 235, sort
  box "Mesajlar", 3, 5 5 580 255
  edit "", 4, 10 320 555 20, autohs
  box "Eklenecek mesajı girin", 5, 5 300 565 45
  button "Ekle", 6, 410 265 70 20
  box "Not:", 7, 5 260 185 35
  text "Süre kısmına rakam(Saniye) yazınız", 8, 15 275 280 45
  edit "Süre", 9, 200 265 40 20, autohs
  button "Başlat", 10, 260 265 70 30,ok
  button "Durdur", 12, 335 265 50 25
  link "By Difuzyon", 11, 180 350 250 17
}
on *:dialog:Global:sclick:*: {
  if $did == 1 { $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }
  if $did == 6 { if ($did(4) != $null) { did -a Global 2 $did(4) | write sozler.txt $did(4) | did -fr Global 4 } }
  if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 $did(9) msg #yönetim $!read(sozler.txt) | echo -a 0,6** Global Mesaj Bildirimi Aktif ** } }
  if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
}
on *:dialog:Global:init:*: {
  if ($lines(sozler.txt) != $null) {
    set %global 0
    while (%global < $lines(sozler.txt)) {
      inc %global 1
      did -a Global 2 $read(sozler.txt,%global) 
    }
    unset %global
  }
}
menu status,nicklist,channel {
  Global Mesaj :globalmesaj
}

Difuzyon Arkadaşımızın hazırlamış olduğu kodu kendine göre düzenliyebilirsin..
mIRC ana dizinine sozler adında bi metin belgesi atman,
ve daha sonra bu kodu mIRC ın remote bölümüne eklemen yeterli olacaktır.
mIRC e sağ tıkla***** Global mesaj bölümüne Kanala göndermek istediğin mesajı yaz yeterli..

Bu arada bu kod global mesaj atmak içindi ama mesaj yönetim kanalına gitsin dediğiniz için değiştirdim.
ha bu arada, ufak bi kod yeterli diyenler olabilir ama bu diyalog bir nimet bazıları için;)
İyi Forumlar.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:08.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk