اخر امر جديد اقدمه لكم اليوم امر الاوي دايلوق ارجو التثبيت من الاعصاء

[ALBaShaH]

menu * {
Away SysTem:/awaym
}
dialog aaw {
title "ScripT"
size -1 -1 250 90
text "Reason", 30,5 10 60 60,center
text "Nickname", 11,132 10 60 60
button "&Ok", 6, 60 55 40 20, ok default
button "Cl&ose", 8, 105 55 40 20, cancel
combo 9, 10 25 110 100, edit drop
combo 10, 130 25 110 100, edit drop
box "",1,5 0 240 80
}
on *:dialog:aaw:INIT:0: {
did -a aaw 9 Brb
did -a aaw 9 Away
did -a aaw 9 Food
did -a aaw 9 School
did -a aaw 9 Telephone
did -a aaw 9 TV
did -a aaw 9 Play
did -a aaw 9 Scripting
did -a aaw 9 WC
did -a aaw 10 $mid($me,1,6) $+ -Brb
did -a aaw 10 $mid($me,1,5) $+ -Away
did -a aaw 10 $mid($me,1,5) $+ -Food
did -a aaw 10 $mid($me,1,3) $+ -School
did -a aaw 10 $mid($me,1,6) $+ -Tel
did -a aaw 10 $mid($me,1,7) $+ -TV
did -a aaw 10 $mid($me,1,6) $+ -Play
did -a aaw 10 $mid($me,1,4) $+ -Script
did -a aaw 10 $mid($me,1,7) $+ -WC
}

on *:dialog:aaw:sclick:9:{
if $did(aaw,9).sel == 1 { set %dd Brb }
if $did(aaw,9).sel == 2 { set %dd Away }
if $did(aaw,9).sel == 3 { set %dd Food }
if $did(aaw,9).sel == 4 { set %dd School }
if $did(aaw,9).sel == 5 { set %dd Telephone }
if $did(aaw,9).sel == 6 { set %dd TV }
if $did(aaw,9).sel == 7 { set %dd Play }
if $did(aaw,9).sel == 8 { set %dd Scripting }
if $did(aaw,9).sel == 9 { set %dd WC }
}
on *:dialog:aaw:sclick:10:{
if $did(aaw,9).sel == 1 { set %dn $mid($me,1,6) $+ -Brb }
if $did(aaw,9).sel == 2 { set %dn $mid($me,1,5) $+ -Away }
if $did(aaw,9).sel == 3 { set %dn $mid($me,1,5) $+ -Food }
if $did(aaw,9).sel == 4 { set %dn $mid($me,1,3) $+ -School }
if $did(aaw,9).sel == 5 { set %dn $mid($me,1,6) $+ -Tel }
if $did(aaw,9).sel == 6 { set %dn $mid($me,1,7) $+ -TV }
if $did(aaw,9).sel == 7 { set %dn $mid($me,1,6) $+ -Play }
if $did(aaw,9).sel == 8 { set %dn $mid($me,1,4) $+ -Script }
if $did(aaw,9).sel == 9 { set %dn $mid($me,1,7) $+ -WC }
}
on *:dialog:aaw:edit:9:{
set %dd $did(aaw,9)
}
on *:dialog:aaw:edit:10:{
set %dn $did(aaw,10)
}
on *:dialog:aaw:sclick:6:{
if %dd == $null { set %dd None }
if $server == $null { echo -a 16 شنو هنود احنا :> مو شابك شلون تبي تسوي الاوي هههه اشبك يابابا وسو هههه | halt }
if $away == $true { echo -a 14***6 ياغالي انت الاوي تبي تسوي الاوي مره ثانيه ليش هالغباء :> | halt }
amsg Away %F Reason: $+ %dd Time: $+ $time
.timer7 0 600 amsg Away %F Reason: $+ %dd Time: $+ $time
set %cca $ctime
set %cca1 $time
away %dd
set %dn1 $me
.timer 1 0 bba
if %dn == $null { halt }
nick %dn
}
alias bba dialog -m bba bba
alias awaym dialog -m aaw aaw
dialog bba {
title "Set Back When Ready"
size -1 -1 200 100
button "Back", 1,65 44 70 20,ok
text "Set Back", 4,65 5 70 15,center
}
on *:dialog:bba:sclick:1:{
amsg Back Away: %F Reason: $+ %dd Since: $+ %cca1 Gone for [[ $duration($calc($ctime - %cca)) ]]
away
.timer7 off
unset %dn
unset %dd
nick %dn1
}


اخوكم احمد الباشا

[noha]

شكرا على الامر يا احمد شكرا على المشاركه

[ALBaShaH]

العفو ولو اختي نوها وانا هذا الي قدمته من اوامر مسويهم جديده

اخوكم احمد الباشا

[JeKaR^Bs^7LoOo]

مشكور اخوي الباشا

[ALBaShaH]

العفو ولو
اخوكم احمد الباشا