تويت
alias -l dialog-fx {
if ($8 == $null) { echo 14 -a * /dialog-fx: insufficient parameters. Use: /dialog-fx <type> <x> <y> <end width> <end height> <dname> <table> <jump length> | halt }
if ($1 !isletter abcde) || ($len($1) > 1) {
echo 14 -a * /dialog-fx: invalid parameters: You must specify a type from range a to e for first parameter
echo 14 -a * /dialog-fx: invalid parameter used: $ifmatch | halt
}
if ($2 !isnum) || ($3 !isnum) || ($4 !isnum) || ($5 !isnum) || ($8 !isnum) {
echo 14 -a * /dialog-fx: invalid parameters: You must use numbers for <x> <y> <w> <h> (2nd to 5th parameter) and <jump length> (8th parameter)
echo 14 -a * /dialog-fx: invalid parameter used: $ifmatch | halt
}
if ($dialog($6) == $null) { .timer -m 1 1 dialog -m $6 $7 | .timer -m 1 500 dialog-fx $1- | halt }
if ($1 == a) {
dialog -s $6 $2 $3 0 0
set %dialog-fx-length 0
:start
inc %dialog-fx-length $8
dialog -s $6 $2 $3 %dialog-fx-length $5
if (%dialog-fx-length < $4) { goto start }
}
if ($1 == b) {
dialog -s $6 $2 $3 0 0
set %dialog-fx-height 0
:start
inc %dialog-fx-height $8
dialog -s $6 $2 $3 $4 %dialog-fx-height
if (%dialog-fx-height < $5) { goto start }
}
if ($1 == c) {
dialog -s $6 $2 $3 0 0
;type c is a win98 style drop down
set %dialog-fx-height 0
set %dialog-fx-length 0
:start
if (%dialog-fx-height < $5) { inc %dialog-fx-height $8 }
if (%dialog-fx-length < $4) { inc %dialog-fx-length $8 }
dialog -s $6 $2 $3 %dialog-fx-length %dialog-fx-height
if (%dialog-fx-length < $4) || (%dialog-fx-height < $5) { goto start }
}
if ($1 == d) {
set %dialog-fx-height 0
set %dialog-fx-length 0
dialog -s $6 $2 $3 0 0
:start
inc %dialog-fx-length $8
dialog -s $6 $2 $3 %dialog-fx-length 0
if (%dialog-fx-length < $4) { goto start }
:startb
inc %dialog-fx-height $8
dialog -s $6 $2 $3 %dialog-fx-length %dialog-fx-height
if (%dialog-fx-height < $5) { goto startb }
}
if ($1 == e) {
set %dialog-fx-height 0
set %dialog-fx-length 0
dialog -s $6 $2 $3 0 0
:startb
inc %dialog-fx-height $8
dialog -s $6 $2 $3 0 %dialog-fx-height
if (%dialog-fx-height < $5) { goto startb }
:start
inc %dialog-fx-length $8
dialog -s $6 $2 $3 %dialog-fx-length %dialog-fx-height
if (%dialog-fx-length < $4) { goto start }
}
}
dialog connect {
title "نظام الشبك بالسيرفر"
size 1 1 1 1
box "السيرفر", 4, 5 70 195 140
combo 1, 13 88 180 130, edit vsbar
text "النك:", 56, 15 20 60 15
edit "", 2, 75 18 115 20, autohs
text "الأيدينت:",57, 15 43 45 15
edit "", 3, 75 40 115 20
button "إشبك",5, 68 225 55 25, DEFAULT
button "إغلاق",51, 135 225 55 25,cancel
box "تحكم النك",54, 5 0 195 70
box "إختيار", 55, 55 210 145 50
}
on 1:dialog:connect:*:*: {
if ($devent == init) {
did -a $dname 1 irc.dal.net:6667
did -a $dname 1 doha.ArabChat.Org:6667
did -a $dname 1 sahara.dal.net:6667
did -a $dname 1 liberty.dal.net:6667
did -a $dname 1 uk.dal.net:6667
did -a $dname 1 sodre.nj.us.dal.net:6667
did -a $dname 1 kuwait.arabchat.org:6667
did -a $dname 1 ksa.arabchat.org:6667
did -a $dname 1 lebanon.arabchat.org:6667
did -a $dname 1 Qatar.ArabChat.Org:6667
did -a $dname 1 Gulf.ArabChat.Org:6666
did -a $dname 1 Oman.ArabChat.Org:6667
did -a $dname 1 QualityNet.ArabChat.Org:6667
did -a $dname 1 vancouver.bc.ca.undernet.org:6660
did -a $dname 1 toronto.on.ca.undernet.org:6661
did -a $dname 1 zone.ANAChat.net:6666
did -a $dname 1 kuwait.anachat.net:6667
did -a $dname 1 warba.anachat.net:6667
did -a $dname 1 Muscat.ANAChat.net:6667
did -a $dname 1 Wanasah.anachat.net:6667
did -a $dname 2 $readini mirc.ini mirc nick
did -a $dname 3 $readini mirc.ini ident userid
.timer -m 1 200 dialog-fx $rand(a,e) 340 180 205 265 connect connect 2
}
if ($devent == sclick) {
if ($did == 5) {
.nick $did(2)
.identd on $did(3)
.server $did(1)
}
}
}
--------------------------------------------------------------------------------
Dialog Sercer Nwe
alias Serverz { dialog -m serverz serverz }
dialog serverz {
title "Servers سيرفرات"
size -1 -1 122 120
option dbu
combo 1, 6 15 50 50 , drop , vsbar , edit
combo 2, 66 15 50 50 , drop , vsbar , edit
button "أشبك", 5, 12 72 35 11 , ok
button "ألغاء", 6, 76 72 35 11 , cancel
box "عرب جات", 10, 1 3 60 66
box "دال نت", 11, 61 3 60 66
edit "By Al7OOT", 17, 42 86 39 10,read,center
link "http://go.to/AL7OOT", 18, 37 103 53 10
}
on 1:dialog:Serverz:init:*:{
did -a Serverz 1 kw
did -a Serverz 1 Q8
did -a Serverz 1 Kuwait
did -a Serverz 1 Oman
did -a Serverz 1 Doha
did -a Serverz 1 ksa
did -a Serverz 1 Egypt
did -a Serverz 1 MTC
did -a Serverz 1 Riyadh
did -a Serverz 1 UAE
did -a Serverz 1 Dammam
did -a Serverz 1 Qatar
did -a Serverz 1 Yes
did -a Serverz 1 Lebanon
did -a Serverz 1 USHELLS
did -a Serverz 1 Gulf
did -a Serverz 1 Saif
did -a Serverz 2 Jade
did -a Serverz 2 coins
did -a Serverz 2 oscar
did -a Serverz 2 toronto
did -a Serverz 2 dragons
did -a Serverz 2 sodre
did -a Serverz 2 misc-e
}
on 1:dialog:Serverz:sclick:5:{
if (kw isin $did(Serverz,1)) { /server kw.WeArab.Net }
if (Q8 isin $did(Serverz,1)) { /server Q8.WeArab.Net }
if (Kuwait isin $did(Serverz,1)) { /server Kuwait.WeArab.Net }
if (Oman isin $did(Serverz,1)) { /server Oman.WeArab.Net }
if (Doha isin $did(Serverz,1)) { /server Doha.WeArab.Net }
if (ksa isin $did(Serverz,1)) { /server ksa.WeArab.Net }
if (Egypt isin $did(Serverz,1)) { /server Egypt.WeArab.Net }
if (MTC isin $did(Serverz,1)) { /server MTC.WeArab.Net }
if (Riyadh isin $did(Serverz,1)) { /server Riyadh.WeArab.Net }
if (UAE isin $did(Serverz,1)) { /server UAE.WeArab.Net }
if (Dammam isin $did(Serverz,1)) { /server Dammam.WeArab.Net }
if (Qatar isin $did(Serverz,1)) { /server Qatar.WeArab.Net }
if (Yes isin $did(Serverz,1)) { /server Yes.WeArab.Nett }
if (Lebanon isin $did(Serverz,1)) { /server Lebanon.WeArab.net }
if (USHELLS isin $did(Serverz,1)) { /server USHELLS.WeArab.Net }
if (Gulf isin $did(Serverz,1)) { /server Gulf.WeArab.Net }
if (Saif isin $did(Serverz,1)) { /server Saif.WeArab.Net }
if (Jade isin $did(Serverz,2)) { /server jade.dal.net }
if (coins isin $did(Serverz,2)) { /server coins.dal.net }
if (oscar isin $did(Serverz,2)) { /server oscar.ga.us.dal.net }
if (toronto isin $did(Serverz,2)) { /server toronto.on.ca.dal.net }
if (dragons isin $did(Serverz,2)) { /server dragons.ga.us.dal.net }
if (sodre isin $did(Serverz,2)) { /server sodre.on.ca.dal.net }
if (misc-e isin $did(Serverz,2)) { /server misc-e.dal.net }
}
on *:dialog:serverz:sclick:18:/run http://go.to/AL7OOT
menu status,channel,menubar {
ديالوق السيرفرات:/dialog -m serverz serverz
}
if ($8 == $null) { echo 14 -a * /dialog-fx: insufficient parameters. Use: /dialog-fx <type> <x> <y> <end width> <end height> <dname> <table> <jump length> | halt }
if ($1 !isletter abcde) || ($len($1) > 1) {
echo 14 -a * /dialog-fx: invalid parameters: You must specify a type from range a to e for first parameter
echo 14 -a * /dialog-fx: invalid parameter used: $ifmatch | halt
}
if ($2 !isnum) || ($3 !isnum) || ($4 !isnum) || ($5 !isnum) || ($8 !isnum) {
echo 14 -a * /dialog-fx: invalid parameters: You must use numbers for <x> <y> <w> <h> (2nd to 5th parameter) and <jump length> (8th parameter)
echo 14 -a * /dialog-fx: invalid parameter used: $ifmatch | halt
}
if ($dialog($6) == $null) { .timer -m 1 1 dialog -m $6 $7 | .timer -m 1 500 dialog-fx $1- | halt }
if ($1 == a) {
dialog -s $6 $2 $3 0 0
set %dialog-fx-length 0
:start
inc %dialog-fx-length $8
dialog -s $6 $2 $3 %dialog-fx-length $5
if (%dialog-fx-length < $4) { goto start }
}
if ($1 == b) {
dialog -s $6 $2 $3 0 0
set %dialog-fx-height 0
:start
inc %dialog-fx-height $8
dialog -s $6 $2 $3 $4 %dialog-fx-height
if (%dialog-fx-height < $5) { goto start }
}
if ($1 == c) {
dialog -s $6 $2 $3 0 0
;type c is a win98 style drop down
set %dialog-fx-height 0
set %dialog-fx-length 0
:start
if (%dialog-fx-height < $5) { inc %dialog-fx-height $8 }
if (%dialog-fx-length < $4) { inc %dialog-fx-length $8 }
dialog -s $6 $2 $3 %dialog-fx-length %dialog-fx-height
if (%dialog-fx-length < $4) || (%dialog-fx-height < $5) { goto start }
}
if ($1 == d) {
set %dialog-fx-height 0
set %dialog-fx-length 0
dialog -s $6 $2 $3 0 0
:start
inc %dialog-fx-length $8
dialog -s $6 $2 $3 %dialog-fx-length 0
if (%dialog-fx-length < $4) { goto start }
:startb
inc %dialog-fx-height $8
dialog -s $6 $2 $3 %dialog-fx-length %dialog-fx-height
if (%dialog-fx-height < $5) { goto startb }
}
if ($1 == e) {
set %dialog-fx-height 0
set %dialog-fx-length 0
dialog -s $6 $2 $3 0 0
:startb
inc %dialog-fx-height $8
dialog -s $6 $2 $3 0 %dialog-fx-height
if (%dialog-fx-height < $5) { goto startb }
:start
inc %dialog-fx-length $8
dialog -s $6 $2 $3 %dialog-fx-length %dialog-fx-height
if (%dialog-fx-length < $4) { goto start }
}
}
dialog connect {
title "نظام الشبك بالسيرفر"
size 1 1 1 1
box "السيرفر", 4, 5 70 195 140
combo 1, 13 88 180 130, edit vsbar
text "النك:", 56, 15 20 60 15
edit "", 2, 75 18 115 20, autohs
text "الأيدينت:",57, 15 43 45 15
edit "", 3, 75 40 115 20
button "إشبك",5, 68 225 55 25, DEFAULT
button "إغلاق",51, 135 225 55 25,cancel
box "تحكم النك",54, 5 0 195 70
box "إختيار", 55, 55 210 145 50
}
on 1:dialog:connect:*:*: {
if ($devent == init) {
did -a $dname 1 irc.dal.net:6667
did -a $dname 1 doha.ArabChat.Org:6667
did -a $dname 1 sahara.dal.net:6667
did -a $dname 1 liberty.dal.net:6667
did -a $dname 1 uk.dal.net:6667
did -a $dname 1 sodre.nj.us.dal.net:6667
did -a $dname 1 kuwait.arabchat.org:6667
did -a $dname 1 ksa.arabchat.org:6667
did -a $dname 1 lebanon.arabchat.org:6667
did -a $dname 1 Qatar.ArabChat.Org:6667
did -a $dname 1 Gulf.ArabChat.Org:6666
did -a $dname 1 Oman.ArabChat.Org:6667
did -a $dname 1 QualityNet.ArabChat.Org:6667
did -a $dname 1 vancouver.bc.ca.undernet.org:6660
did -a $dname 1 toronto.on.ca.undernet.org:6661
did -a $dname 1 zone.ANAChat.net:6666
did -a $dname 1 kuwait.anachat.net:6667
did -a $dname 1 warba.anachat.net:6667
did -a $dname 1 Muscat.ANAChat.net:6667
did -a $dname 1 Wanasah.anachat.net:6667
did -a $dname 2 $readini mirc.ini mirc nick
did -a $dname 3 $readini mirc.ini ident userid
.timer -m 1 200 dialog-fx $rand(a,e) 340 180 205 265 connect connect 2
}
if ($devent == sclick) {
if ($did == 5) {
.nick $did(2)
.identd on $did(3)
.server $did(1)
}
}
}
--------------------------------------------------------------------------------
Dialog Sercer Nwe
alias Serverz { dialog -m serverz serverz }
dialog serverz {
title "Servers سيرفرات"
size -1 -1 122 120
option dbu
combo 1, 6 15 50 50 , drop , vsbar , edit
combo 2, 66 15 50 50 , drop , vsbar , edit
button "أشبك", 5, 12 72 35 11 , ok
button "ألغاء", 6, 76 72 35 11 , cancel
box "عرب جات", 10, 1 3 60 66
box "دال نت", 11, 61 3 60 66
edit "By Al7OOT", 17, 42 86 39 10,read,center
link "http://go.to/AL7OOT", 18, 37 103 53 10
}
on 1:dialog:Serverz:init:*:{
did -a Serverz 1 kw
did -a Serverz 1 Q8
did -a Serverz 1 Kuwait
did -a Serverz 1 Oman
did -a Serverz 1 Doha
did -a Serverz 1 ksa
did -a Serverz 1 Egypt
did -a Serverz 1 MTC
did -a Serverz 1 Riyadh
did -a Serverz 1 UAE
did -a Serverz 1 Dammam
did -a Serverz 1 Qatar
did -a Serverz 1 Yes
did -a Serverz 1 Lebanon
did -a Serverz 1 USHELLS
did -a Serverz 1 Gulf
did -a Serverz 1 Saif
did -a Serverz 2 Jade
did -a Serverz 2 coins
did -a Serverz 2 oscar
did -a Serverz 2 toronto
did -a Serverz 2 dragons
did -a Serverz 2 sodre
did -a Serverz 2 misc-e
}
on 1:dialog:Serverz:sclick:5:{
if (kw isin $did(Serverz,1)) { /server kw.WeArab.Net }
if (Q8 isin $did(Serverz,1)) { /server Q8.WeArab.Net }
if (Kuwait isin $did(Serverz,1)) { /server Kuwait.WeArab.Net }
if (Oman isin $did(Serverz,1)) { /server Oman.WeArab.Net }
if (Doha isin $did(Serverz,1)) { /server Doha.WeArab.Net }
if (ksa isin $did(Serverz,1)) { /server ksa.WeArab.Net }
if (Egypt isin $did(Serverz,1)) { /server Egypt.WeArab.Net }
if (MTC isin $did(Serverz,1)) { /server MTC.WeArab.Net }
if (Riyadh isin $did(Serverz,1)) { /server Riyadh.WeArab.Net }
if (UAE isin $did(Serverz,1)) { /server UAE.WeArab.Net }
if (Dammam isin $did(Serverz,1)) { /server Dammam.WeArab.Net }
if (Qatar isin $did(Serverz,1)) { /server Qatar.WeArab.Net }
if (Yes isin $did(Serverz,1)) { /server Yes.WeArab.Nett }
if (Lebanon isin $did(Serverz,1)) { /server Lebanon.WeArab.net }
if (USHELLS isin $did(Serverz,1)) { /server USHELLS.WeArab.Net }
if (Gulf isin $did(Serverz,1)) { /server Gulf.WeArab.Net }
if (Saif isin $did(Serverz,1)) { /server Saif.WeArab.Net }
if (Jade isin $did(Serverz,2)) { /server jade.dal.net }
if (coins isin $did(Serverz,2)) { /server coins.dal.net }
if (oscar isin $did(Serverz,2)) { /server oscar.ga.us.dal.net }
if (toronto isin $did(Serverz,2)) { /server toronto.on.ca.dal.net }
if (dragons isin $did(Serverz,2)) { /server dragons.ga.us.dal.net }
if (sodre isin $did(Serverz,2)) { /server sodre.on.ca.dal.net }
if (misc-e isin $did(Serverz,2)) { /server misc-e.dal.net }
}
on *:dialog:serverz:sclick:18:/run http://go.to/AL7OOT
menu status,channel,menubar {
ديالوق السيرفرات:/dialog -m serverz serverz
}
تعليق