قديم 01-21-2003, 02:56 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء

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

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

المنتدى : برامج - سكربتات - اضافات ماسنجر
دايلوق هوووز

:) السلام هاذا دايلوق للهوز
--------
on 1:LOAD:echo -a 14*** By www.mIRC4Arab.net | %_seaengifs1 = 1

; ###### Dialog ######

dialog whoisd {
title "Qui est Qui? :p"
size -1 -1 400 210
button "Quitter" , 1 , 5 180 390 20 , ok
edit "" , 2 , 5 40 390 130 , , multi , hsbar , read
text "Absent" , 3 , 33 10 35 15 , left
icon 4 , 8 8 18 16 , WhoisDialog\Images\Nope.bmp
text "Helper" , 5 , 98 10 35 15 , left
icon 6 , 73 8 18 16 , WhoisDialog\Images\Nope.bmp
text "IrcOp" , 7 , 163 10 35 15 , left
icon 8 , 138 8 18 16 , WhoisDialog\Images\Nope.bmp
icon 9 , 369 8 23 16 , WhoisDialog\Images\Pays\Inconnu.bmp
text "Nick enregistré" , 10 , 228 10 75 15 , left
icon 11 , 203 8 18 16 , WhoisDialog\Images\Nope.bmp
}

; ###### Alias ######

alias country_whoisd { set %country $readini $shortfn($mircdirWhoisDialog\) $+ pays.txt $1 country }

alias verif_dd { if ( $dialog($1).title != $null ) { /dialog -x $1 } }

