قديم 01-30-2003, 04:04 PM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية ALMaJeD

البيانات
التسجيل: Dec 2002
العضوية: 427
المشاركات: 2,560 [+]
بمعدل : 0.40 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
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,0‌0,4P0,0‌0,12a0,0‌4,10,4c 12 Ok ) | .unload -rs agenda.mrc } }
alias agen.hlp { if ($isfile(readme.txt)) { run readme.txt } | else { echo -a 0,1220,0‌0,4P0,0‌0,12a0,0‌4,10,4c 12 Ok ) | halt } }
alias agen.about { if ($isfile(ircx.bmp)) { about.gen } | else { echo -a 0,1220,0‌0,4P0,0‌0,12a0,0‌4,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 "q8mp3s@hotmail.com",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,0‌0,4P0,0‌0,12a0,0‌4,10,4c 12iF You Like To 4Add12 The 4Midel12 Name For 4Some 12One But 4-12 Mark 4Betwin 12The 4First12 And The 4Midel

]hdg,r fsd' uk ]tjv hvrhl jgt,khj jgt,khj fsd' ]hdg,r ]tjv












توقيع : ALMaJeD


عرض البوم صور ALMaJeD   رد مع اقتباس
قديم 01-30-2003, 04:18 PM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Jan 2003
العضوية: 905
المشاركات: 3 [+]
بمعدل : 0.00 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
dire2dark غير متصل
وسائل الإتصال:

كاتب الموضوع : ALMaJeD المنتدى : برامج - سكربتات - اضافات ماسنجر

مشكور












عرض البوم صور dire2dark   رد مع اقتباس
قديم 02-08-2003, 06:49 PM   المشاركة رقم: 3
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Dec 2002
العضوية: 410
المشاركات: 4 [+]
بمعدل : 0.00 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
ice1 غير متصل
وسائل الإتصال:

كاتب الموضوع : ALMaJeD المنتدى : برامج - سكربتات - اضافات ماسنجر
تسلم ايدك

thanX












توقيع : ice1

(*.^)

عرض البوم صور ice1   رد مع اقتباس
قديم 03-25-2003, 03:46 AM   المشاركة رقم: 4
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Mar 2003
العضوية: 1220
المشاركات: 36 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
NaSSaY غير متصل
وسائل الإتصال:

كاتب الموضوع : ALMaJeD المنتدى : برامج - سكربتات - اضافات ماسنجر

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












توقيع : NaSSaY

IF YOU LOVE ME TRUST ME

عرض البوم صور NaSSaY   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
ارقام, تلفونات, بسيط, دايلوق, دفتر, عن

جديد منتدى برامج - سكربتات - اضافات ماسنجر


أدوات الموضوع
انواع عرض الموضوع


ترتيب الموقع عالميا
     

Site_Map


الساعة الآن 05:02 PM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.1