mIRC Secilen Nicklere Mesaj Gonder (Oto Dialoglu)
PHP-Kodu:
* Do?um: join: #: (
if $ nick == $ me (
$+(., Zamanlay?c?, SNM) 0 0 / unl.snick.kontrol
)
)
alias unl.snick.kontrol (
($ Numtok ($ kesik ($ aktif), 44) = 1) () s.kapat e?er
($ Numtok ($ kesik ($ aktif), e?er 44)> 1) (
% SecilenNickler kesik ($ aktif) $ set
$+(., Zamanlay?c?, SSX) 1 0 / snick.dialog
)
)
alias snick.dialog (
($ Dialog if (SecilenNickler)) ()
else (dialog-m SecilenNickler SecilenNickler)
)
SecilenNickler (ileti?im
boyutu -1 -1 280 160
Ba?l?k Air Video Gönderici
kutu \\ \\ \"Seçilen Nickler listesi: \\ \\\", 1, 5 5 120 148
liste 3, 15 20 100 140
kutu \\ \\ \"Gönderilecek Air Video: \\ \\\", 8, 129 5 145 148
dü?mesine \\ \\ \"GÖNDER / BA? LAT \\ \\\", 9, 139 100 122 40, ok
\\ \\ De?i?tir \"\\ \\\", 31, 140 20 120 70, multi, autovs, vsbar
)
* Do?um: dialog: SecilenNickler: init: *: (
var% a = 1
($ Gettok (% SecilenNickler,% s?ras?nda, 44)) (
did-a SecilenNickler 3 $ gettok (% SecilenNickler,% a, 44)
inc% a
)
)
* Do?um: dialog: SecilenNickler: close: *: (
($ Dialog if (SecilenNickler)) (
$+(., Zamanlay?c?, SNMx1) 1 0 / s.kapat
$+(., Zamanlay?c?, SNMx2) 1 1 / s.kapat
)
$+(., Zamanlay?c?, SNM) kapal?
$+(., Zamanlay?c?, SNMX) 1 20 $+(., zamanlay?c?, SNM) 0 0 / unl.snick.kontrol
)
1: dialog: SecilenNickler :*:*: (
== Sclick ($ devent) (if
($ Did == 9) (if
var% Z 1
ise% Z <= $ ($ dname, 31,% Z) (did
e?er $ ($ dname, 31,% Z) == $ did null (goto son)
% SecilenNickler.Mesaj, $ + (% SecilenNickler.Mesaj set $ ($ dname, 31,% Z)) yapt?
inc% Z
)
: Son
inc% Z 10
$+(., Zamanlay?c?, SNM) kapal?
$+(., Zamanlay?c?, SNMX) 1% Z $+(., zamanlay?c?, SNM) 0 0 / unl.snick.kontrol
SecilenNickler.Gonder
)
)
== Rclick ($ devent) (halt) if
== Dclick ($ devent) (halt) if
)
alias-l s.kapat (
($ Dialog if (SecilenNickler)) (
dialog-x SecilenNickler
)
)
SecilenNickler.Gonder (alias
% Mucux 1 set
$+(., Zamanlay?c?, SNMMS) 0 1 / SecilenNickler.Gonder.Devam
)
alias SecilenNickler.Gonder.Devam (
e?er $ gettok (% SecilenNickler, 1,44) == $ null (
$+(., Zamanlay?c?, SNMMS) kapal?
goto o?lu
)
e?er $ gettok (% SecilenNickler, 1,44)! = $ null (
e?er $ gettok (% SecilenNickler,% mucux, 44)! = $ null (
. Gettok (% SecilenNickler,% mucux, 44)% SecilenNickler.Mesaj $ msg
inc% mucux 1
goto o?lu
)
e?er $ gettok (% SecilenNickler,% mucux, 44) == $ null (
$+(., Zamanlay?c?, SNMMS) kapal?
unset% mucux
echo-a *** Seçilen Nicklere Air Video Gönderimi ba? ar? yla tamamland?.
goto o?lu
)
)
: Son
)