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
}
11-21-2009, 20:02
Seçilen Nicklere Mesaj Gönder (Oto Dialoglu)
Normal
