mIRC Home    About    Download    Register    News    Help

Print Thread
#119334 04/05/05 02:14 PM
Joined: Aug 2003
Posts: 9
J
jenna Offline OP
Nutrimatic drinks dispenser
OP Offline
Nutrimatic drinks dispenser
J
Joined: Aug 2003
Posts: 9
i was wondering if someone could help me i am needing a whois for in the remotes so when someone enters a room i am in thier whois pops up in the channel i am in. would like to have color with it if possible it just has to be a simple one with the main stuff in it like when you do a manual whois on someone. i would apreciate it. i had goten one from someone here before but for some reason cannot find it plus it was a very long time ago.

thank you from jenna

#119335 04/05/05 06:29 PM
Joined: Apr 2005
Posts: 53
A
Babel fish
Offline
Babel fish
A
Joined: Apr 2005
Posts: 53
on 1:join:#:whois $nick

Here is a very simple script, but this is without colors, with colors is too long, and with my knowledge I need raw events to color the whois, and I am too lasy to write this much laugh sorry, maybe other person know much more than me smile

#119336 05/05/05 08:50 AM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Hey aDevil, slight adjustment with your code here.. With your code when you join the channel it will also whois yourself so here's a couple of methods to prevent this.

Code:
On [color:red]![/color]*:Join:[color:red]#channel[/color]: {
  whois $nick
}

or

On *:Join:[color:red]#Channel[/color]: {
  if ($nick != $me) whois $nick
}


The ! stops the event from being triggered by you.

Here's an example with colour.

[code]
On !*:Join:#Channel: {
whoisjoin $nick
}

alias whoisjoin {
.enable #whoisjoin
whois $$1
}

Raw 301:*: {
echo $active $chr(160) 0-9Away: 3 $+ $3- $+ 
haltdef
}


#nick.identify on
Raw 307:*: {
set -u10 %nick.status Yes
haltdef
}

#nick.identify end

#whoisjoin off

Raw 308:*: {
haltdef
}

Raw 311:*: {
set -u10 %w.nick $2
set %address $3 $+ @ $+ $4
echo -a 09Commencing whois on %w.nick
set %orig1 $numtok(%address,46)
set %orig2 . $+ $gettok(%address,%orig1,46)
echo -a $chr(160) -09Nick Name: 03 $+ $2 $+ 
echo -a $chr(160) -09Real Name: 03 $+ $6- $+ 
echo -a $chr(160) -09Address: 03 $+ $3 $+ @ $+ $4 $+ 
if (.af == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Afghanistan | halt }
if (.al == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Albania | halt }
if (.dz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Algeria | halt }
if (.as == %orig2 ) { echo -a $chr(160) 0-09Origin:3 American Samoa | halt }
if (.ad == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Andorra | halt }
if (.ao == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Angola | halt }
if (.ai == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Anguilla | halt }
if (.aq == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Antarctia | halt }
if (.ag == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Antigua and Barbuda | halt }
if (.ar == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Argentina | halt }
if (.am == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Armenia | halt }
if (.aw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Aruba | halt }
if (.ac == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ascension Island | halt }
if (.au == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Australia | halt }
if (.at == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Austria | halt }
if (.az == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Azerbaijan | halt }
if (.bs == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bahamas | halt }
if (.bh == %orig2 ) { echo -a $chr(16

#119337 05/05/05 08:52 AM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Hey aDevil, slight adjustment with your code here.. With your code when you join the channel it will also whois yourself so here's a couple of methods to prevent this.

Code:
On [color:red]![/color]*:Join:[color:red]#channel[/color]: {
  whois $nick
}

or

On *:Join:[color:red]#Channel[/color]: {
  if ($nick != $me) whois $nick
}


The ! stops the event from being triggered by you.

Here's an example with colour.

Code:
On !*:Join:#Channel: {
  whoisjoin $nick
}

alias whoisjoin {
  .enable #whoisjoin
  whois $$1
}

Raw 301:*: {
  echo $active $chr(160) 0-9Away: 3 $+ $3- $+ 
  haltdef
}


#nick.identify on
Raw 307:*: {
  set -u10 %nick.status Yes
  haltdef
}

