قديم 12-06-2002, 11:16 PM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Sep 2002
العضوية: 76
المشاركات: 289 [+]
بمعدل : 0.04 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

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

المنتدى : برامج - سكربتات - اضافات ماسنجر
mirc addons (seen system)

هاي شباب
هذي واحده من الأدون الي تخص السين وهي مفيده وهي مفيده اكتييييييييير للي يبي يستعملها في سكربت او بوت وسهله اكتيييير ومالها صعبه بس انقل ها الشغله علي الريموت وراح تلقاها عملت setup علي طول :

; seen system v5.0 by Vanguard [vanguard@bubix.net]
alias 'sw .writeini -n seen.ini $$1 $$2 $3-
alias ´sr return $readini(seen.ini,$$1,$$2)
alias _chans return $´sr(seen,channels)
alias chans_ return $´sr(seen,ignore_chans)
alias seen.user {
if ($1 != $null) {
if ($1 ison $3) && ($1 != $me) { msg $3 $2 $+ , erm... $1 is on $3 right now.... | goto end }
if ($me == $1) { msg $3 $2 $+ , oh sh*t! you found me! | goto end }
if ($´sr($1, [ part_ $+ [ $3 ] ] ) != $null) { var %part.time = $´sr($1, [ part_ $+ [ $3 ] ] ) }
if ($´sr($1,quit_time) != $null) { var %quit.time = $´sr($1,quit_time) }
echo -s time: %quit.time
if ($gettok(%quit.time,1,32) >= $gettok(%part.time,1,32)) || ($gettok(%quit.time,2,32) >= $gettok(%part.time,2,32)) && (%quit.time != $null) { var %seen.result = quitting at %quit.time from $gettok($´sr($1,quit),1,32) stating: $chr(34) $+ $gettok($´sr($1,quit),2-,32) $+ $chr(34) }
if ($gettok(%quit.time,1,32) < $gettok(%part.time,1,32)) || ($gettok(%quit.time,2,32) < $gettok(%part.time,2,32)) && (%part.time != $null) { var %seen.result = parting from $3 at %part.time }
if (%seen.result != $null) { msg $3 $2 $+ , $´sr($1,address) last seen was %seen.result }
if (%seen.result == $null) { msg $3 $2 $+ , well... i don't remember seeing $1 :\ }
}
:end
}
#seen on
on ^*:JOIN:*:if ($chan isin $_chans) || ($_chans == $chr(42)) && ($nick != $me) { 'sw $nick join_ $+ [ $chan ] $time(HH:nn:ss (dd/mm/yyyy)) | 'sw $nick address $gettok($address($nick,5),1,33) ( $+ $gettok($address($nick,5),2,33) $+ ) }
on ^*:PART:*:if ($chan isin $_chans) || ($_chans == $chr(42)) && ($nick != $me) { 'sw $nick part_ $+ [ $chan ] $time(HH:nn:ss (dd/mm/yyyy)) | 'sw $nick address $gettok($address($nick,5),1,33) ( $+ $gettok($address($nick,5),2,33) $+ ) }
on ^*:TEXT:*:*:if ($1 != $null) && ($2 != $null) && ($1 == $´sr(seen,trigger)) { if ($chan isin $_chans) || ($_chans == $chr(42)) || $_chans == $null) { { seen.user $2 $nick $chan } } }
on ^*:QUIT:{
var %temp.seen.comchans = $comchan($nick,0)
if (%temp.seen.comchans != $null) {
var %seen.c 1
while (%seen.c <= %temp.seen.comchans) {
if ($comchan($nick,%seen.c) isin $_chans) || ($_chans == $chr(42)) { var %total.seen.comchans = %total.seen.comchans $+ $iif(%total.seen.comchans != $null, $+ $chr(44)) $+ $comchan($nick,%seen.c) }
inc %seen.c
}
}
'sw $nick quit %total.seen.comchans $1- | 'sw $nick quit_time $time(HH:nn:ss (dd/mm/yyyy)) | if ($´sr($nick,address) == $null) { 'sw $nick address $nick $+ !*@* }
}
#seen end
alias seen if ($dialog(seen)) dialog -v seen | else dialog -m seen seen
dialog seen {
title "seen system setup - v5.0"
size -1 -1 130 115
option dbu
box "seen setup",1,5 2 120 109
check "use seen system",2,10 12 60 7
check "on startup clear seen list",3,10 22 70 7
text "use",4,10 37 10 7
edit "",5,21 35 50 10,autohs
text "as seen trigger",6,73 37 50 7
check "respond only in these channels:",7,10 52 90 7
edit "",8,10 62 110 10, autohs
check "ignore all these channels:",9,10 75 90 7
edit "",10,10 85 110 10, autohs
button "save", 11, 90 98 30 10, ok
button "help",12,60 98 30 10
button "open list",13,90 10 30 10
button "clear list",14,90 20 30 10
text "by Vanguard [ptnet]",15, 10 100 50 7, disable
}
on *:dialog:seen:init:*: {
; yes... this is NOT a bug! ignored channels must be != $null otherwise.... you know...
if ($´sr(seen,ignore_chans) == $null) { 'sw seen ignore 0 }
; end of statement! =)
if ($´sr(seen,inuse) == 1) { did -c seen 2 | if ($group(#seen) == off) { .enable #seen } } | else { did -b seen 5,7,8,9,10 }
if ($´sr(seen,startup) == 1) { did -c seen 3 }
if ($´sr(seen,only) == 1) { did -c seen 7 | if ($´sr(seen,channels) != $null) { did -ra seen 8 $´sr(seen,channels) } } | else { did -b seen 8 | if ($´sr(seen,channels) != $null) && ($´sr(seen,channels) != $chr(42)) { did -ra seen 8 $´sr(seen,channels) } }
if ($´sr(seen,ignore) == 1) { did -c seen 9 | if ($´sr(seen,ignore_chans) != $null) { did -ra seen 10 $´sr(seen,ignore_chans) } } | else { did -b seen 10 | if ($´sr(seen,ignore_chans) != $null) { did -ra seen 10 $´sr(seen,ignore_chans) } }
if ($´sr(seen,trigger) == $null) { 'sw seen trigger !seen } | if ($´sr(seen,trigger) != $null) { did -ra seen 5 $´sr(seen,trigger) }
}
on *:dialog:seen:sclick:*: {
if ($did == 2) { if ($´sr(seen,inuse) == 1) { .disable #seen | 'sw seen inuse 0 | did -b seen 5,7,8,9,10 } | else { .enable #seen | 'sw seen inuse 1 | did -e seen 5,7,9 | if ($´sr(seen,channels) != $null) && ($´sr(seen,channels) != $chr(42)) && ($´sr(seen,only) == 1) { did -e seen 8 } | if ($´sr(seen,ignore) == 1) && ($´sr(seen,ignore_chans) != $null) { did -e seen 10 } } }
if ($did == 3) { if ($´sr(seen,startup) == 1) { 'sw seen startup 0 } | else { 'sw seen startup 1 } }
if ($did == 7) { if ($´sr(seen,only) == 1) { 'sw seen only 0 | did -b seen 8 | 'sw seen channels * } | else { 'sw seen only 1 | did -e seen 8 | if ($did(8).text != $null) { 'sw seen channels $did(8).text } } }
if ($did == 9) { if ($´sr(seen,ignore) == 1) { 'sw seen ignore 0 | .remini seen.ini seen ignore_chans | did -b seen 10 } | else { 'sw seen ignore 1 | did -e seen 10 | if ($did(10).text != $null) { 'sw seen ignore_chans $did(10).text } } }
if ($did == 11) { if ($´sr(seen,trigger) == $null) { 'sw seen trigger !seen } }
if ($did == 12) { run $mircdir/readme.txt }
if ($did == 13) { run $mircdir/seen.ini }
if ($did == 14) { clear.seen.list }
}
on *:dialog:seen:edit:*: {
if ($did == 5) && ($did(5).text != $null) { 'sw seen trigger $did(5).text } | if ($did(5).text == $null) { .remini seen.ini seen trigger }
if ($did == 8) && ($did(8).text != $null) { 'sw seen channels $did(8).text } | if ($did(8).text == $null) { .remini seen.ini seen channels }
if ($did == 10) && ($did(10).text != $null) { 'sw seen ignore_chans $did(10).text } | if ($did(10).text == $null) { .remini seen.ini seen ignore_chans }
}
alias clear.seen.list {
.write -c $mircdir/seen.ini
if ($did(seen,2).state == 1) || (%inuse == 1) { 'sw seen inuse 1 | .enable seen } | else { 'sw seen inuse 0 | .disable seen }
if ($did(seen,3).state == 1) || (%startup == 1) { 'sw seen startup 1 } | else { 'sw seen startup 0 }
if ($did(seen,5).text != $null) || (%trigger == 1) { 'sw seen trigger $did(seen,5).text } | else { 'sw seen trigger !seen }
if ($did(seen,7).state == 1) || (%only == 1) { 'sw seen only 1 } | else { 'sw seen only 0 }
if ($did(seen,8).text != $null) && ($´sr(seen,only) == 1) { 'sw seen channels $did(seen,8).text } | else { 'sw seen channels * | 'sw seen only 0 | did -u seen 7 | did -b seen 8 }
if ($did(seen,9).state == 1) || (%ignore == 1) { 'sw seen ignore 1 } | else { 'sw seen ignore 0 }
if ($did(seen,10).text != $null) && ($´sr(seen,ignore) == 1) { 'sw seen ignore_chans $did(seen,10).text }
}
alias clear.seen.list_ {
if ($´sr(seen,inuse) == 1) { var %inuse 1 }
if ($´sr(seen,startup) == 1) { var %startup 1 }
if ($´sr(seen,trigger) != $null) { var %trigger = $´sr(seen,trigger) }
if ($´sr(seen,only) == 1) { var %only 1 }
if ($´sr(seen,channels) != $null) { var %channels = $´sr(seen,channels) }
if ($´sr(seen,ignore) == 1) { var %ignore 1 }
if ($´sr(seen,ignore_chans) != $null) { var %ignore_chans = $´sr(seen,ignore_chans) }
if (%inuse == 1) { 'sw seen inuse 1 | .enable seen } | else { 'sw seen inuse 0 | .disable seen }
if (%startup == 1) { 'sw seen startup 1 } | else { 'sw seen startup 0 }
if (%trigger == 1) { 'sw seen trigger $did(seen,5).text } | else { 'sw seen trigger !seen }
if (%only == 1) { 'sw seen only 1 } | else { 'sw seen only 0 }
if (%channels != $null) && ($´sr(seen,only) == 1) { 'sw seen channels %channels }
if (%ignore == 1) { 'sw seen ignore 1 } | else { 'sw seen ignore 0 }
if (%ignore_chans != $null) && ($´sr(seen,ignore) == 1) { 'sw seen ignore_chans %ignore_chans }
}
alias search if ($dialog(search)) dialog -v search | else dialog -m search search
dialog search {
title "seen search - v5.0"
size -1 -1 130 123
option dbu
button "ok",999,0 0 0 0,ok
box "seen search",1,5 2 120 48
text "nickname:",2,10 13 25 7
edit "",3,45 11 75 10,autohs
text "on channels:",4,10 23 35 7
edit "",5,45 21 75 10,autohs
button "search",6,58 35 30 10
button "clear",7,90 35 30 10
box "search results",8,5 53 120 65
text "address:",9,10 64 25 7
edit "",10,37 62 83 10,autohs read
text "join time:",11,10 74 25 7
edit "",12,37 72 83 10,autohs read
text "part time:",13,10 84 25 7
edit "",14,37 82 83 10,autohs read
text "quit time:",15,10 94 25 7
edit "",16,37 92 83 10,autohs read
text "quit state:",17,10 104 25 7
edit "",18,37 102 83 10,autohs read
}
on *:dialog:search:init:*:did -b search 6,7
on *:dialog:search:sclick:*:{
if ($did == 6) { seen.search }
if ($did == 7) { did -r search 3,5,10,12,14,16,18 | did -b search 6,7 }
}
on *:dialog:search:edit:*:{
if ($did(search,3).text == $null) || ($did(search,5).text == $null) { did -b search 6,7 }
if ($did(search,3).text != $null) || ($did(search,5).text != $null) { did -e search 7 }
if ($did(search,3).text != $null) && ($did(search,5).text != $null) { did -e search 6,7 }
}
alias seen.search {
if ($did(search,3).text != $null) && ($did(search,5).text != $null) {
var %seen.search.nick = $did(search,3).text | var %seen.search.chan $did(search,5).text
if ($´sr(%seen.search.nick, [ join_ $+ [ %seen.search.chan ] ] ) != $null) || ($´sr(%seen.search.nick, [ part_ $+ [ %seen.search.chan ] ] ) != $null) || ($´sr(%seen.search.nick,quit) != $null) {
if ($´sr(%seen.search.nick,address) != $null) { did -ra search 10 $´sr(%seen.search.nick,address) }
if ($´sr(%seen.search.nick, [ join_ $+ [ %seen.search.chan ] ] ) != $null) { did -ra search 12 $´sr(%seen.search.nick, [ join_ $+ [ %seen.search.chan ] ] ) } | else { did -ra search 12 n/a }
if ($´sr(%seen.search.nick, [ part_ $+ [ %seen.search.chan ] ] ) != $null) { did -ra search 14 $´sr(%seen.search.nick, [ part_ $+ [ %seen.search.chan ] ] ) } | else { did -ra search 14 n/a }
if ($´sr(%seen.search.nick,quit_time) != $null) { did -ra search 16 $´sr(%seen.search.nick,quit_time) } | else { did -ra search 16 n/a }
if ($´sr(%seen.search.nick,quit) != $null) && (%seen.search.chan isin $gettok($´sr(%seen.search.nick,quit),1,32)) { did -ra search 18 $gettok($´sr(%seen.search.nick,quit),2-,32) } | else { did -ra search 18 n/a }
goto end
}
}
if ($´sr(%seen.search.nick, [ join_ $+ [ %seen.search.chan ] ] ) == $null) && ($´sr(%seen.search.nick, [ part_ $+ [ %seen.search.chan ] ] ) == $null) && ($´sr(%seen.search.nick,quit) == $null) { did -ra search 10,12,14,16,18 no matches found! | goto end }
did -ra search 10,12,14,16,18 error: parameters missing!
:end
}
menu menubar,channel {
.-
seen System
.setup:seen
.search:search
.-
.open list:run $mircdir/seen.ini
}
on *:start:if ($´sr(seen,startup) == 1) { clear.seen.list_ } | if ($exists($mircdirseen.ini) == $false) { 'sw seen inuse 0 | 'sw seen startup 0 }
on *:load:clear -s | echo -s Thanks for trying out seen system v5.0 by Vanguard [PTnet] | echo -s contact: vanguard@bubix.net | echo -s website: http://www.fly.to/negligence | echo -s to setup seen system type: /seen or use the menubar popup.
ON *:START:

mirc addons (seen system) mirc seen












توقيع : sosos

i will miss you ... if i couldn't meet you again ?!! i will not be Ok ... Remember That and think carefully ... i missed you jojo


[FL=http://members.lycos.co.uk/sosos5/Movie1.swf] width = 344 height = 310 [/FL]


عرض البوم صور sosos   رد مع اقتباس
قديم 12-07-2002, 02:26 AM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Sep 2002
العضوية: 104
المشاركات: 1,173 [+]
بمعدل : 0.18 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
JeKaR^Bs^7LoOo غير متصل
وسائل الإتصال:

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

مشكور ويعطيك الف الف عافيه على هالاوامر :>












توقيع : JeKaR^Bs^7LoOo

[FL=http://www.geocities.com/warnetq8/jekar.swf] width = 400 height = 45 [/FL]
My Email
JeKaR_Bs_7LoOo@hotmail.com

عرض البوم صور JeKaR^Bs^7LoOo   رد مع اقتباس
قديم 12-07-2002, 04:26 AM   المشاركة رقم: 3
المعلومات
الكاتب:
اللقب:
Brothers
الصورة الرمزية
 
الصورة الرمزية ابـوعبدالله

البيانات
التسجيل: Aug 2002
العضوية: 9
المشاركات: 769 [+]
بمعدل : 0.12 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
ابـوعبدالله غير متصل
وسائل الإتصال:

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

مشكور والله زين انك افدتني والله يعطيك العافيـه












توقيع : ابـوعبدالله




BROTHERS أحد مؤسسي هذا الموقع الرآئـع
رقم العضويه : 9

عرض البوم صور ابـوعبدالله   رد مع اقتباس
قديم 12-07-2002, 07:48 PM   المشاركة رقم: 4
المعلومات
الكاتب:
اللقب:
عضو ذهبي
الصورة الرمزية
 
الصورة الرمزية SauD

البيانات
التسجيل: Aug 2002
العضوية: 13
المشاركات: 1,005 [+]
بمعدل : 0.15 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

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

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

يعطيك الف الف عافيه حبيب قلبي سوسوس

تسلم علي هالمجهود الحلو












توقيع : SauD

عرض البوم صور SauD   رد مع اقتباس
قديم 12-07-2002, 11:07 PM   المشاركة رقم: 5
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية The-Love

البيانات
التسجيل: Nov 2002
العضوية: 294
المشاركات: 80 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
The-Love غير متصل
وسائل الإتصال:

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

مشكوووووووووووووووووووور












توقيع : The-Love

-+-+-+-+-+-+-+-+-+-+-+-+-+
My
Nick
iN
--={ArabChat}=--
The-Love
-+-+-+-+-+-+-+-+-+-+-+-+-+
And
--={ANAChat}=--
WebMaster ,, The-Love
-+-+-+-+-+-+-+-+-+-+-+-+-+
Thanks FoR Visited N7eeeS Site .... Khaleed
-+-+-+-+-+-+-+-+-+-+-+-+-+

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

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

الكلمات الدلالية (Tags)
addons, mirc, seen, system

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


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


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

Site_Map


الساعة الآن 06:23 AM.


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