تويت
:) السلام هاذا دايلوق للهوز
--------
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 }
}
--------
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 }
}
تعليق