Ghost dialog
Contenu du snippet
ben ce dialog sert a ghoster de deux manières
1) la manière normale /ns GHOST pseudo pass
2) par socket l'avantage de la socket est que c'est annonyme
a vous de tester
1) la manière normale /ns GHOST pseudo pass
2) par socket l'avantage de la socket est que c'est annonyme
Source / Exemple :
menu channel,nicklist {
-
ghost-dialog: {
/set %chanenquestion $chan
/dialog -m ghost ghost
}
}
dialog ghost {
title " ---------=====>> GHOST DIALOG <<=====-------- "
size -1 -1 370 400
tab "méthode 1",24, 5 5 370 293
tab "méthode 2",25
box "pseudo" ,1, 13 40 145 160, tab24
edit "" ,2, 23 60 130 20, tab24
edit "" ,3, 23 85 130 20, tab24
edit "" ,4, 23 110 130 20, tab24
edit "" ,5, 23 135 130 20, tab24
edit "" ,6, 23 160 130 20, tab24
box "mot de passe",7, 157 40 120 160, tab24
edit "" ,8, 167 60 100 20, pass, tab24
edit "" ,9, 167 85 100 20, pass, tab24
edit "" ,10, 167 110 100 20, pass, tab24
edit "" ,11, 167 135 100 20, pass, tab24
edit "" ,12, 167 160 100 20, pass, tab24
button "ghoster" ,13, 280 60 60 20, tab24
button "ghoster" ,14, 280 85 60 20, tab24
button "ghoster" ,15, 280 110 60 20, tab24
button "ghoster" ,16, 280 135 60 20, tab24
button "ghoster" ,17, 280 160 60 20, tab24
box "ghoster",18, 276 40 80 160, tab24
button "VALIDER" ,19, 13 210 100 48, flat ok
button "ANNULER" ,20, 257 210 100 48, flat cancel
text "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!",23, 10 265 365 15
box "",26, 10 30 140 175, tab25
list 27, 15 40 130 175, tab25
edit "",28, 220 50 120 20, read, autohs, tab25
text "Pseudo",29, 160 50 60 20, tab25
text "Pass",30, 160 90 60 20, tab25
edit "",31, 220 90 120 20, tab25, pass
button "ghoster",32, 215 140 80 25, tab25
box "",33, 210 130 90 40, tab25
box "méthode de ghost",34, 5 300 360 80
radio "normale(votre pseudo aparaitra lors du ghost)",35, 15 320 250 20
radio "par socket(vous pouvez choisir le pseudo que vous voulez pour ghoster",36, 15 350 400 20
text "état :",37, 5 385 100 20
text "",38, 40 385 100 20
}
ON *:DIALOG:ghost:sclick:27: { .did -ra ghost 28 $did(27).seltext | .did -n ghost 31 }
ON *:DIALOG:ghost:edit:31: {
if ($did(31) != $null) { .did -e ghost 32 }
if ($did(31) == $null) { .did -b ghost 32 }
}
ON *:DIALOG:ghost:sclick:32: {
if (%methode == normale) { /NickServ ghost $hget(pseudolist,pseudo6) $hget(pseudolist,pass6) }
else { ghost_socket | .set %pseudo_a_ghoster $did(28) | .set %pass_du_pseudo $did(31) | .set %numBouton 6 }
}
Alias affichelist {
If ($server) {
Var %nickchan = 1
:affichage
While (%nickchan <= $nick(%chanenquestion,0)) {
.did -a ghost 27 $nick(%chanenquestion,%nickchan)
Inc %nickchan
Goto affichage
}
}
}
ON *:DIALOG:ghost:edit:2: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pseudo1 $did(2) }
else { .hadd pseudolist pseudo1 $did(2) }
if ($did(2) == $null) || ($did(8) == $null) { .did -b ghost 13 }
else { .did -e ghost 13 }
}
ON *:DIALOG:ghost:edit:3: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pseudo2 $did(3) }
else { .hadd pseudolist pseudo2 $did(3) }
if ($did(3) == $null) || ($did(9) == $null) { .did -b ghost 14 }
else { .did -e ghost 14 }
}
ON *:DIALOG:ghost:edit:4: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pseudo3 $did(4) }
else { .hadd pseudolist pseudo3 $did(4) }
if ($did(4) == $null) || ($did(10) == $null) { .did -b ghost 15 }
else { .did -e ghost 15 }
}
ON *:DIALOG:ghost:edit:5: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pseudo4 $did(5) }
else { .hadd pseudolist pseudo4 $did(5) }
if ($did(5) == $null) || ($did(11) == $null) { .did -b ghost 16 }
else { .did -e ghost 16 }
}
ON *:DIALOG:ghost:edit:6: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pseudo5 $did(6) }
else { .hadd pseudolist pseudo5 $did(6) }
if ($did(6) == $null) || ($did(12) == $null) { .did -b ghost 17 }
else { .did -e ghost 17 }
}
ON *:DIALOG:ghost:edit:8: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pass1 $did(8) }
else { .hadd pseudolist pass1 $did(8) }
if ($did(8) == $null) || ($did(2) == $null) { .did -b ghost 13 }
else { .did -e ghost 13 }
}
ON *:DIALOG:ghost:edit:9: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pass2 $did(9) }
else { .hadd pseudolist pass2 $did(9) }
if ($did(9) == $null) || ($did(3) == $null) { .did -b ghost 14 }
else { .did -e ghost 14 }
}
ON *:DIALOG:ghost:edit:10: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pass3 $did(10) }
else { .hadd pseudolist pass3 $did(10) }
if ($did(10) == $null) || ($did(4) == $null) { .did -b ghost 15 }
else { .did -e ghost 15 }
}
ON *:DIALOG:ghost:edit:11: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pass4 $did(11) }
else { .hadd pseudolist pass4 $did(11) }
if ($did(11) == $null) || ($did(5) == $null) { .did -b ghost 16 }
else { .did -e ghost 16 }
}
ON *:DIALOG:ghost:edit:12: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pass5 $did(12) }
else { .hadd pseudolist pass5 $did(12) }
if ($did(12) == $null) || ($did(6) == $null) { .did -b ghost 17 }
else { .did -e ghost 17 }
}
ON *:DIALOG:ghost:edit:31: {
if (!$hget(pseudolist)) { /hmake pseudolist 100 | .hadd pseudolist pseudo6 $did(31) }
else { .hadd pseudolist pseudo6 $did(31) }
}
ON *:DIALOG:ghost:sclick:13: {
if (%methode == normale) { /msg Nickserv ghost $hget(pseudolist,pseudo1) $hget(pseudolist,pass1) }
else { ghost_socket | .set %pseudo_a_ghoster $did(2) | .set %pass_du_pseudo $did(8) | .set %numBouton 1 }
}
ON *:DIALOG:ghost:sclick:14: {
if (%methode == normale) { /msg Nickserv ghost $hget(pseudolist,pseudo2) $hget(pseudolist,pass2) }
else { ghost_socket | .set %pseudo_a_ghoster $did(3) | .set %pass_du_pseudo $did(9) | .set %numBouton 2 }
}
ON *:DIALOG:ghost:sclick:15: {
if (%methode == normale) { /msg Nickserv ghost $hget(pseudolist,pseudo3) $hget(pseudolist,pass3) }
else { ghost_socket | .set %pseudo_a_ghoster $did(4) | .set %pass_du_pseudo $did(10) | .set %numBouton 3 }
}
ON *:DIALOG:ghost:sclick:16: {
if (%methode == normale) { /msg Nickserv ghost $hget(pseudolist,pseudo4) $hget(pseudolist,pass4) }
else { ghost_socket | .set %pseudo_a_ghoster $did(5) | .set %pass_du_pseudo $did(11) | .set %numBouton 4 }
}
ON *:DIALOG:ghost:sclick:17: {
if (%methode == normale) { /msg Nickserv ghost $hget(pseudolist,pseudo5) $hget(pseudolist,pass5) }
else { ghost_socket | .set %pseudo_a_ghoster $did(6) | .set %pass_du_pseudo $did(12) | .set %numBouton 5 }
}
ON *:DIALOG:ghost:sclick:36: {
/set %pseudo_du_ghost $?"entre le pseudo que tu auras lors du ghost"
/set %methode socket
.did -a ghost 38 Socket
}
ON *:DIALOG:ghost:sclick:35: { /set %methode normale | .did -a ghost 38 Normal }
ON *:DIALOG:ghost:init:0: {
/affichelist
if ($did(31) == $null) { .did -m ghost 31 | .did -b ghost 32 }
.did -c ghost 35
/set %methode normale
.did -a ghost 2 $hget(pseudolist,pseudo1)
.did -a ghost 3 $hget(pseudolist,pseudo2)
.did -a ghost 4 $hget(pseudolist,pseudo3)
.did -a ghost 5 $hget(pseudolist,pseudo4)
.did -a ghost 6 $hget(pseudolist,pseudo5)
.did -a ghost 8 $hget(pseudolist,pass1)
.did -a ghost 9 $hget(pseudolist,pass2)
.did -a ghost 10 $hget(pseudolist,pass3)
.did -a ghost 11 $hget(pseudolist,pass4)
.did -a ghost 12 $hget(pseudolist,pass5)
.did -a ghost 38 Normal
if (!$hget(pseudolist,pseudo1)) || (!$hget(pseudolist,pass1)) { .did -b ghost 13 }
if (!$hget(pseudolist,pseudo2)) || (!$hget(pseudolist,pass2)) { .did -b ghost 14 }
if (!$hget(pseudolist,pseudo3)) || (!$hget(pseudolist,pass3)) { .did -b ghost 15 }
if (!$hget(pseudolist,pseudo4)) || (!$hget(pseudolist,pass4)) { .did -b ghost 16 }
if (!$hget(pseudolist,pseudo5)) || (!$hget(pseudolist,pass5)) { .did -b ghost 17 }
}
alias ghost_socket {
sockclose ghost_socket
sockopen ghost_socket $server $port
.did -a ghost 38 Socket Connecting
}
On *:SOCKOPEN:ghost_socket: {
.window -ek @ghost_socket
.sockwrite -n ghost_socket USER ghosteur_sockeuteur X X :sock
.sockwrite -n ghost_socket nick %pseudo_du_ghost
.did -a ghost 38 Socket Connected
}
On *:SOCKREAD:ghost_socket: {
sockread %ghost
echo @ghost_socket %ghost
if ($gettok(%ghost,1,32) == PING) { .sockwrite -n ghost_socket PONG $gettok(%ghost,2,58) }
if ($gettok(%ghost,2,32) == 001) && (%numBouton == 6) { .sockwrite -n ghost_socket PRIVMSG NickServ :GHOST %pseudo_a_ghoster %pass_du_pseudo | /sockclose ghost_socket | /unset %pseudo_a_ghoster | /unset %pass_du_pseudo }
if ($gettok(%ghost,2,32) == 001) && (%numBouton == 1) { .sockwrite -n ghost_socket PRIVMSG NickServ :GHOST %pseudo_a_ghoster %pass_du_pseudo | /sockclose ghost_socket | /unset %pseudo_a_ghoster | /unset %pass_du_pseudo }
if ($gettok(%ghost,2,32) == 001) && (%numBouton == 2) { .sockwrite -n ghost_socket PRIVMSG NickServ :GHOST %pseudo_a_ghoster %pass_du_pseudo | /sockclose ghost_socket | /unset %pseudo_a_ghoster | /unset %pass_du_pseudo }
if ($gettok(%ghost,2,32) == 001) && (%numBouton == 3) { .sockwrite -n ghost_socket PRIVMSG NickServ :GHOST %pseudo_a_ghoster %pass_du_pseudo | /sockclose ghost_socket | /unset %pseudo_a_ghoster | /unset %pass_du_pseudo }
if ($gettok(%ghost,2,32) == 001) && (%numBouton == 4) { .sockwrite -n ghost_socket PRIVMSG NickServ :GHOST %pseudo_a_ghoster %pass_du_pseudo | /sockclose ghost_socket | /unset %pseudo_a_ghoster | /unset %pass_du_pseudo }
if ($gettok(%ghost,2,32) == 001) && (%numBouton == 5) { .sockwrite -n ghost_socket PRIVMSG NickServ :GHOST %pseudo_a_ghoster %pass_du_pseudo | /sockclose ghost_socket | /unset %pseudo_a_ghoster | /unset %pass_du_pseudo }
if ($gettok(%ghost,2-5,32) == NOTICE NickServ :Accès refusé.) { var %error = $input(Le mot de passe est incorrect! Impossible de ghost %nick_a_ghoster $+ .,oaw,Erreur) }
}
Conclusion :
a vous de tester
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.