alias wd { if ( $server == $null ) { halt } | if ( $1 == $null ) { halt } | /verif_dd whoisd | /dialog -m whoisd whoisd | if ( $1 == $me ) { /dialog -t whoisd Qui êtes vous :ppppp } | if ( $1 != $me ) { /dialog -t whoisd Qui est $1 ? } | .enable #whois_dialog | set %whoisd_ligne 1 | set %whoisd_nick $1 | /whois $1 }

; ###### Kernel ######

#whois_dialog off
raw 307:*: {
did -g WhoisD 11 $shortfn($mircdirWhoisDialog\Images\Ouep.bmp)
halt
}

raw 311:*: {
set %pays $right($4,3) | /country_whoisd %pays | if (%country == $null) { set %country IP }
set %nom_fic_pays $right($4,2) $+ .bmp
set %temp2 $findfile($shortfn($mircdirWhoisDialog\Images\Pays \),%nom_fic_pays,1)
if ( %temp2 != $null && $lower($right($4,3)) != edu && $lower($right($4,3)) != gov && $lower($right($4,3)) != com && $lower($right($4,3)) != net ) { did -g WhoisD 9 $shortfn($mircdirWhoisDialog\Images\Pays\) $+ %nom_fic_pays }
if ( $lower($right($4,3)) == com ) { did -g WhoisD 9 $shortfn($mircdirWhoisDialog\Images\Pays\Com.bmp) }
if ( $lower($right($4,3)) == net ) { did -g WhoisD 9 $shortfn($mircdirWhoisDialog\Images\Pays\Net.bmp) }
if ( $lower($right($4,3)) == gov ) { did -g WhoisD 9 $shortfn($mircdirWhoisDialog\Images\Pays\Gov.bmp) }
if ( $lower($right($4,3)) == edu ) { did -g WhoisD 9 $shortfn($mircdirWhoisDialog\Images\Pays\Edu.bmp) }
if ( %temp2 == $null && $lower($right($4,3)) != com && $lower($right($4,3)) != net ) { did -g WhoisD 9 $shortfn($mircdirWhoisDialog\Images\Pays\Inconnu.b mp) }
did -i WhoisD 2 %WhoisD_ligne Adresse: $3 $+ @ $+ $4 ( %country ).
inc %WhoisD_ligne
did -i WhoisD 2 %WhoisD_ligne Nom d'utilisateur: $strip($6-) $+ .
inc %WhoisD_ligne
unset %temp2
unset %nom_fic_pays
unset %pays
unset %country
halt
}

raw 310:*: {
did -g WhoisD 6 $shortfn($mircdirWhoisDialog\Images\Ouep.bmp)
halt
}

raw 312:*: {
did -i WhoisD 2 %WhoisD_ligne Server: $strip($3-) $+ .
inc %WhoisD_ligne
halt
}

raw 313:*: {
did -g WhoisD 8 $shortfn($mircdirWhoisDialog\Images\Ouep.bmp)
halt
}

raw 301:*: {
did -g WhoisD 4 $shortfn($mircdirWhoisDialog\Images\Ouep.bmp)
halt
}

raw 317:*: {
did -i WhoisD 2 %WhoisD_ligne Inactivité: $duration($3)
inc %WhoisD_ligne
did -i WhoisD 2 %WhoisD_ligne Date de connection: $replace($gettok($asctime($4),1,32),Mon,Lundi,Tue, Mardi,Wed,Mercredi,Thu,Jeudi,Fri,Vendredi,Sat,Same di,Sun,Dimanche) $gettok($asctime($4),3,32) $replace($gettok($asctime($4),2,32),Jan,Janvier,Fe b,Février,Mar,Mars,Apr,Avril,May,Mai,Jun,Juin,Jul, Juillet,Aug,Août,Sep,Septembre,Oct,Octobre,Nov,Nov embre,Dec,Décembre) $gettok($asctime($4),5,32) à $gettok($asctime($4),4,32)
inc %WhoisD_ligne
halt
}

raw 318:*: {
unset %WhoisD_ligne %WhoisD_nick
.disable #whois_dialog
halt }

raw 319:*: {
did -i WhoisD 2 %WhoisD_ligne Channels: $strip($3-) $+ .
inc %WhoisD_ligne
did -i WhoisD 2 %WhoisD_ligne => Vous avez donc $comchan(%WhoisD_nick,0) channel(s) en commun.
inc %WhoisD_ligne
halt
}
#whois_dialog end

raw 402:*: { echo $colour(Info Text) -s $timestamp $2 n'est pas sur cet IRC actuellement | unset %WhoisD_ligne %WhoisD_nick | .disable #whois_dialog | halt }

; ###### Euh... :p ######

on 1:START:{ .disable #whois_dialog }

on 1:CONNECT: { .disable #whois_dialog }

on 1:LOAD: {
window -aohdp +f @eViL_dEaD $calc( ( $window(-1).w - 300 ) / 2 ) $calc( ( $window(-1).h - 200 ) / 2 ) 300 200 @eViL_dEaD
/drawfill @eViL_dEaD 1 1 1 1
set %coul_whois 255
/.timerdem -m 26 10 /aff_deb_whois
}

alias aff_deb_whois {
/drawtext -rc @eViL_dEaD $rgb(%coul_whois,%coul_whois,%coul_whois) Tahoma 50 50 65 500 500 eViL_dEaD
dec %coul_whois 10
if ( %coul_whois < 0 ) { /.timerdem off | set %coul_whois 255 | /.timerdem -m 26 10 /aff_deb_whois2 }
}

alias aff_deb_whois2 {
/drawtext -rc @eViL_dEaD $rgb(%coul_whois,%coul_whois,%coul_whois) Tahoma 60 50 65 500 500 présente
dec %coul_whois 10
if ( %coul_whois < 0 ) { /.timerdem off | set %coul_whois 255 | /.timerdem -m 26 1 /aff_deb_whois3 }
}

alias aff_deb_whois3 {
/drawtext -rc @eViL_dEaD $rgb(%coul_whois,%coul_whois,%coul_whois) Tahoma 60 50 65 500 500 WHOIS
dec %coul_whois 10
if ( %coul_whois < 0 ) { /.timerdem off | set %coul_whois 255 | /.timerdem -m 26 1 /aff_deb_whois4 }
}

alias aff_deb_whois4 {
/drawtext -rc @eViL_dEaD $rgb(%coul_whois,%coul_whois,%coul_whois) Tahoma 60 50 65 500 500 DIALOG
dec %coul_whois 10
if ( %coul_whois < 0 ) { /.timerdem off | set %coul_whois 255 | /.timerdem -m 26 1 /aff_deb_whois5 }
}

alias aff_deb_whois5 {
/drawtext -rc @eViL_dEaD $rgb(%coul_whois,%coul_whois,%coul_whois) Tahoma 60 30 65 500 500 version 1.0
dec %coul_whois 10
if ( %coul_whois < 0 ) { /.timerdem off | unset %coul_whois | /aff_deb_whoisfin }
}

alias aff_deb_whoisfin {
set %evil_dead 1
/.timerdem -m 0 100 /aff_deb_whoisnj
/drawtext -c @eViL_dEaD 0 Tahoma 14 80 5 500 500 Whois en Dialogue v1.0
/drawtext -c @eViL_dEaD 0 Tahoma 12 5 45 500 500 Cet Add-on vous permet d'agrémenter vos whois :pppp
/drawtext -c @eViL_dEaD 0 Tahoma 12 5 65 500 500 C' était pas trop dur à deviner ;)
/drawtext -c @eViL_dEaD 0 Tahoma 11 45 180 500 500 (c)2000 :: [ eViL_dEaD ] Scripts :: Hell Enterprise ::
/drawtext -c @eViL_dEaD 0 Tahoma 11 60 155 500 500 ( Clickez dans la fenêtre pour la fermer )
}

alias aff_deb_whoisnj { if ( $window(@eViL_dEaD) == $null ) { /.timerdem off | halt } | /drawtext -rc @eViL_dEaD $rgb($rand(0,255),$rand(0,255),$rand(0,255)) Tahoma 18 25 105 500 500 Bonne année 2000 à tous !!!!!!!!!!!!!! }



; ###### Menu ######

menu nicklist {
-
Whois en Dialogue:{ /verif_dd whoisd | /dialog -m whoisd whoisd | if ( $$1 == $me ) { /dialog -t whoisd Qui êtes vous :ppppp } | if ( $$1 != $me ) { /dialog -t whoisd Qui est $$1 ? } | .enable #whois_dialog | set %whoisd_ligne 1 | set %whoisd_nick $$1 | /whois $$1 }
}

]hdg,r i,,,.












توقيع : NaNsY

محبي الاشباح و الغموض سيعجبهم السايت بالتأكيد
www.q8wizard.8m.com

عرض البوم صور NaNsY   رد مع اقتباس
قديم 01-21-2003, 03:53 AM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء

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

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

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

يعطيج العافيه نانسي وماقصرتي ويماا السايت يخوف لوووو كركركركر وووول
باياتو احاسيسو ALWAFIY <=-=منو هذا لوووول :hell :cr












توقيع : a7ases

<embed width="400" height="150" src= "http://members.lycos.co.uk/a7ases9/SM.swf" >

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

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

الكلمات الدلالية (Tags)
دايلوق, هوووز

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


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


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

Site_Map


الساعة الآن 03:04 AM.


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