W84U — File Browser
W84Uv1.0 / W84Uv1.0 / w84u.mrc
w84u.mrc — 28.07 KB — Download this file
;---------------------------------------------------------------------------------------------------------------------------------------------------------------
;
; W84U 1.00
; 1999 - eViL_dEaD Scripts, All Rights Reserved.
;
;---------------------------------------------------------------------------------------------------------------------------------------------------------------
; ###### Dialog ######
dialog aff_ausujw84u {
title "Au sujet de W84U v1.0."
size 200 200 400 300
button "Quitter" , 1 , 175 270 50 20 , ok
icon 2 , 30 65 58 139 , W84U\Images\Squelette\1.bmp
text "'eViL_dEaD qu'est-ce que tu fais lĂ Ă trainer. On t'attend" , 3 , 100 65 295 15 , center
text ", l'avion va bientÎt décoller' Non, allez y, moi je reste ICI." , 4 , 100 80 295 15 , center
text "Je veux quitter le monde des fous pour de bon." , 5 , 100 95 295 15 , center
text "Je veux vivre dans la nature loinnnnnn de la pollution." , 6 , 100 110 295 15 , center
text "Et je préfÚre m'embarquer pour le VOL pour ZION" , 7 , 100 125 295 15 , center
text "ZION ZION........................................................." , 8 , 100 140 295 15 , center
button "Ecrivez moi :p" , 9 , 100 185 295 20 , center
text "( eViL_dEaD-Pol-Jack )" , 10 , 100 155 295 15 , center
}
dialog aidew84u {
title "Aide pour W84U v1.0"
size 150 150 420 300
button "Quitter" , 1 , 215 270 200 20 , ok
list 2 , 5 5 410 260 , multi , vsbar , read
button "Au sujet de..." , 3 , 5 270 200 20
}
dialog debutw84u {
title "Premier Lancement de W84U v1.0"
size -1 -1 460 260
button "Quitter" , 1 , 205 230 50 20 , ok
icon 2 , 5 5 450 100 , w84u\Images\Demarrage.bmp
text "Vous venez de charger W84U v1.0 pour la premiĂšre fois" , 3 , 5 120 450 20 , center
text "Idée de `KeNjI` ( Thx man :p )" , 4 , 5 140 450 20 , center
text "PĂąle imitation de ICQ :p" , 5 , 5 160 450 20 , center
text "eViL_dEaD@thepentagon.com" , 6 , 5 200 450 20 , center
}
dialog w84u {
title "Menu de W84U"
size -1 -1 350 480
button "Quitter" , 1 , 5 450 340 20 , ok
box "Liste des Utilisateurs" , 2 , 5 5 340 75
edit "" , 3 , 35 25 150 20
button "Ajouter" , 4 , 195 25 120 20
edit "" , 5 , 35 50 150 20
button "Enlever" , 6 , 195 50 120 20
box "Informations personnelles" , 7 , 5 85 340 215
text "Les envoyer sur demande:" , 8 , 35 105 130 15 , left
radio "Oui" , 9 , 185 105 40 15 , group
radio "Non" , 10 , 255 105 40 15
box "" , 11 , 10 130 330 1
text "Nom:" , 12 , 10 150 25 15 , left
edit "" , 13 , 40 147 120 20
text "Prénom:" , 14 , 170 150 40 15 , left
edit "" , 15 , 215 147 125 20
text "Age:" , 16 , 10 180 22 15 , left
edit "" , 17 , 37 177 20 20
text "Sexe:" , 18 , 87 180 30 15 , left
radio "Masculin" , 19 , 137 180 70 15 , group
radio "FĂ©minin" , 20 , 247 180 70 15
text "Pays:" , 21 , 10 210 30 15 , left
edit "" , 22 , 40 207 125 20
text "Ville:" , 23 , 185 210 30 15 , left
edit "" , 24 , 215 207 125 20
text "Homepage:" , 25 , 10 240 55 15 , left
edit "" , 26 , 70 237 270 20 , autohs
text "Citation:" , 27 , 10 270 40 15 , left
edit "" , 28 , 55 267 285 20 , autohs
box "Sons du script" , 29 , 5 305 340 50
text "Activer les sons du script:" , 30 , 35 325 130 15 , left
radio "Oui" , 31 , 185 325 40 15 , group
radio "Non" , 32 , 255 325 40 15
box "Skins de W84U" , 33 , 5 360 340 80
combo 34 , 10 380 140 100 , drop , size , sort , vsbar
button "Charger" , 35 , 160 380 85 20
button "Infos" , 36 , 255 380 85 20
button "Site internet pour en télécharger de nouveau" , 37 , 20 410 310 20
}
dialog w84u2 {
title "Informations personnelles..."
size -1 -1 350 220
button "Quitter" , 1 , 245 190 100 20 , ok
text "Nom:" , 2 , 10 10 25 15 , left
edit "" , 3 , 40 7 120 20
text "Prénom:" , 4 , 170 10 40 15 , left
edit "" , 5 , 215 7 125 20
text "Age:" , 6 , 10 40 22 15 , left
edit "" , 7 , 37 37 20 20
text "Sexe:" , 8 , 87 40 30 15 , left
radio "Masculin" , 9 , 137 40 70 15 , group
radio "FĂ©minin" , 10 , 247 40 70 15
text "Pays:" , 11 , 10 70 30 15 , left
edit "" , 12 , 40 67 125 20
text "Ville:" , 13 , 185 70 30 15 , left
edit "" , 14 , 215 67 125 20
text "Homepage:" , 15 , 10 100 55 15 , left
edit "" , 16 , 70 97 240 20 , autohs
text "Citation:" , 17 , 10 130 40 15 , left
edit "" , 18 , 55 127 285 20 , autohs
text "DerniĂšre adresse:" , 19 , 10 160 90 15 , left
edit "" , 20 , 105 157 235 20 , autohs
button "Mise Ă jour" , 21 , 5 190 100 20
button "=>" , 22 , 320 97 20 20
}
dialog mess-w84u {
title "Message d'eViL_dEaD"
size -1 -1 400 60
button "J'ai bien tout compris :+p" , 1 , 100 30 200 20 , ok
text "" , 2 , 5 10 390 15 , center
}
dialog qui {
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 , W84U\Images\Nope.bmp
text "Helper" , 5 , 98 10 35 15 , left
icon 6 , 73 8 18 16 , W84U\Images\Nope.bmp
text "IrcOp" , 7 , 163 10 35 15 , left
icon 8 , 138 8 18 16 , W84U\Images\Nope.bmp
icon 9 , 369 8 23 16 , W84U\Images\Pays\Inconnu.bmp
text "Nick enregistré" , 10 , 228 10 75 15 , left
icon 11 , 203 8 18 16 , W84U\Images\Nope.bmp
}
; ###### Evénements dialog ######
on *:dialog:w84u:sclick:4:{ if ( $did(w84u,3) == $null ) { halt }
if ( $notify( $did(w84u,3) ) != $null ) { /mess_w84u Cet utilisateur est déjà dans votre liste :p | halt }
/notify $did(w84u,3) | /mess_w84u $did(w84u,3) a été ajourté à votre Liste de Notification :p | verif_w84u }
on *:dialog:w84u:sclick:6:{ if ( $did(w84u,5) == $null ) { halt }
if ( $notify( $did(w84u,5) ) == $null ) { /mess_w84u Cet utilisateur n'est pas dans votre liste :p | halt }
/notify -r $did(w84u,5) | /mess_w84u $did(w84u,5) a été enlevé de votre Liste de Notification :p | set %fic $did(w84u,5) $+ .w8 | /.remove $mircdirW84u\Utilisateurs\ $+ %fic | verif_w84u | unset %fic }
on *:dialog:w84u:sclick:9:{ set %w84u_envoyer_info on }
on *:dialog:w84u:sclick:10:{ set %w84u_envoyer_info off }
on *:dialog:w84u:edit:13:{ set %w84u_nom $did(w84u,13) }
on *:dialog:w84u:edit:15:{ set %w84u_prénom $did(w84u,15) }
on *:dialog:w84u:edit:17:{ set %w84u_age $did(w84u,17) }
on *:dialog:w84u:sclick:19:{ set %w84u_sexe m }
on *:dialog:w84u:sclick:20:{ set %w84u_sexe f }
on *:dialog:w84u:edit:22:{ set %w84u_pays $did(w84u,22) }
on *:dialog:w84u:edit:24:{ set %w84u_ville $did(w84u,24) }
on *:dialog:w84u:edit:26:{ set %w84u_homepage $did(w84u,26) }
on *:dialog:w84u:edit:28:{ set %w84u_citation $did(w84u,28) }
on *:dialog:w84u:sclick:35:{ if ( * isin $did(w84u,34) ) { /mess_w84u C'est déjà le SKIN actuel !!!! Mets tes lunettes :pppp | halt }
var %fic = $mircdirW84u\Skins\ $+ $did(w84u,34) $+ \W84U.ini
unset %w84u_mousex %w84u_mousey | window -c @w84u
.play -cptVariables $me %fic 50
set %messs Le SKIN $did(w84u,34) crée par $readini %fic Auteur Nom a été chargé :pppp
/.timer 1 2 w84u2
}
on *:dialog:w84u:sclick:36:{ if ( $did(w84u,34) == $null ) { halt }
var %fic = $mircdirW84u\Skins\ $+ $did(w84u,34) $+ \W84U.txt
/run $remove(%fic,*)
}
on *:dialog:w84u:sclick:37:{ /run http://members.xoom.com/A_AnArChY_A/W84U }
on *:dialog:w84u2:sclick:21:{ if ( $notify($notify(%w84u_nick2)).ison == $false ) { /mess_w84u Il est pas lĂ Ă Ă Ă Ă Ă Ă Ă Ă Ă Ă Ă Ă :p | halt } | if ( $server == $null ) { /mess_w84u T'es mĂȘme pas connectĂ© :p | halt } | /.ctcp %w84u_nick2 W84U | .enable #ctcp-w84u | ./timerw84u 1 10 /w84u_prob | .enable #whois_w84u2 | /whois %w84u_nick2 }
on *:dialog:w84u2:sclick:22:{
if ( ( $did(w84u2,16) == $null ) || ( $did(w84u2,16) == N/A ) ) { halt }
/run $did(w84u2,16) }
on *:dialog:aidew84u:sclick:3:{
/verif_dialog aff_ausujw84u
/dialog -m aff_ausujw84u aff_ausujw84u
set %fic_nombre 1
/.timerw84u2 -m 0 100 /ausujet_w84u
}
on *:dialog:aff_ausujw84u:sclick:9:{ /run mailto:eViL_dEaD@extraterrestre.net?subject=W84U v1.0 }
; ###### Menu ######
menu @w84u {
sclick {
window -a @w84u2
window -a @w84u
if ($inrect($mouse.x,$mouse.y,%w84u_position_fermeture_x,%w84u_position_fermeture_y,%w84u_largeur_fermeture,%w84u_hauteur_fermeture)) { unset %w84u_mousex %w84u_mousey | window -c @w84u | window -c @w84u2 | .disable #Notification | .disable #whois_w84u2 | .disable #whois_w84u | .disable #ctcp-w84u | halt }
if ($inrect($mouse.x,$mouse.y,%w84u_position_w84u_x,%w84u_position_w84u_y,%w84u_largeur_w84u,%w84u_hauteur_w84u)) { set %w84u_mousex $mouse.x | set %w84u_mousey $mouse.y | .timerw84u -m 1 200 window -a @w84u2 | halt } | if ($inrect($mouse.x,$mouse.y,%w84u_position_w84u_x,%w84u_position_w84u_y,%w84u_largeur_w84u,%w84u_hauteur_w84u) == $false ) { unset %w84u_mousex %w84u_mousey }
if ($inrect($mouse.x,$mouse.y,%w84u_position_aide_x,%w84u_position_aide_y,%w84u_largeur_aide,%w84u_hauteur_aide)) { drawpic @w84u %w84u_position_aide_x %w84u_position_aide_y %w84u_emplacement_aide2 | /verif_dialog aidew84u | /dialog -m aidew84u aidew84u | affaidew84u }
if ($inrect($mouse.x,$mouse.y,%w84u_position_menu_x,%w84u_position_menu_y,%w84u_largeur_menu,%w84u_hauteur_menu)) { drawpic @w84u %w84u_position_menu_x %w84u_position_menu_y %w84u_emplacement_menu2 | /verif_dialog w84u | /dialog -m w84u w84u | check_w84u }
.timer -m 1 10 window -a @w84u2
}
uclick {
if ($inrect($mouse.x,$mouse.y,%w84u_position_aide_x,%w84u_position_aide_y,%w84u_largeur_aide,%w84u_hauteur_aide)) { drawpic @w84u %w84u_position_aide_x %w84u_position_aide_y %w84u_emplacement_aide1 }
if ($inrect($mouse.x,$mouse.y,%w84u_position_menu_x,%w84u_position_menu_y,%w84u_largeur_menu,%w84u_hauteur_menu)) { drawpic @w84u %w84u_position_menu_x %w84u_position_menu_y %w84u_emplacement_menu1 }
}
mouse {
if ($inrect($mouse.x,$mouse.y,%w84u_position_w84u_x,%w84u_position_w84u_y,%w84u_largeur_w84u,%w84u_hauteur_w84u)) { mouvement @w84u2 | mouvement @w84u } | if ($inrect($mouse.x,$mouse.y,%w84u_position_w84u_x,%w84u_position_w84u_y,%w84u_largeur_w84u,%w84u_hauteur_w84u) == $false ) { unset %w84u_mousex %w84u_mousey }
}
}
menu @w84u2 {
$aff_nick($remove($strip($sline(@w84u2,1)),$chr(160))):/halt
-
$connecté(Informations Irc):{ /verif_dialog qui | /dialog -m qui qui | /dialog -t qui Qui est $remove($strip($sline(@w84u2,1)),$chr(160)) ? | .enable #whois_w84u | set %w84u_ligne 1 | set %w84u_nick $remove($strip($sline(@w84u2,1)),$chr(160)) | /whois $remove($strip($sline(@w84u2,1)),$chr(160)) }
$connecté(Informations Personnelles):{ set %w84u_nick2 $remove($strip($sline(@w84u2,1)),$chr(160)) | /verif_dialog w84u2 | /dialog -m w84u2 w84u2 | aff_w84u_ini }
$non_connecté(Informations Personnelles):{ set %w84u_nick2 $remove($strip($sline(@w84u2,1)),$chr(160)) | /verif_dialog w84u2 | /dialog -m w84u2 w84u2 | aff_w84u_ini }
-
$connecté(Chatter avec lui):/dcc chat $remove($strip($sline(@w84u2,1)),$chr(160))
$connecté(Envoyer un fichier):/dcc send $remove($strip($sline(@w84u2,1)),$chr(160))
-
$connecté(Ctcp)
..Ping:{ /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) ping }
..Version:{ /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) version }
..Time:{ /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) time }
..Clientinfo:{ /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) clientinfo }
..Userinfo:{ /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) userinfo }
..Page:{ set %temp $$?="Message..." | if ( %temp == $null ) { unset %temp | halt } | /ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) page %temp | halt }
..DĂ©finir un Ctcp:{ set %type_ctcp $$?="Type de Ctcp..." | if ( %type_ctcp == $null ) { unset %type_ctcp | halt } | set %message $$?="Message ou Commande...( Rien pour annuler :) )" | if ( %message != $null ) { /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) %type_ctcp %message } | if ( %message == rien ) { /.ctcp $remove($strip($sline(@w84u2,1)),$chr(160)) %type_ctcp } | unset %message %type_ctcp }
-
$aff_nick(Enlever de la liste):/notify -r $remove($strip($sline(@w84u2,1)),$chr(160)) | /mess_w84u $remove($strip($sline(@w84u2,1)),$chr(160)) a été enlevé de votre Liste de Notification :p | set %fic $remove($strip($sline(@w84u2,1)),$chr(160)) $+ .w8 | /.remove $mircdirW84u\Utilisateurs\ $+ %fic | verif_w84u | unset %fic
}
; ###### Alias ######
alias action w84u {
if ( $window(@w84u) == $null ) { w84u | .disable #whois_w84u | .disable #whois_w84u2 | .disable #ctcp-w84u | unset %w84u_nick2 | halt }
if ( $window(@w84u) != $null ) { unset %w84u_mousex %w84u_mousey %w84u_nick2 | window -c @w84u | window -c @w84u2 | .disable #Notification | .disable #whois_w84u2 | .disable #whois_w84u | .disable #ctcp-w84u }
}
alias affaidew84u {
set %zzz 1
set %lig 1
:deb
set %ligne $read -l $+ %zzz $mircdirW84U\Aide._A_
if ( %ligne == $null ) { goto fin }
did -i aidew84u 2 %lig %ligne
inc %zzz
inc %lig
goto deb
:fin
unset %zzz %ligne %lig
}
alias aff_nick {
var %temp = $remove($strip($sline(@w84u2,1)),$chr(160))
if (( connecté isin %temp ) || ( %temp == $null )) { goto fin }
return $1-
:fin
}
alias aff_w84u {
/dialog -t w84u2 Informations personnelles sur %w84u_nick2 $+ ...
did -ra w84u2 3 $gettok($1-,1,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Nom Nom $gettok($1-,1,163)
did -ra w84u2 5 $gettok($1-,2,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Prénom Prénom $gettok($1-,2,163)
did -ra w84u2 7 $gettok($1-,3,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Age Age $gettok($1-,3,163)
if ( $gettok($1-,4,163) == m ) { did -c w84u2 9 }
if ( $gettok($1-,4,163) == f ) { did -c w84u2 9 }
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Sexe Sexe $gettok($1-,4,163)
did -ra w84u2 12 $gettok($1-,5,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Pays Pays $gettok($1-,5,163)
did -ra w84u2 14 $gettok($1-,6,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Ville Ville $gettok($1-,6,163)
did -ra w84u2 16 $gettok($1-,7,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Homepage Homepage $gettok($1-,7,163)
did -ra w84u2 18 $gettok($1-,8,163)
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Citation Citation $gettok($1-,8,163)
}
alias aff_w84u_ini {
var %ini = $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8
if ( $isfile(%ini) == $true ) {
var %tt = $readini %ini Nom Nom
if ( %tt == $null ) { did -ra w84u2 3 N/A | /writeini %ini Nom Nom N/A }
if ( %tt != $null ) { did -ra w84u2 3 %tt }
var %tt = $readini %ini Prénom Prénom
if ( %tt == $null ) { did -ra w84u2 5 N/A | /writeini %ini Prénom Prénom N/A }
if ( %tt != $null ) { did -ra w84u2 5 %tt }
var %tt = $readini %ini Age Age
if ( %tt == $null ) { did -ra w84u2 7 N/A | /writeini %ini Age Age N/A }
if ( %tt != $null ) { did -ra w84u2 7 %tt }
var %tt = $readini %ini Sexe Sexe
if ( %tt == $null ) { /writeini %ini Sexe Sexe N/A }
if ( %tt != $null ) { if ( %tt == m ) { did -c w84u2 9 } | if ( %tt == f ) { did -c w84u2 10 } }
var %tt = $readini %ini Pays Pays
if ( %tt == $null ) { did -ra w84u2 12 N/A | /writeini %ini Pays Pays N/A }
if ( %tt != $null ) { did -ra w84u2 12 %tt }
var %tt = $readini %ini Ville Ville
if ( %tt == $null ) { did -ra w84u2 14 N/A | /writeini %ini Ville Ville N/A }
if ( %tt != $null ) { did -ra w84u2 14 %tt }
var %tt = $readini %ini Homepage Homepage
if ( %tt == $null ) { did -ra w84u2 16 N/A | /writeini %ini Homepage Homepage N/A }
if ( %tt != $null ) { did -ra w84u2 16 %tt }
var %tt = $readini %ini Citation Citation
if ( %tt == $null ) { did -ra w84u2 18 N/A | /writeini %ini Citation Citation N/A }
if ( %tt != $null ) { did -ra w84u2 18 %tt }
var %tt = $readini %ini Adresse Adresse
if ( %tt == $null ) { did -ra w84u2 20 N/A | /writeini %ini Adresse Adresse N/A }
if ( %tt != $null ) { did -ra w84u2 20 %tt }
}
if ( $isfile(%ini) == $false ) {
/dialog -t w84u2 Informations personnelles sur %w84u_nick2 $+ ...
did -ra w84u2 3 N/A
/writeini %ini Nom Nom N/A
did -ra w84u2 5 N/A
/writeini %ini Prénom Prénom N/A
did -ra w84u2 7 N/A
/writeini %ini Age Age N/A
/writeini %ini Sexe Sexe ET
did -ra w84u2 12 N/A
/writeini %ini Pays Pays N/A
did -ra w84u2 14 N/A
/writeini %ini Ville Ville N/A
did -ra w84u2 16 N/A
/writeini %ini Homepage Homepage N/A
did -ra w84u2 18 N/A
/writeini %ini Citation Citation N/A
did -ra w84u2 20 N/A
/writeini %ini Adresse Adresse N/A
}
}
alias ausujet_w84u {
if ( $dialog(aff_ausujw84u).title != $null ) {
/did -g aff_ausujw84u 2 W84u\Images\Squelette\ $+ %fic_nombre $+ .bmp
inc %fic_nombre
if ( %fic_nombre == 21 ) { set %fic_nombre 1 } }
if ( $dialog(aff_ausujw84u).title == $null ) { unset %fic_nombre %ficmail
/.timerw84u2 off } }
alias check_w84u {
if ( %w84u_envoyer_info == on ) { did -c w84u 9 }
if ( %w84u_envoyer_info == off ) { did -c w84u 10 }
if ( %w84u_nom != $null ) { did -ra w84u 13 %w84u_nom }
if ( %w84u_prénom != $null ) { did -ra w84u 15 %w84u_prénom }
if ( %w84u_age != $null ) { did -ra w84u 17 %w84u_age }
if ( %w84u_sexe != $null ) { if ( %w84u_sexe == m ) { did -c w84u 19 } | if ( %w84u_sexe == f ) { did -c w84u 20 } }
if ( %w84u_pays != $null ) { did -ra w84u 22 %w84u_pays }
if ( %w84u_ville != $null ) { did -ra w84u 24 %w84u_ville }
if ( %w84u_homepage != $null ) { did -ra w84u 26 %w84u_homepage }
if ( %w84u_citation != $null ) { did -ra w84u 28 %w84u_citation }
if ( %w84u_jouer_les_sons == on ) { did -c w84u 31 }
if ( %w84u_jouer_les_sons == off ) { did -c w84u 32 }
did -r w84u 34
var %z = $finddir($mircdirW84U\Skins\,*,0,1)
:deb
if ( %z == 0 ) { goto fin }
var %nom = $finddir($mircdirW84U\Skins,*,%z,1)
if ( exemple !isin %nom ) { var %nom = %nom $+ \w84u.ini
if ( $isfile(%nom) == $true ) {
if ( $readini %nom Nom Nom == %w84u_skin_actuel ) { did -a w84u 34 * $+ $readini %nom Nom Nom $+ * }
if ( $readini %nom Nom Nom != %w84u_skin_actuel ) { did -a w84u 34 $readini %nom Nom Nom }
} }
dec %z
goto deb
:fin
}
alias clean_w84u {
window -c @w84u
window -c @w84u2
/unset %w84u_*
/echo $colour(Info Text) -s $timestamp Variables effacées...
/run -n deltree /y $mircdirW84u
/echo $colour(Info Text) -s $timestamp Répertoire effacé...
/echo $colour(Info Text) -s $timestamp Fichier W84U.mrc effacé de la mémoire...
/echo $colour(Info Text) -s $timestamp Désinstallation terminée...
/.unload -rs $mircdirW84U.mrc
}
alias connecté {
set %temp $remove($strip($sline(@w84u2,1)),$chr(160))
if (( connecté isin %temp ) || ( %temp == $null )) { goto fin }
if ( $notify($notify(%temp)).ison == $true ) { unset %temp | return $1- }
:fin
unset %temp
}
alias country_w84u { set %country $readini $mircdirW84U\ $+ pays.txt $1 country }
alias etat_w84u { if ( $window(@w84u) == $null ) { return Activer } | if ( $window(@w84u) != $null ) { return DĂ©sactiver } }
alias mess_w84u {
/verif_dialog mess-w84u
dialog -mo mess-w84u mess-w84u
did -r mess-w84u 2
did -a mess-w84u 2 $1-
}
alias mouvement {
if ($mouse.key == 1) {
if ((%w84u_mousex == $null) || (%w84u_mousey == $null)) { halt }
set %w84u_mousextemp $calc( [ $window($1).x ] + [ $calc( [ $mouse.x ] - [ %w84u_mousex ] ) ] )
set %w84u_mouseytemp $calc( [ $window($1).y ] + [ $calc( [ $mouse.y ] - [ %w84u_mousey ] ) ] )
window -r $$1 %w84u_mousextemp %w84u_mouseytemp
set %w84u_position_fenĂȘtre_ $+ [ $1 ] $+ _x %w84u_mousextemp
set %w84u_position_fenĂȘtre_ $+ [ $1 ] $+ _y %w84u_mouseytemp
unset %w84u_mousextemp %w84u_mouseytemp
}
}
alias non_connecté {
set %temp $remove($strip($sline(@w84u2,1)),$chr(160))
if (( connecté isin %temp ) || ( %temp == $null )) { goto fin }
if ( $notify($notify(%temp)).ison == $false ) { unset %temp | return $1- }
:fin
unset %temp
}
alias verif_dialog { if ( $dialog($1).title != $null ) { /dialog -v $1 | halt } }
alias verif_w84u {
clear @w84u2
set %zzz 1
set %lig 2
if ( $notify(0) < 11 ) { aline -l @w84u2 $+ [ %w84u_couleur_Connecté ] $+ , $+ [ %w84u_couleur_fond ] $str($chr(160),6) Connecté $str($chr(160),20) }
if ( $notify(0) >= 11 ) { aline -l @w84u2 $+ [ %w84u_couleur_Connecté ] $+ , $+ [ %w84u_couleur_fond ] $str($chr(160),4) Connecté $str($chr(160),20) }
:deb_nick_connecté
if ( %zzz > $notify(0) ) {
if ( $notify(0) < 11 ) { aline -l @w84u2 $+ [ %w84u_couleur_Non_Connecté ] $+ , $+ [ %w84u_couleur_fond ] $str($chr(160),2) Non connecté $str($chr(160),20) }
if ( $notify(0) >= 11 ) { aline -l @w84u2 $+ [ %w84u_couleur_Non_Connecté ] $+ , $+ [ %w84u_couleur_fond ] $chr(160) Non connecté $str($chr(160),20) }
set %zzz 1 | goto deb_nick_non_connecté }
if ( $notify(%zzz).ison == $true ) { aline -l @w84u2 $+ [ %w84u_couleur_nick_connecté ] $+ , $+ [ %w84u_couleur_fond ] $notify(%zzz) $+ $str($chr(160),50) | inc %lig }
inc %zzz
goto deb_nick_connecté
:deb_nick_non_connecté
if ( %zzz > $notify(0) ) { goto fin }
if ( $notify(%zzz).ison == $false ) { aline -l @w84u2 $+ [ %w84u_couleur_nick_non_connecté ] $+ , $+ [ %w84u_couleur_fond ] $notify(%zzz) $+ $str($chr(160),50) | inc %lig }
inc %zzz
goto deb_nick_non_connecté
:fin
if ( %lig < 13 ) { :deb | if ( %lig > 12 ) { goto fin } | aline -l @w84u2 $+ [ %w84u_couleur_Connecté ] $+ , $+ [ %w84u_couleur_fond ] $str($chr(160),80) | inc %lig | goto deb | :fin }
unset %zzz %lig
}
alias w84u {
.enable #Notification
if (( %w84u_jouer_les_sons == on ) && ( %w84u_son_de_démarrage != non )) { .splay $mircdir $+ [ %w84u_son_de_démarrage ] }
window -pk0 +d @w84u %w84u_position_fenĂȘtre_@w84u_x %w84u_position_fenĂȘtre_@w84u_y 109 234
window -lh +be @w84u2 %w84u_position_fenĂȘtre_@w84u2_x %w84u_position_fenĂȘtre_@w84u2_y 100 176 Tahoma 11
drawpic @w84u 0 0 %w84u_répertoire_du_skin
window -a @w84u2
verif_w84u
}
alias w84u2 { w84u | /mess_w84u %messs | unset %messs | set %w84u_skin_actuel $did(w84u,34) | check_w84u }
alias w84u_prob {
.disable #ctcp-w84u
/mess_w84u Pas de réponse à votre demande...
}
; ###### Notification ######
#Notification on
on ^*:NOTIFY:{ if (( %w84u_jouer_les_sons == on ) && ( %w84u_son_de_notification != non )) { .splay %w84u_son_de_notification } | verif_w84u | haltdef }
on ^*:UNOTIFY:{ verif_w84u | haltdef }
#Notification end
; ###### Ctcp W84U ######
ctcp 1:*: {
if ( $1 == w84u ) {
if ( %w84u_envoyer_info == off ) { /.ctcpreply $nick w84u Refusé | halt }
if ( %w84u_envoyer_info = on ) {
if ( %w84u_nom == $null ) { set %w84u_nom N/A }
if ( %w84u_prénom == $null ) { set %w84u_prénom N/A }
if ( %w84u_age == $null ) { set %w84u_age N/A }
if ( %w84u_sexe == $null ) { set %w84u_sexe ET }
if ( %w84u_pays == $null ) { set %w84u_pays N/A }
if ( %w84u_ville == $null ) { set %w84u_ville N/A }
if ( %w84u_homepage == $null ) { set %w84u_homepage N/A }
if ( %w84u_citation == $null ) { set %w84u_citation N/A }
/.ctcpreply $nick w84u %w84u_nom $+ $chr(163) $+ %w84u_prénom $+ $chr(163) $+ %w84u_age $+ $chr(163) $+ %w84u_sexe $+ $chr(163) $+ %w84u_pays $+ $chr(163) $+ %w84u_ville $+ $chr(163) $+ %w84u_homepage $+ $chr(163) $+ %w84u_citation | halt }
} }
#ctcp-w84u off
on 1:CTCPREPLY:*:{
if ($1 == W84U) {
if ($2 === Refusé) { /mess_w84u Refus de donner les informations personnelles :'( | .disable #ctcp-w84u | /.timerw84u off | halt }
if ($2 != Refusé) { /aff_w84u $2- | .disable #ctcp-w84u | /.timerw84u off | halt } }
}
#ctcp-w84u end
; ###### WhoiSs ######
#whois_w84u2 off
raw 307:*: { halt }
raw 311:*: {
if ( $dialog(w84u2).title == $null ) { halt }
did -ra w84u2 20 $3 $+ @ $+ $4
/writeini $mircdirW84U\Utilisateurs\ $+ %w84u_nick2 $+ .w8 Adresse Adresse $3 $+ @ $+ $4
halt
}
raw 310:*:{ halt }
raw 312:*: { halt }
raw 313:*:{ halt }
raw 301:*:{ halt }
raw 317:*:{ halt }
raw 318:*: { .disable #whois_w84u2 | halt }
raw 319:*: { halt }
#whois_w84u2 end
#whois_w84u off
raw 307:*: {
did -g qui 11 $mircdirW84U\Images\Ouep.bmp
halt
}
raw 311:*: {
set %pays $right($4,3) | /country_w84u %pays | if (%country == $null) { set %country IP }
set %nom_fic_pays $right($4,2) $+ .bmp
set %temp2 $findfile($mircdirW84U\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 qui 9 $mircdirW84U\Images\Pays\ $+ %nom_fic_pays }
if ( $lower($right($4,3)) == com ) { did -g qui 9 $mircdirW84U\Images\Pays\Com.bmp }
if ( $lower($right($4,3)) == net ) { did -g qui 9 $mircdirW84U\Images\Pays\Net.bmp }
if ( $lower($right($4,3)) == gov ) { did -g qui 9 $mircdirW84U\Images\Pays\Gov.bmp }
if ( $lower($right($4,3)) == edu ) { did -g qui 9 $mircdirW84U\Images\Pays\Edu.bmp }
if ( %temp2 == $null && $lower($right($4,3)) != com && $lower($right($4,3)) != net ) { did -g qui 9 $mircdirW84U\Images\Pays\Inconnu.bmp }
did -i qui 2 %w84u_ligne Adresse: $3 $+ @ $+ $4 ( %country ).
inc %w84u_ligne
did -i qui 2 %w84u_ligne Nom d'utilisateur: $strip($6-) $+ .
inc %w84u_ligne
unset %temp2
unset %nom_fic_pays
unset %pays
unset %country
halt
}
raw 310:*: {
did -g qui 6 $mircdirW84U\Images\Ouep.bmp
halt
}
raw 312:*: {
did -i qui 2 %w84u_ligne Server: $strip($3-) $+ .
inc %w84u_ligne
halt
}
raw 313:*: {
did -g qui 8 $mircdirW84U\Images\Ouep.bmp
halt
}
raw 301:*: {
did -g qui 4 $mircdirW84U\Images\Ouep.bmp
halt
}
raw 317:*: {
did -i qui 2 %w84u_ligne Inactivité: $duration($3)
inc %w84u_ligne
did -i qui 2 %w84u_ligne Date de connection: $asctime($4) $+ .
inc %w84u_ligne
halt
}
raw 318:*: {
unset %w84u_ligne %w84u_nick
.disable #whois_w84u
halt }
raw 319:*: {
did -i qui 2 %w84u_ligne Channels: $strip($3-) $+ .
inc %w84u_ligne
did -i qui 2 %w84u_ligne => Vous avez donc $comchan(%w84u_nick,0) channel(s) en commun.
inc %w84u_ligne
halt
}
#whois_w84u end
; ###### Chargement ######
on 1:LOAD: { /dialog -mo debutw84u debutw84u
/.timer 1 10 .remove $mircdirW84u\Images\demarrage.bmp
unset %w84u_*
set %w84u_couleur_Connecté 15
set %w84u_couleur_fond 1
set %w84u_couleur_nick_connecté 10
set %w84u_couleur_nick_non_connecté 4
set %w84u_couleur_Non_Connecté 14
set %w84u_emplacement_aide1 W84U\Skins\W84u\aide1.bmp
set %w84u_emplacement_aide2 W84U\Skins\W84u\aide2.bmp
set %w84u_emplacement_menu1 W84U\Skins\W84u\menu1.bmp
set %w84u_emplacement_menu2 W84U\Skins\W84u\menu2.bmp
set %w84u_hauteur_aide 14
set %w84u_hauteur_fermeture 10
set %w84u_hauteur_menu 14
set %w84u_hauteur_w84u 10
set %w84u_jouer_les_sons on
set %w84u_largeur_aide 48
set %w84u_largeur_fermeture 10
set %w84u_skin_actuel W84U
set %w84u_largeur_menu 48
set %w84u_largeur_w84u 47
set %w84u_position_aide_x 5
set %w84u_position_aide_y 208
set %w84u_position_fenĂȘtre_@w84u2_x $calc( $window(-1).w - 114 )
set %w84u_position_fenĂȘtre_@w84u2_y 34
set %w84u_position_fenĂȘtre_@w84u_x $calc( %w84u_position_fenĂȘtre_@w84u2_x - 5 )
set %w84u_position_fenĂȘtre_@w84u_y 14
set %w84u_position_fermeture_x 89
set %w84u_position_fermeture_y 6
set %w84u_position_menu_x 55
set %w84u_position_menu_y 208
set %w84u_position_w84u_x 8
set %w84u_position_w84u_y 7
set %w84u_répertoire_du_skin W84U\Skins\W84u\fond.bmp
set %w84u_son_de_démarrage W84U\Skins\W84u\Démarrage.wav
set %w84u_son_de_notification W84U\Skins\W84u\Notification.wav
set %w84u_envoyer_info on
}
; ###### Euh... :p ######
on 1:START:{ w84u | .enable .disable #whois_w84u | .disable #whois_w84u2 | .disable #ctcp-w84u | unset %w84u_nick2 }
on 1:CONNECT:{ verif_w84u }
on 1:DISCONNECT:{ verif_w84u }
; ###### Menu ######
menu menubar,status,channel {
-
W84u
.$etat_w84u:/action w84u
.-
.DĂ©sinstaller:/clean_w84u
}