Whois system v1.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 704 fois - Téléchargée 27 fois

Contenu du snippet

Whois system....
Is not perfect but i love it :)

Source / Exemple :


;whois :)

dialog whois {
  title "Whois System v1.0 by v1ko0"
  size -1 -1 120 120
  option dbu
  box "", 1, 0 0 120 120
  edit "", 2, 38 5 80 10, read autohs
  edit "", 3, 38 17 80 10, read autohs
  edit "", 4, 38 29 80 10, read autohs
  edit "", 5, 38 41 80 10, read autohs
  edit "", 6, 38 53 80 10, read autohs
  edit "", 7, 38 65 80 10, read autohs
  edit "", 8, 38 77 80 10, read autohs
  edit "", 9, 38 89 80 10, read autohs
  text "Nickname..", 10, 5 8 29 8
  text "User@Host..", 11, 3 20 31 8
  text "Name..", 12, 16 32 19 8
  text "Channels..", 13, 8 44 29 8
  text "Server..", 14, 14 56 21 8
  text "Idle Time..", 15, 8 68 31 8
  text "Away..", 16, 16 80 18 8
  text "User Status..", 17, 2 92 32 8
  button "Close Whois System ", 18, 39 104 78 12, ok
  box "", 19, -1 -1 38 120
  box "", 20, -1 -1 37 120
  box "", 21, -1 -1 122 120
  box "", 22, 0 0 120 101
  box "", 23, 0 0 120 102
  text "End Whois..", 24, 4 107 32 8
}
on *:dialog:whois:init:0:{
  did -a whois 2 %whois.nickname
  did -a whois 3 %whois.user@host
  did -a whois 4 $remove(%whois.name,,,,)
  did -a whois 5 %whois.channels
  did -a whois 6 %whois.server
  did -a whois 7 %whois.idle
  did -a whois 8 $remove(%whois.away,,,,)
  did -a whois 9 %whois.status
  if ($group(#whois).status == on) { did -u whois 19 }
  else { did -c whois 19 }
}

on *:dialog:whois:sclick:18:{
  unset %whois.*
}

#whois on

; Away

raw 301:*:{
  set %whois.away $3-
  haltdef
}

; Identified?

raw 307:*:{
  set %whois.identified yes
  haltdef
}

; Nickname, User@Host, Name

raw 311:*:{
  set %whois.nickname $2
  set %whois.user@host $3 $+ @ $+ $4
  set %whois.name $6-
  set %whois.status     Normal User.
  unset %whois.away  
  haltdef
}

; Server

raw 312:*:{
  set %whois.server $3
  haltdef
}

; IRCop

raw 313:*:{
  set %whois.status     mIRC Operator.
  haltdef
}

; Idle time

raw 317:*:{
  set %whois.idle $3
  haltdef
}

; End of /WHOIS List

raw 318:*:{
  haltdef
  if ($dialog(whois) == $null) { dialog -m whois whois }
  else {
    did -r whois 2
    did -r whois 3
    did -r whois 4
    did -r whois 5
    did -r whois 6
    did -r whois 7
    did -r whois 8
    did -r whois 9
    did -a whois 2 %whois.nickname
    did -a whois 3 %whois.user@host
    did -a whois 4 $remove(%whois.name,,,,)
    did -a whois 5 %whois.channels
    did -a whois 6 %whois.server
    did -a whois 7 %whois.idle
    did -a whois 8 $remove(%whois.away,,,,)
    did -a whois 9 %whois.status 
  }
}

; Channels

raw 319:*:{ 
  set %whois.channels $3- 
  haltdef
}

#whois end

; Popups

menu channel {
  &Whois System.
  .&Activate:{ .enable #whois }
  .&Disactivate:{ .disable #whois }
  .-
  .&About :{ echo -a Whois System by v1ko0...Mail-v1ko@mail.bg....This addon work on mIRC 6.03 or plus ! Thanks you for your using :) }
}
}

A voir également

Ajouter un commentaire Commentaires
Messages postés
11
Date d'inscription
vendredi 2 mars 2007
Statut
Membre
Dernière intervention
1 novembre 2007

moi je dit que de toute facon il est englais et que si il serais lire les frencais il aurais poster ceci en frencais donc vos commentaires ne le toucheron pas et je trouve que ce qu'il a fait ca vient de lui donc ! ! ! ces a lui il la poster pour rendre service a des gens comme moi qui ne save pas scripter pas pour les gens qui savent le faire meme si je doit avouer le travail a vestax ! ! !
Messages postés
374
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
24 avril 2013

c'est clair!!! Mais c'est mon typhergane? mais t'est encore là mon ami?? content de te voir, je croyais que tu avais laché le net :))

J'essayerais de passer te voir sur irc, je te remet en notify :)
Bizz ma poule @bientôt :)
Messages postés
62
Date d'inscription
dimanche 3 août 2003
Statut
Membre
Dernière intervention
16 avril 2007

Meme si je ne suis pas le meilleur scripteur au monde je peu me permettre de donner un avis sur une source, ensuite je pense qu'avec un 3/10 les commentaires laisser par les autres scripteurs sont plus que valable. Et de toute façon c'est grace au commentaire que l'on avance !!!!!!
Messages postés
374
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
24 avril 2013

t'inquiette pas que si on laisse des commentaires c'est pour l'aider, c'est parce que l'on sais coder.
Messages postés
2
Date d'inscription
jeudi 6 avril 2006
Statut
Membre
Dernière intervention
6 avril 2006

Bonsoir.

Je préfére être franc, sa n'est pas mon style de "Système Whois"
même si c'est bien fait...
Mais je voudrai juste dire aux autres qu'il envoi des "commentaires"
qu'il devrait un peu appliquer le mode +chut... Car pour envoyez des commentaires comme celà on s'en passerai ! Y'en a qui ne savent même pas coder puis ils critiquent c'est vraiment pitoyable..
Je te félicite pour ce système de whois, bonne continuation à toi..

SaykO
Afficher les 17 commentaires

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.