help24-7 | 21 Aralık 2009 23:06 | Seçilen Nicklere Mesaj Gönder (Oto Dialoglu) PHP- Kodu: on *:join:#:{ if $nick == $me { $+(.,timer,SNM) 0 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,SSX) 1 0 /snick.dialog } } alias snick.dialog { if ($dialog(SecilenNickler)) { } else { dialog -m SecilenNickler SecilenNickler } } dialog SecilenNickler { size -1 -1 280 160 title Mesaj Gönderici box "Seçilen Nickler Listesi:",1, 5 5 120 148 list 3, 15 20 100 140 box "Gönderilecek Mesaj:",8, 129 5 145 148 button "GÖNDER / BAŞLAT",9, 139 100 122 40 ,ok edit "",31, 140 20 120 70, multi, autovs, vsbar } on *:dialog:SecilenNickler:init:*: { var %a = 1 while ($gettok(%SecilenNickler,%a,44)) { did -a SecilenNickler 3 $gettok(%SecilenNickler,%a,44) inc %a } } on *:dialog:SecilenNickler:close:*: { if ($dialog(SecilenNickler)) { $+(.,timer,SNMx1) 1 0 /s.kapat $+(.,timer,SNMx2) 1 1 /s.kapat } $+(.,timer,SNM) off $+(.,timer,SNMX) 1 20 $+(.,timer,SNM) 0 0 /unl.snick.kontrol } on 1:dialog:SecilenNickler:*:*: { if ($devent == sclick) { if ($did == 9) { var %Z 1 while %Z <= $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,SNM) off $+(.,timer,SNMX) 1 %Z $+(.,timer,SNM) 0 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,SNMMS) 0 1 /SecilenNickler.Gonder.Devam } alias SecilenNickler.Gonder.Devam { if $gettok(%SecilenNickler,1,44) == $null { $+(.,timer,SNMMS) off 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,SNMMS) off unset %mucux echo -a *** Seçilen Nicklere Mesaj Gönderimi başarıyla tamamlandı. goto son } } :son }
Komut kullanimi : Bir kanala girdiğinizde otomatik çalışır. Ne işe yarar? Nick listesinde 2'den 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. |