Whois system v1.0

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_viko)