#nick.identify end

#whoisjoin off

Raw 308:*: {
  haltdef
}

Raw 311:*: {
  set -u10 %w.nick $2
  set %address $3 $+ @ $+ $4
  echo -a 09Commencing whois on %w.nick
  set %orig1 $numtok(%address,46)
  set %orig2 . $+ $gettok(%address,%orig1,46)
  echo -a $chr(160) -09Nick Name: 03 $+ $2 $+ 
  echo -a $chr(160) -09Real Name: 03 $+ $6- $+ 
  echo -a $chr(160) -09Address: 03 $+ $3 $+ @ $+ $4 $+ 
  if (.af == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Afghanistan  | halt }
  if (.al == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Albania  | halt }
  if (.dz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Algeria  | halt }
  if (.as == %orig2 ) { echo -a $chr(160) 0-09Origin:3 American Samoa  | halt }
  if (.ad == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Andorra  | halt }
  if (.ao == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Angola  | halt }
  if (.ai == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Anguilla  | halt }
  if (.aq == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Antarctia  | halt }
  if (.ag == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Antigua and Barbuda  | halt }
  if (.ar == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Argentina  | halt }
  if (.am == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Armenia  | halt }
  if (.aw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Aruba  | halt }
  if (.ac == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ascension Island  | halt }
  if (.au == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Australia  | halt }
  if (.at == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Austria  | halt }
  if (.az == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Azerbaijan  | halt }
  if (.bs == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bahamas  | halt }
  if (.bh == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bahrain  | halt }
  if (.bd == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bangladesh  | halt }
  if (.bb == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Barbados  | halt }
  if (.by == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Belarus  | halt }
  if (.be == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Belgium  | halt }
  if (.bz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Belize  | halt }
  if (.bj == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Benin  | halt }
  if (.bm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bermuda  | halt }
  if (.bt == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bhutan  | halt }
  if (.bo == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bolivia  | halt }
  if (.ba == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bosnia and Herzegowina  | halt }
  if (.bw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Botswana  | halt }
  if (.bv == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bouvet Island  | halt }
  if (.br == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Brazil  | halt }
  if (.io == %orig2 ) { echo -a $chr(160) 0-09Origin:3 British Indian Ocean Territory  | halt }
  if (.bn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Brunei Darussalam  | halt }
  if (.bg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Bulgaria  | halt }
  if (.bf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Burkina Faso  | halt }
  if (.bi == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Burundi  | halt }
  if (.kh == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cambodia  | halt }
  if (.cm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cameroon  | halt }
  if (.ca == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Canada  | halt }
  if (.ky == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cayman Islands  | halt }
  if (.cv == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cape Verde  | halt }
  if (.cf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Central African Republic  | halt }
  if (.td == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Chad  | halt }
  if (.cl == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Chile  | halt }
  if (.cn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 China  | halt }
  if (.cx == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Christmas Island  | halt }
  if (.cc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cocos (Keeling) Islands  | halt }
  if (.co == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Columbia  | halt }
  if (.com == %orig2 )  { echo -a $chr(160) 0-09Origin:3 Commercial (Unknown)  | halt } 
  if (.km == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Comoros  | halt }
  if (.cd == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Democratic People's Republic of Congo  | halt }
  if (.cg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Republic Of Congo  | halt }
  if (.ck == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cook Islands  | halt }
  if (.cr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Costa Rica  | halt }
  if (.ci == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cote D'Ivoire  | halt }
  if (.hr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Croatia/Hrvatska  | halt }
  if (.cu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cuba  | halt }
  if (.cy == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Cyprus  | halt }
  if (.cz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Czech Republic  | halt }
  if (.dk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Denmark  | halt }
  if (.dj == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Djibouti  | halt }
  if (.dm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Dominica  | halt }
  if (.do == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Dominican Republic  | halt }
  if (.tp == %orig2 ) { echo -a $chr(160) 0-09Origin:3 East Timor  | halt }
  if (.ec == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ecuador  | halt }
  if (.edu == %orig2 )  { echo -a $chr(160) 0-09Origin:3 Educational Institution  | halt }
  if (.eg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Egypt  | halt }
  if (.sv == %orig2 ) { echo -a $chr(160) 0-09Origin:3 El Salvador  | halt }
  if (.gq == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Equatorial Guinea  | halt }
  if (.er == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Eritrea  | halt }
  if (.ee == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Estonia  | halt }
  if (.et == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ethiopia  | halt }
  if (.fk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Falkland Islands (Malvinas)  | halt }
  if (.fo == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Faroe Islands  | halt }
  if (.fj == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Fiji  | halt }
  if (.fi == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Finland  | halt }
  if (.fr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 France  | halt }
  if (.fx == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Metropolitan France  | halt }
  if (.gf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 French Guiana  | halt }
  if (.pf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 French Polynesia  | halt }
  if (.tf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 French Southern Terrirories  | halt }
  if (.ga == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Gabon  | halt }
  if (.gm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Gambania  | halt }
  if (.ge == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Georgia  | halt }
  if (.de == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Germany  | halt }
  if (.gh == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ghana  | halt }
  if (.gi == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Gibraltar  | halt }
  if (.gr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Greece  | halt }
  if (.gl == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Greenland  | halt }
  if (.gd == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Grenada  | halt }
  if (.gp == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guadeloupe  | halt }
  if (.gu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guam  | halt }
  if (.gt == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guatemala  | halt }
  if (.gg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guernsey  | halt }
  if (.gn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guinea  | halt }
  if (.gw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guinea-Bissau  | halt }
  if (.gy == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Guyana  | halt }
  if (.ht == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Haiti  | halt }
  if (.hm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Heard and McDonald Islands  | halt }
  if (.va == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Holy See (Vatican City State)  | halt }
  if (.hn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Honduras  | halt }
  if (.hk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Hong Kong  | halt }
  if (.hu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Hungary  | halt }
  if (.is == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Iceland  | halt }
  if (.in == %orig2 ) { echo -a $chr(160) 0-09Origin:3 India  | halt }
  if (.id == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Indonesia  | halt }
  if (.ir == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Iran (Islamic Republic Of)  | halt }
  if (.iq == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Iraq  | halt }
  if (.ie == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ireland  | halt }
  if (.im == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Isle of Man  | halt }
  if (.il == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Israel  | halt }
  if (.it == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Italy  | halt } 
  if (.jm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Jamaica  | halt }
  if (.jp == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Japan  | halt }
  if (.je == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Jersey  | halt }
  if (.jo == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Jordan  | halt }
  if (.kz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Kazakhstan  | halt }
  if (.ke == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Kenya  | halt }
  if (.ki == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Kiribati  | halt }
  if (.kp == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Democratic People's Republic of Korea  | halt }
  if (.kr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Republic Of Korea  | halt }
  if (.kw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Kuwait  | halt }
  if (.kg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Kyrgzstan  | halt }
  if (.la == %orig2 ) { echo -a $chr(160) 0-09Origin:3 People's Democratic Republic Of Lao  | halt }
  if (.lv == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Latvia  | halt }
  if (.lb == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Lebanon  | halt }
  if (.ls == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Lesotho  | halt }
  if (.lr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Liberia  | halt }
  if (.ly == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Libyan Arab Jamahiriya  | halt }
  if (.li == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Liechtenstein  | halt }
  if (.lt == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Lithuania  | halt }
  if (.lu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Luxembourg  | halt }
  if (.mo == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Macau  | halt }
  if (.mk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Macedonia  | halt }
  if (.mg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Madagascar  | halt }
  if (.mw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Malawi  | halt }
  if (.my == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Malaysia  | halt }
  if (.mv == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Maldives  | halt }
  if (.ml == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mali  | halt }
  if (.mt == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Malta  | halt }
  if (.mh == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Marshall Islands  | halt }
  if (.mq == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Martinique  | halt }
  if (.mr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mauritania  | halt }
  if (.mu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mauritius  | halt }
  if (.yt == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mayotte  | halt }
  if (.mx == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mexico  | halt }
  if (.fm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Federal States of Micronesia  | halt }
  if (.md == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Republic Of Moldova  | halt }
  if (.mc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Monaco  | halt }
  if (.mn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mongolia  | halt }
  if (.ms == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Monsterrat  | halt }
  if (.ma == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Morocco  | halt }
  if (.mz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Mozambique  | halt }
  if (.mm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Myanmar  | halt }
  if (.na == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Nambia  | halt }
  if (.nr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Nauru  | halt }
  if (.np == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Nepal  | halt }
  if (.nl == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Netherlands  | halt }
  if (.an == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Netherlands Antilles  | halt }
  if (.nc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 New Calendonia  | halt }
  if (.nz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 New Zealand  | halt }
  if (.ni == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Nicaragua  | halt }
  if (.ne == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Niger  | halt }
  if (.net == %orig2 )  { echo -a $chr(160) 0-09Origin:3 Network (Unknown)  | halt }
  if (.ng == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Nigeria  | halt }
  if (.nu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Niue  | halt }
  if (.nf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Norfolk Island  | halt }
  if (.mp == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Northern Mariana Islands  | halt }
  if (.no == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Norway  | halt }
  if (.om == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Oman  | halt }
  if (.pk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Pakistan  | halt }
  if (.pw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Palau  | halt }
  if (.pa == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Panama  | halt }
  if (.pg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Papua New Guinea  | halt }
  if (.py == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Paraguay  | halt }
  if (.pe == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Peru  | halt }
  if (.ph == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Phillippines  | halt }
  if (.pn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Pitcairn  | halt }
  if (.pl == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Poland  | halt }
  if (.ot == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Portugal  | halt }
  if (.org == %orig2 )  { echo -a $chr(160) 0-09Origin:3 Organization (Unknown)  | halt }
  if (.pr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Puerto Rico  | halt }
  if (.qa == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Qatar  | halt }
  if (.re == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Reunion  | halt }
  if (.ro == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Romania  | halt }
  if (.ru == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Russian Federation  | halt }
  if (.rw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Rwanda  | halt }
  if (.kn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Saint Kitts and Nevis  | halt }
  if (.lc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Saint Lucia  | halt }
  if (.vc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Saint Vincent and the Grenadines  | halt }
  if (.ws == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Samoa  | halt }
  if (.sm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 San Marino  | halt }
  if (.st == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Sao Tome and Principe  | halt }
  if (.sa == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Saudi Arabia  | halt }
  if (.sn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Senegal  | halt }
  if (.sc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Seychelles  | halt }
  if (.sl == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Sierra Leone  | halt }
  if (.sg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Singapore  | halt }
  if (.sk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Slovakia (Slovak Republic)  | halt }
  if (.si == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Slovenia  | halt }
  if (.sb == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Soloman Islands  | halt }
  if (.so == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Somalia  | halt }
  if (.za == %orig2 ) { echo -a $chr(160) 0-09Origin:3 South Africa  | halt }
  if (.gs == %orig2 ) { echo -a $chr(160) 0-09Origin:3 South Georgia and Sandwich Isl.  | halt }
  if (.es == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Spain  | halt }
  if (.lk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Sri Lanka  | halt }
  if (.sh == %orig2 ) { echo -a $chr(160) 0-09Origin:3 St. Helena  | halt }
  if (.pm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 St. Pierre and Miquelon  | halt }
  if (.sd == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Sudan  | halt }
  if (.sr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Suriname  | halt }
  if (.sj == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Svalbard and Jan Mayen Isl.  | halt }
  if (.sz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Swaziland  | halt }
  if (.se == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Sweden  | halt }
  if (.ch == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Switzerland  | halt }
  if (.sy == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Syrian arab Republic  | halt }
  if (.tw == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Taiwan  | halt }
  if (.tj == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Tajikistan  | halt }
  if (.tz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Tanzania  | halt }
  if (.th == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Thailand  | halt }
  if (.tg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Togo  | halt }
  if (.tk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Tokelau  | halt }
  if (.to == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Tonga  | halt }
  if (.tt == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Trinidad and Tobago  | halt }
  if (.tn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Tunisia  | halt }
  if (.tr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Turkey  | halt }
  if (.tm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Turkmenistan  | halt }
  if (.tc == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Turks and Ciacos Islands  | halt }
  if (.tv == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Tuvalu  | halt }
  if (.ug == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Uganda  | halt }
  if (.ua == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Ukraine  | halt }
  if (.ae == %orig2 ) { echo -a $chr(160) 0-09Origin:3 United Arab Emirates  | halt }
  if (.gb == %orig2 ) { echo -a $chr(160) 0-09Origin:3 United Kingdom  | halt }
  if (.us == %orig2 ) { echo -a $chr(160) 0-09Origin:3 United States  | halt }
  if (.uk == %orig2 ) { echo -a $chr(160) 0-09Origin:3 United Kingdom  | halt }
  if (.um == %orig2 )  { echo -a $chr(160) 0-09Origin:3 United States Minor Outlying Islands  | halt }
  if (.uy == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Uruguay  | halt }
  if (.uz == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Uzbekistan  | halt }
  if (.vu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Vanuatu  | halt }
  if (.ve == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Venezuela  | halt }
  if (.vn == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Viet Nam  | halt }
  if (.vg == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Virgin Islands (British)  | halt }
  if (.vi == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Virgin Islands (United States)  | halt }
  if (.wf == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Wallis and Futuna Islands  | halt }
  if (.eh == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Western Sahara  | halt }
  if (.ye == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Yemen  | halt }
  if (.yu == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Yugoslavia  | halt }
  if (.zr == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Zaire  | halt }
  if (.zm == %orig2 ) { echo -a $chr(160) 0-09Origin:3 Zambia  | halt }
  if (.zw == %orig2 ) { echo -a $chr(160) 0-09Origin:3  Zimbabwe  | halt }
  else { echo -a $chr(160) 0-09Origin:3  Origin Unknown | halt }
  haltdef
}

Raw 328:*: {
  echo -a $chr(160) -09IP Address: 03 $+ $7 $+ 
  haltdef
}

Raw 309:*: { 
  echo -a $chr(160) -09Language: 03 $+ $7 $+ 
  haltdef
}

Raw 312:*: { 
  echo -a $chr(160) -09Connected to: 03 $+ $3 $+ 
  echo -a $chr(160) -09Server name: 03 $+ $4- $+ 
  haltdef
}

Raw 317:*: {
  echo -a $chr(160) -09Idle: 03 $+ $duration($3) $+ 
  echo -a $chr(160) -09Connected to server: 03 $+ $duration($calc($ctime - $4)) $+  09ago
  if (%nick.status == Yes) { 
    echo -a $chr(160) -09Status: 03 $+ Registered Nickname 
    set -u10 %w.nick $2
    echo -a 09End of whois
    unset %Reg.nick
    unset %address
    unset %orig
    unset %orig1
    unset %orig2
    .disable #whoisjoin  
  }
  else { 
    echo -a $chr(160) -09Status: 03 Normal User $+ 
    set -u10 %w.nick $2
    echo -a 09End 03of 09whois
    unset %Reg.nick
    unset %address
    unset %orig
    unset %orig1
    unset %orig2
    .disable #whoisjoin  
  }
  haltdef
}

Raw 319:*: {
  echo 3 -a $chr(160) -09Channel:3 $replace($3-,@,12@,+,4+,-,7-,%,8%)
  haltdef
}

Raw 325:*: {
  echo -a $chr(160) -09Profanity: 03 $+ Profanity filter enabled. $+ 
  haltdef
}

Raw 334:*: {
  haltdef
}

Raw 401:*: {
  set -u10 %w.nick $2
  echo -a  09No such Nickname/Channel..
  haltdef
}

Raw 318:*: {
  echo -a 09End of whois 
  haltdef
}

Raw 313:*: {
  set -u10 %priv1 $5
  set -u10 %priv2 $6
  haltdef
}

Raw 310:*: {
  set -u10 %w.ircop $3-
  echo -a $chr(160) -09IRCop: 03 $+ %priv1 %priv2 $+  09( $+ 03 $+ %w.ircop $+ 09)
  haltdef
}
#whoisjoin end


Colours can be changed, origins can be removed, ZIP codes maybe added at will. smile

All the best,

-Andy

#119338 05/05/05 03:29 PM
Joined: Apr 2005
Posts: 53
A
Babel fish
Offline
Babel fish
A
Joined: Apr 2005
Posts: 53
Thanks your correction SladeKraven. smile
I also have a script writed by me before. Maybe can you check what problems is in, it is working for me well, but perhaps you will see problems like this smile

alias whois {
/userip $1
/userhost $1
/whois $$1 $1
}

raw 301:*:{
/set %active $active
if (%active == Status Window) { /unset %active }
elseif ($window($2,state) == 1) { /set %active $2 }
/echo %active  $+ %szin2 $+ -[ Away:  $+ %szin1 $+ $3-  $+ %szin2 $+ ]-
halt
}


raw 302:*:{
haltdef
/set %active $active
if (%active == Status Window) { /unset %active }
elseif ($window($2,state) == 1) { /set %active $2 }
tokenize 64 $2
set %host $2
}


raw 311:*:{
/set %active $active
if (%active == Status Window) { /unset %active }
elseif ($window($2,state) == 1) { /set %active $2 }
if ($line(%active,$line(%active,0)) !=  $+ %szin2 $+ - $+ ) { /echo %active  $+ %szin2 $+ - $+  }
/echo %active  $+ %szin2 $+ /!\ Whois  $+ %szin1 $+ $2  $+ %szin2 $+ /!\
/echo %active  $+ %szin2 $+ -[ Realname:  $+ %szin1 $+ $6-  $+ %szin2 $+ ]-
/echo %active  $+ %szin2 $+ -[ Address:  $+ %szin1 $+ $3 $+ @ $+ $4  $+ %szin2 $+ ]-
halt
}


raw 312:*:{
/echo %active  $+ %szin2 $+ -[ IRC Server:  $+ %szin1 $+ $3-  $+ %szin2 $+ ]-
halt
}


raw 317:*:{
/echo %active  $+ %szin2 $+ -[ Idle: $+  $+ %szin1 $duration($3) $+   $+ %szin2 $+ ]-
/set %mdatum $ctime($fulldate)
/set %datum $ctime($asctime($4))
%odatum = %mdatum - %datum
/echo %active  $+ %szin2 $+ -[ Online: $+  $+ %szin1 $duration(%odatum)  $+ %szin2 $+ ]-
/echo %active  $+ %szin2 $+ -[ Signed on:  $+ %szin1 $+ $asctime($4)  $+ %szin2 $+ ]-
if (%ip != 127.0.0.1) { /echo %active  $+ %szin2 $+ -[ Ip: $+  $+ %szin1 %ip  $+ %szin2 $+ ]- }
if (%ip != %host) { /echo %active  $+ %szin2 $+ -[ Host: $+  $+ %szin1 %host  $+ %szin2 $+ ]- }
if ((%szin1 == $null) || (%szin2 == $null)) /echo 4 %active -[ A whois szinezeset a menuben valaszthatod ki! ]-
unset %mdatum
unset %datum
unset %odatum
unset %ip
halt
}


raw 318:*:{
/set %active $active
if (%active == Status Window) { /unset %active }
elseif ($window($2,state) == 1) { /set %active $2 }
if (%addr != $null) {
/echo %active  $+ %szin2 $+ -[ Host:  $+ %szin1 $+ %addr  $+ %szin2 $+ ]-
/unset %addr
}
if (%ip != $null) {
/echo %active  $+ %szin2 $+ -[ Ip: $+  $+ %szin1 %ip  $+ %szin2 $+ ]-
/unset %ip
}
/echo %active  $+ %szin2 $+ /!\ End of whois  $+ %szin2 $+ /!\
/echo %active  $+ %szin2 $+ - $+ 
/unset %active
halt
}


raw 319:*:{
/echo %active  $+ %szin2 $+ -[ Channels:  $+ %szin1 $+ $3-  $+ %szin2 $+ ]-
halt
}


raw 340:*:{
haltdef
/set %active $active
if (%active == Status Window) { /unset %active }
elseif ($window($2,state) == 1) { /set %active $2 }
tokenize 64 $2
set %ip $2
}


raw 401:*:{
/set %active $active
if (%active == Status Window) { /unset %active }
elseif ($window($2,state) == 1) { /set %active $2 }
/echo %active  $+ %szin2 $+ -[ No such nick:  $+ %szin1 $+ $2  $+ %szin2 $+ ]-
halt
}


raw *:*:{
if ($5 == logged) {
/echo %active  $+ %szin2 $+ -[ User: $+  $+ %szin1 $3 $+   $+ %szin2 $+ ]-
halt
}
}


menu MenuBar {
Valtozo szoveg:/elso
Stabil szoveg:/masadik

}


alias elso /dialog -m elso elso
dialog elso {
title "Szinek"
size -1 -1 130 410
text "Valaszd ki a valtozo szoveg szinet:",18, 10 10 80 40
radio "Feher",1, 10 55 80 20
radio "Fekete",2, 10 75 80 20
radio "Vilagos kek",3, 10 95 80 20
radio "Kek",4, 10 115 80 20
radio "Sotet kek",5, 10 135 80 20
radio "Vilagos zold",6, 10 155 80 20
radio "Zold",7, 10 175 80 20
radio "Sotet zold",8, 10 195 80 20
radio "Piros",9, 10 215 80 20
radio "Bordo",10, 10 235 80 20
radio "Lila",11, 10 255 80 20
radio "Narancssarga",12, 10 275 100 20
radio "Sarga",13, 10 295 80 20
radio "Rozsaszin",14, 10 315 80 20
radio "Vilagos szurke",15, 10 335 100 20
radio "Sotet szurke",16, 10 355 80 20
button "Ok", 17, 20 385 40 20, ok
}

ctcp ^1

on *:dialog:elso:init:0:{
if (%szin1 != $null) {
if (%szin1 == 11) { did -c $dname 3 }
elseif (%szin1 == 12) { did -c $dname 4 }
elseif (%szin1 == 2) { did -c $dname 5 }
elseif (%szin1 == 9) { did -c $dname 6 }
elseif (%szin1 == 3) { did -c $dname 7 }
elseif (%szin1 == 10) { did -c $dname 8 }
elseif (%szin1 == 4) { did -c $dname 9 }
elseif (%szin1 == 5) { did -c $dname 10 }
elseif (%szin1 == 6) { did -c $dname 11 }
elseif (%szin1 == 7) { did -c $dname 12 }
elseif (%szin1 == 8) { did -c $dname 13 }
elseif (%szin1 == 15) { did -c $dname 15 }
elseif (%szin1 == 14) { did -c $dname 16 }
else {
%szin3 = %szin1 + 1
did -c $dname %szin3
}
if (%szin1 == $null) { /set %szin1 3 }
}
}


on *:dialog:elso:sclick:1: {
/set %szin1 0
}


on *:dialog:elso:sclick:2: {
/set %szin1 1
}


on *:dialog:elso:sclick:3: {
/set %szin1 11
}


on *:dialog:elso:sclick:4: {
/set %szin1 12
}


on *:dialog:elso:sclick:5: {
/set %szin1 2
}


on *:dialog:elso:sclick:6: {
/set %szin1 9
}


on *:dialog:elso:sclick:7: {
/set %szin1 3
}


on *:dialog:elso:sclick:8: {
/set %szin1 10

#119339 05/05/05 04:37 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Working well you say? What am I checking for then? :tongue:

#119340 05/05/05 04:40 PM
Joined: Apr 2005
Posts: 53
A
Babel fish
Offline
Babel fish
A
Joined: Apr 2005
Posts: 53
Maybe you see a bug what I can't see??? laugh

#119341 05/05/05 04:50 PM
Joined: Dec 2002
Posts: 3,547
S
Hoopy frood
Offline
Hoopy frood
S
Joined: Dec 2002
Posts: 3,547
Well it looks ok to me, though I've not tested it.


Link Copied to Clipboard