دايلوق بسيط عن دفتر ارقام تلفونات

[ALMaJeD]

اخوكم : الماجد

============================
dialog agendas {
title "2Pac Phone Book"
size -1 -1 195 129
box "Add Name", 1, 1 0 190 90
text "Name", 2, 10 20 30 15
edit "", 3, 45 15 135 22, autohs
text "Tel", 4, 10 40 30 15
edit "", 5, 45 35 135 22,autohs
text "Mail: ", 6, 8 65 30 15
edit "", 7, 45 55 135 22,autohs
button "Add", 8, 0 95 65 25
button "Del", 9, 65 95 65 25
button "&Down", 10, 130 95 65 25
button "&OK", 11, 0 0 0 0, cancel, hide
combo 12,1 130 190 120,drop
box "Info", 13, 1 180 190 90
text "&Name", 14, 10 200 30 15
edit "", 15, 45 200 135 22, autohs,read
text "Tel ", 16, 10 220 20 15
edit "", 17, 45 220 135 22,autohs,read
text "Mail", 18, 10 240 30 15
edit "", 19, 45 240 135 22,autohs,read
button "Tel Change" 20,1 155 65 20
button "Ch Mail" 21,68 155 65 20
button "Ch Name" 22,135 155 60 20
button "Close",23,1 275 63 20,ok
button "Save",24,65 275 63 20

}
on *:dialog:agendas:sclick:24:{
agen.hlp
}
on *:dialog:agendas:sclick:25:{
dialog -m aabout.agen aabout.agen
}
on *:dialog:agendas:sclick:11:{
set %agen.x Down
.timeragen off
}
on *:dialog:agendas:sclick:23:{
set %agen.x Down
.timeragen off
}
alias -l set.tel { set %agen.tel $$?="Entry The New Phone" | if (%agen.tel != $null) { writeini agenda.phy %agen.mudar tel %agen.tel | did -ra agendas 17 %agen.tel } }
alias -l set.mail { set %agen.mail $$?="What Is The New Mail" | if (%agen.mail != $null) { writeini agenda.phy %agen.mudar mail %agen.mail | did -ra agendas 19 %agen.mail } }
alias -l set.name { set %agen.name $$?="What Is The New Name" | if (%agen.name != $null) { set %agen.nicks $remtok(%agen.nicks,%agen.mudar,3) | set %agen.nicks $addtok(%agen.nicks,%agen.name,3) | writeini agenda.phy %agen.name nome %agen.name | writeini agenda.phy %agen.name tel $readini agenda.phy %agen.mudar tel | writeini agenda.phy %agen.name mail $readini agenda.phy %agen.mudar mail | remini agenda.phy %agen.mudar | did -r agendas 12 | did -rca agendas 15 %agen.name | agen.list } }
on *:dialog:agendas:sclick:22:{
if ($did(12).sel) {
set %agen.mudar $did(12).text
.timer 1 0 /set.name
}
}
on *:dialog:agendas:sclick:20:{
if ($did(12).sel) {
set %agen.mudar $did(12).text
.timer 1 0 /set.tel
}
}
on *:dialog:agendas:sclick:21:{
if ($did(12).sel) {
set %agen.mudar $did(12).text
.timer 1 0 /set.mail
}
}
on *:dialog:agendas:sclick:10:{
if (%agen.x == Down) { agen.vem | set %agen.x Up | did -a agendas 10 %agen.x }
if (%agen.x == Up) { agen.vai | set %agen.x Down | did -a agendas 10 %agen.x }
}
on *:dialog:agendas:init:0:{ did -a agendas 10 %agen.x | did -b agendas 9 | agen.list | .timeragen 0 1 bozta }
alias -l bozta /dialog -t agendas
on *:dialog:agendas:sclick:8:{
if ($did(3).text) && ($did(5).text) && ($did(7).text) {
set %agen.nicks $addtok(%agen.nicks,$did(3).text,3)
writeini agenda.phy geral nomes %agen.nicks
writeini agenda.phy $did(3).text tel $did(5).text
writeini agenda.phy $did(3).text mail $did(7).text
writeini agenda.phy $did(3).text nome $did(3).text
did -r agendas 12 | agen.list
}
}
on *:dialog:agendas:sclick:{
if ($did(12).sel) {
set %agen.nicks $remtok(%agen.nicks,$did(12).text,3)
if (%agen.nicks == $null) { remini agenda.phy geral nomes }
else {
writeini agenda.phy geral nomes %agen.nicks
}
remini agenda.phy $did(12).sel
did -r agendas 15,17,19
did -r agendas 12 | agen.list
}
}
on *:dialog:agendas:sclick:12:{
did -e agendas 9
did -ra agendas 15 $readini agenda.phy $did(12).text nome
did -ra agendas 17 $readini agenda.phy $did(12).text tel
did -ra agendas 19 $readini agenda.phy $did(12).text mail
}
alias -l agen.list { var %merda 1 | :x | if ($gettok(%agen.nicks,%merda,3)) { did -a agendas 12 $ifmatch | inc %merda | goto x } }
alias -l agen.vai { var %merda 300 | :loop | if (%merda == 129) { set %agen.x Down | did -a agendas 10 %agen.x | halt } | dialog -s agendas -1 -1 195 %merda | dec %merda | goto loop }
alias -l agen.vem { var %merda 129 | :loop | if (%merda == 300) { set %agen.x Up | did -a agendas 10 %agen.x | halt } | dialog -s agendas -1 -1 195 %merda | inc %merda | goto loop }
alias agenda { dialog -m agendas agendas }
alias agen.rem { if ($?!="Get Lost" == $true) { unset %agen* | .remove readme.txt | .remove ircx.bmp | echo -a 0,1220,00,4P0,00,12a0,04,10,4c 12 Ok ) | .unload -rs agenda.mrc } }
alias agen.hlp { if ($isfile(readme.txt)) { run readme.txt } | else { echo -a 0,1220,00,4P0,00,12a0,04,10,4c 12 Ok ) | halt } }
alias agen.about { if ($isfile(ircx.bmp)) { about.gen } | else { echo -a 0,1220,00,4P0,00,12a0,04,10,4c 12 Ok ) } }
alias -l about.gen $iif($dialog(about.agen) != about.agen,dialog -m about.agen about.agen)


dialog aabout.agen {
title "2Pac Abaut"
size -1 -1 181 190
button "ok",1,0 0 0 0,ok
box "",2,-1 -6 183 197
text "",4,12 115 180 18
text "iN #MP3X",5,12 130 140 18
text "You Can Find Me",6,12 100 60 18
box "iN Dalnet",7,8 145 165 8
text "[email protected]",8,40 157 120 40
}
on *:dialog:aabout.agen:sclick:{
dialog -k aabout.agen about.agen

}


alias -l agen.compromisso { set %agen.fazer $$?="Dont Miss With the Script" | set %agen.day $$?="OK" }
on *:start:{
if (%agen.fazer != $null) && ($left($date,5) == $left(%agen.day,5)) { agen.lembrar }
}

menu channel,query,status,menubar {
-
&2Pac Phone BooK:agenda | ECHO 0,1220,00,4P0,00,12a0,04,10,4c 12iF You Like To 4Add12 The 4Midel12 Name For 4Some 12One But 4-12 Mark 4Betwin 12The 4First12 And The 4Midel

[dire2dark]

مشكور

[ice1]

تسلم ايدك

thanX

[NaSSaY]

مشكوور وانشالله الى الامام