mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 21 Kasım 2009, 19:02
Avatar Yok

mS Puan: 21
mS Derece: UnLimitedBOY
 
Üyelik tarihi: 08 Ekim 2009
Mesajlar: 8
Konular: 8
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart Seçilen Nicklere Mesaj Gönder (Oto Dialoglu)

PHP- Kodu:
on *:join:#:{
  
if $nick == $me {
    $+(.,
timer,SNM0 0 /unl.snick.kontrol
  
}
}
alias unl.snick.kontrol 
  if (
$numtok($snick($active),44) = 1) { s.kapat }
  if (
$numtok($snick($active),44) > 1) {
    
set %SecilenNickler $snick($active)
    $+(.,
timer,SSX1 0 /snick.dialog
  
}
}
alias snick.dialog 
  if (
$dialog(SecilenNickler)) {  } 
  else { 
dialog -m SecilenNickler SecilenNickler }
}
dialog SecilenNickler 
  
size --1 280 160 
  title Mesaj Gönderici
  box 
"Seçilen Nickler Listesi:",15 5 120 148 
  
list 315 20 100 140 
  box 
"Gönderilecek Mesaj:",8129 5 145 148 
  button 
"GÖNDER / BAŞLAT",9139 100 122 40 ,ok
  edit 
"",31140 20 120 70multiautovsvsbar

on *:dialog:SecilenNickler:init:*: { 
  var %

  
while ($gettok(%SecilenNickler,%a,44)) { 
    
did -a SecilenNickler 3 $gettok(%SecilenNickler,%a,44
    
inc %
  


on *:dialog:SecilenNickler:close:*: { 
  if (
$dialog(SecilenNickler)) {
    $+(.,
timer,SNMx11 0 /s.kapat
    
$+(.,timer,SNMx21 1 /s.kapat
  

  $+(.,
timer,SNMoff
  
$+(.,timer,SNMX1 20 $+(.,timer,SNM0 0 /unl.snick.kontrol
}
on 1:dialog:SecilenNickler:*:*: { 
  if (
$devent == sclick) { 
    if (
$did == 9) {
      var %
Z 1
      
while %<= $did($dname,31,%Z) {
        if 
$did($dname,31,%Z) == $null { goto end }
        
set %SecilenNickler.Mesaj $+(%SecilenNickler.Mesaj,$did($dname,31,%Z))
        
inc %Z
      
}
      :
end
      inc 
%Z 10
      
$+(.,timer,SNMoff
      
$+(.,timer,SNMX%$+(.,timer,SNM0 0 /unl.snick.kontrol
      SecilenNickler
.Gonder 
    

  } 
  if (
$devent == rclick) { halt }
  if (
$devent == dclick) { halt  }
}
alias -l s.kapat {
  if (
$dialog(SecilenNickler)) {
    
dialog -x SecilenNickler 
  
}
}
alias SecilenNickler.Gonder 
  
set %mucux 1 
  
$+(.,timer,SNMMS0 1 /SecilenNickler.Gonder.Devam 

alias SecilenNickler.Gonder.Devam 
  if 
$gettok(%SecilenNickler,1,44) == $null {  
    $+(.,
timer,SNMMSoff 
    
goto son 
  

  if 
$gettok(%SecilenNickler,1,44) != $null {  
    if 
$gettok(%SecilenNickler,%mucux,44) != $null {  
      .
msg $gettok(%SecilenNickler,%mucux,44) %SecilenNickler.Mesaj 
      inc 
%mucux 1 
      
goto son 
    

    if 
$gettok(%SecilenNickler,%mucux,44) == $null {  
      $+(.,
timer,SNMMSoff 
      
unset %mucux
      
echo -*** Seçilen Nicklere Mesaj Gönderimi başarıyla tamamlandı
      goto 
son 
    

  } 
  :
son 

Code: UnLimitedBOY
Tarih: 19.11.2009

Komut Kullanım: Bir kanala girdiğinizde tomatik çalışır

Ne işe yarar?
Nick listesinde 2den fazla nick seçerseniz eğer, bir dialog açılır ve göndermek istediğiniz mesajı size sorar. Mesajınızı yazdiğinizda, lagta kalmadan saniyede 1 mesaj atacak şekilde, mesajınızı iletir.

Konu UnLimitedBOY tarafından (21 Kasım 2009 Saat 19:11 ) değiştirilmiştir.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
gonder, mesaj, nicklere, secilen

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
IRC dersleri. WeiLSiDe mIRC commands - Komutlar 23 08 Haziran 2015 02:07
Cipmercy v3 download WeiLSiDe Bots - Botlar 1 01 Ocak 2014 02:47
Hızlı Memo Gönderimi (Multi Mesaj) UnLimitedBOY Showcase - Hazır kodlar 2 05 Mayıs 2012 18:09


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76