mIRC Home    About    Download    Register    News    Help

Forums Active Threads Search Who's Online Help
Print Thread
IRC Servers script
#68345 18/01/04 12:17 AM
Joined: Jan 2004
Posts: 4
Texas
N
NetBandit Offline OP
Self-satisified door
OP Offline
NetBandit
Self-satisified door
N
Joined: Jan 2004
Posts: 4
Texas
This script comes in handy especially in those nasty net splits:
It will allow you to connect to the irc of your choice and the corresponding servers
Note: there is room to add more irc's and thier servers
P.S. feel free to edit this script in any way you see fit { I know you will anyway :P}
copy and paste it to a notepad.txt. Save it as IRCservers rev-4, save it in Mirc\system, Use this command to load it, /load -rs system/ircser~1.txt
---------------------------------------------------------------------------
dialog ServersAweMan {
title "Servers For MIRC"
size -1 -1 200 245


tab "Access Net IRC Servers ", 1, 6 16 178 217
tab "Access Net IRC Servers ", 2, 6 16 178 217
tab " DalNet IRC Servers ", 3, 6 16 178 217
tab " NewNet IRC Servers ", 4, 6 16 178 217
tab " NewNet IRC Servers ", 5, 6 16 178 217
tab "PhazeNet IRC Servers ", 6, 6 16 178 217
tab " UnderNet IRC Servers ", 7, 6 16 178 217
tab " UnderNet IRC Servers ", 8, 6 16 178 217
tab " UnderNet IRC Servers ", 9, 6 16 178 217
tab "MOONLIGHTDREAMS", 10, 6 16 178 217
tab " Spare IRC Servers ", 11, 6 16 178 217
tab " Starchat IRC Servers ", 12, 6 16 178 217
tab " Starchat IRC Servers ", 13, 6 16 178 217
tab " Aisling ", 14, 6 16 178 217
tab " Spare IRC Servers ", 15, 6 16 178 217


button "graz", 16, 16 48 105 20,hide ok tab 1
button "Graz.AT.EU.AccessIRC.Net", 17, 8 38 175 20, tab 1
button "Lexington.KY.US.AccessIRC.Net", 18, 8 59 175 20, tab 1
button "Florence.OR.US.AccessIRC.Net", 19, 8 80 175 20, tab 1
button "Toronto.ON.CA.AccessIRC.Net", 20, 8 101 175 20, tab 1
button "Regina.SK.CA.AccessIRC.Net", 21, 8 122 175 20, tab 1
button "Caledonia.ON.CA.AccessIRC.Net", 22, 8 143 175 20, tab 1
button "SanDiego.CA.US.AccessIRC.Net", 23, 8 164 175 20, tab 1
button "Burlington.NJ.US.AccessIRC.Net", 24, 8 185 175 20, tab 1
button "Winchester.KY.US.AccessIRC.Net", 25, 8 206 175 20, tab 1

button "Powell.OH.US.AccessIRC.Net", 98, 8 38 175 20, tab 2
button "Server Name Here", 99, 8 59 175 20, tab 2
button "Trondheim.NO.EU.AccessIRC.Net", 100, 8 80 175 20, tab 2
button "Boise.ID.US.AccessIRC.Net", 101, 8 101 175 20, tab 2
button "LongBeach.CA.US.AccessIRC.net", 102, 8 122 175 20, tab 2
button "Server name here", 103, 8 143 175 20, tab 2
button "Server name here", 104, 8 164 175 20, tab 2
button "Server name here", 105, 8 185 175 20, tab 2
button "Server name here", 106, 8 206 175 20, tab 2

button "misc-e.dal.net", 26, 8 38 175 20, tab 3
button "Astro.ga.us.dal.net", 27, 8 59 175 20, tab 3
button "Jade.va.us.dal.net", 28, 8 80 175 20, tab 3
button "misc-e.dal.net", 29, 8 101 175 20, tab 3
button "kernel.ga.us.dal.net", 30, 8 122 175 20, tab 3
button "animals.ca.us.dal.net", 31, 8 143 175 20, tab 3
button "diamond.hub.dal.net", 32, 8 164 175 20, tab 3
button "eternal-c.dal.net", 33, 8 185 175 20, tab 3
button "renew-r.hub.dal.net", 34, 8 206 175 20, tab 3

button "The Flux", 35, 8 38 175 20, tab 4
button "NewNet", 36, 8 59 175 20, tab 4
button "Eskimo", 37, 8 80 175 20, tab 4
button "Aohell", 38, 8 101 175 20, tab 4
button "Joseph", 39, 8 122 175 20, tab 4
button "Fdt.Net", 40, 8 143 175 20, tab 4
button "Eviltwins", 41, 8 164 175 20, tab 4
button "Dividedspace", 42, 8 185 175 20, tab 4
button "Moo.Me", 43, 8 206 175 20, tab 4

button "irc.d0t.net US", 89, 8 38 175 20, tab 5
button "irc.dragonzkeep.com US", 90, 8 59 175 20, tab 5
button "irc.firex.org US", 91, 8 80 175 20, tab 5
button "irc.linux-friendly-56k.com", 92, 8 101 175 20, tab 5
button "irc.smartnoc.com US", 93, 8 122 175 20, tab 5
button "irc.sweatnet.net US", 94, 8 143 175 20, tab 5
button "eu.newnet.net UK", 95, 8 164 175 20, tab 5
button "irc.me.uk UK", 96, 8 185 175 20, tab 5
button "olympic.olympos-net.gr GR", 97, 8 206 175 20, tab 5

button "jokerswild.fl.us.phazenet.com", 44, 8 38 175 20, tab 6
button "blackhole.tx.us.phazenet.com", 45, 8 59 175 20, tab 6
button "excelsior.ga.us.phazenet.com", 46, 8 80 175 20, tab 6
button "redshoes.va.us.phazenet.com", 47, 8 101 175 20, tab 6
button "kq9.ca.us.phazenet.com", 48, 8 122 175 20, tab 6
button "SandStar.ca.us.phazenet.com", 49, 8 143 175 20, tab 6
button "DWS.PA.US.PhazeNet.Com", 50, 8 164 175 20, tab 6
button "irc.phazenet.com", 51, 8 185 175 20, tab 6
button "jewels.ca.us.phazenet.com ", 52, 8 206 175 20, tab 6

button "Amsterdam.NL.Eu.UnderNet.org", 53, 8 38 175 20, tab 7
button "Brussels.Be.Eu.Undernet.org", 54, 8 59 175 20, tab 7
button "Diemen.nl.eu.undernet.org", 55, 8 80 175 20, tab 7
button "Flanders.Be.Eu.Undernet.org", 56, 8 101 175 20, tab 7
button "Geneva.CH.EU.undernet.org", 57, 8 122 175 20, tab 7
button "Graz.at.eu.undernet.org", 58, 8 143 175 20, tab 7
button "Graz2.at.eu.undernet.org", 59, 8 164 175 20, tab 7
button "lidingo.se.eu.undernet.org", 60, 8 185 175 20, tab 7
button "London.uk.eu.undernet.org", 61, 8 206 175 20, tab 7

button "Oslo.NO.EU.Undernet.org", 62, 8 38 175 20, tab 8
button "Stockholm.se.eu.undernet.org", 63, 8 59 175 20, tab 8
button "Surrey.UK.EU.Undernet.Org", 64, 8 80 175 20, tab 8
button "Arlington.VA.US.Undernet.Org", 65, 8 101 175 20, tab 8
button "McLean.VA.US.Undernet.Org", 66, 8 122 175 20, tab 8
button "Montreal.QU.CA.Undernet.Org", 67, 8 143 175 20, tab 8
button "Washington.dc.us.undernet.org", 68, 8 164 175 20, tab 8
button "Quebec.QU.CA.undernet.org", 69, 8 185 175 20, tab 8
button "Bucharest.ro.eu.undernet.org", 70, 8 206 175 20, tab 8

button "Elsene.Be.Eu.undernet.org", 71, 8 38 175 20, tab 9
button "Moscow.RU.EU.Undernet.org", 72, 8 59 175 20, tab 9
button "Atlanta.GA.US.Undernet.org", 73, 8 80 175 20, tab 9
button "Austin.tx.us.undernet.org", 74, 8 101 175 20, tab 9
button "Mesa.az.us.undernet.org", 75, 8 122 175 20, tab 9
button "Sanjose.ca.us.undernet.org", 76, 8 143 175 20, tab 9
button "ede.nl.eu.undernet.org", 77, 8 164 175 20, tab 9
button "Helsinki.FI.EU.Undernet.org", 78, 8 185 175 20, tab 9
button "lelystad.nl.eu.undernet.org", 79, 8 206 175 20, tab 9

button "irc.surfingdeck.", 80, 8 38 175 20, tab 10
button "Server name here", 81, 8 59 175 20, tab 10
button "Server name here", 82, 8 80 175 20, tab 10
button "Server name here", 83, 8 101 175 20, tab 10
button "Server name here", 84, 8 122 175 20, tab 10
button "Server name here", 85, 8 143 175 20, tab 10
button "Server name here", 86, 8 164 175 20, tab 10
button "Server name here", 87, 8 185 175 20, tab 10
button "Server name here", 88, 8 206 175 20, tab 10

button "Server name here", 107, 8 38 175 20, tab 11
button "Server name here", 108, 8 59 175 20, tab 11
button "Server name here", 109, 8 80 175 20, tab 11
button "Server name here", 110, 8 101 175 20, tab 11
button "Server name here", 111, 8 122 175 20, tab 11
button "Server name here", 112, 8 143 175 20, tab 11
button "Server name here", 113, 8 164 175 20, tab 11
button "Server name here", 114, 8 185 175 20, tab 11
button "Server name here", 115, 8 206 175 20, tab 11

button "Nightfall.FL.US.StarChat.Net", 116, 8 38 175 20, tab 12
button "Gainesville.FL.US.StarChat.Net", 117, 8 59 175 20, tab 12
button "Cryptic.GA.US.StarChat.Net", 118, 8 80 175 20, tab 12
button "Revenge.TN.US.StarChat.Net", 119, 8 101 175 20, tab 12
button "CowZone.UK.EU.StarChat.Net", 120, 8 122 175 20, tab 12
button "Tahoma.WA.US.StarChat.Net", 121, 8 143 175 20, tab 12
button "Morpheus.SE.EU.StarChat.", 122, 8 164 175 20, tab 12
button "Neo.SE.EU.StarChat.Net", 123, 8 185 175 20, tab 12
button "SunSet", 124, 8 206 175 20, tab 12

button "Justice.OR.US.StarChat.Net", 125, 8 38 175 20, tab 13
button "Tide.AL.US.StarChat.Net", 126, 8 59 175 20, tab 13
button "FreeBSD.CA.US.StarChat.Net", 127, 8 80 175 20, tab 13
button "Skyline.TX.US.StarChat.Net", 128, 8 101 175 20, tab 13
button "Server name here", 129, 8 122 175 20, tab 13
button "Server name here", 130, 8 143 175 20, tab 13
button "Server name here", 131, 8 164 175 20, tab 13
button "Server name here", 132, 8 185 175 20, tab 13
button "Server name here", 133, 8 206 175 20, tab 13

button "aisling.wa.us.cairdiuil.net", 134, 8 38 175 20, tab 14
button "hobbit.nj.us.cairdiuil.net", 135, 8 59 175 20, tab 14
button "legolas.ca.us.cairdiuil.net", 136, 8 80 175 20, tab 14
button "iona.uk.eu.cairdiuil.net", 137, 8 101 175 20, tab 14
button "Gandalf.QLD.AU.Cairdiuil.Net", 138, 8 122 175 20, tab 14
button "eilis.ak.nz.cairdiuil.net", 139, 8 143 175 20, tab 14
button "Server name here", 140, 8 164 175 20, tab 14
button "Server name here", 141, 8 185 175 20, tab 14
button "Server name here", 142, 8 206 175 20, tab 14

button "Server name here", 143, 8 38 175 20, tab 15
button "Server name here", 144, 8 59 175 20, tab 15
button "Server name here", 145, 8 80 175 20, tab 15
button "Server name here", 146, 8 101 175 20, tab 15
button "Server name here", 147, 8 122 175 20, tab 15
button "Server name here", 148, 8 143 175 20, tab 15
button "Server name here", 149, 8 164 175 20, tab 15
button "Server name here", 150, 8 185 175 20, tab 15
button "Server name here", 151, 8 206 175 20, tab 15

text "An AweMan Production", 152, 42 230 120 20, tab 1
text "An AweMan Production", 153, 42 230 120 60, tab 2
text "An AweMan Production", 154, 42 230 120 60, tab 3
text "An AweMan Production", 155, 42 230 120 60, tab 4
text "An AweMan Production", 156, 42 230 120 60, tab 5
text "An AweMan Production", 157, 42 230 120 60, tab 6
text "An AweMan Production", 158, 42 230 120 60, tab 7
text "An AweMan Production", 159, 42 230 120 60, tab 8
text "An AweMan Production", 160, 42 230 120 60, tab 9
text "An AweMan Production", 161, 42 230 120 60, tab 10
text "An AweMan Production", 162, 42 230 120 60, tab 11
text "An AweMan Production", 163, 42 230 120 60, tab 12
text "An AweMan Production", 164, 42 230 120 60, tab 13
text "An AweMan Production", 165, 42 230 120 60, tab 14
text "An AweMan Production", 166, 42 230 120 60, tab 15
}
on 1:dialog:ServersAweMan:sclick:17: { /server Graz.AT.EU.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:18: { /server Lexington.KY.US.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:19: { /server Florence.OR.US.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:20: { /server Toronto.ON.CA.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:21: { /server Regina.SK.CA.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:22: { /server Caledonia.ON.CA.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:23: { /server SanDiego.CA.US.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:24: { /server Burlington.NJ.US.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:25: { /server Winchester.KY.US.AccessIRC.Net }

on 1:dialog:ServersAweMan:sclick:26: { /server misc-e.dal.net }
on 1:dialog:ServersAweMan:sclick:27: { /server Astro.ga.us.dal.net }
on 1:dialog:ServersAweMan:sclick:28: { /server Jade.va.us.dal.net }
on 1:dialog:ServersAweMan:sclick:29: { /server misc-e.dal.net }
on 1:dialog:ServersAweMan:sclick:30: { /server kernel.ga.us.dal.net }
on 1:dialog:ServersAweMan:sclick:31: { /server animals.ca.us.dal.net }
on 1:dialog:ServersAweMan:sclick:32: { /server diamond.hub.dal.net }
on 1:dialog:ServersAweMan:sclick:33: { /server eternal-c.dal.net }
on 1:dialog:ServersAweMan:sclick:34: { /server renew-r.hub.dal.net }

on 1:dialog:ServersAweMan:sclick:35: { /server irc.theflux.org }
on 1:dialog:ServersAweMan:sclick:36: { /server irc.newnet.net US }
on 1:dialog:ServersAweMan:sclick:37: { /server irc.eskimo.com US }
on 1:dialog:ServersAweMan:sclick:38: { /server irc.aohell.org US }
on 1:dialog:ServersAweMan:sclick:39: { /server irc.josephbarnhart.net US }
on 1:dialog:ServersAweMan:sclick:40: { /server irc2.fdt.net US }
on 1:dialog:ServersAweMan:sclick:41: { /server irc.eviltwins.org US }
on 1:dialog:ServersAweMan:sclick:42: { /server irc.dividedspace.com US }
on 1:dialog:ServersAweMan:sclick:43: { /server irc.moo.me.uk UK }

on 1:dialog:ServersAweMan:sclick:44: { /server jokerswild.fl.us.phazenet.com }
on 1:dialog:ServersAweMan:sclick:45: { /server blackhole.tx.us.phazenet.com }
on 1:dialog:ServersAweMan:sclick:46: { /server excelsior.ga.us.phazenet.com }
on 1:dialog:ServersAweMan:sclick:47: { /server redshoes.va.us.phazenet.com }
on 1:dialog:ServersAweMan:sclick:48: { /server kq9.ca.us.phazenet.com }
on 1:dialog:ServersAweMan:sclick:49: { /server SandStar.ca.us.phazenet.com }
on 1:dialog:ServersAweMan:sclick:50: { /server DWS.PA.US.PhazeNet.Com }
on 1:dialog:ServersAweMan:sclick:51: { /server irc.phazenet.com }
on 1:dialog:ServersAweMan:sclick:52: { /server jewels.ca.us.phazenet.com }

on 1:dialog:ServersAweMan:sclick:53: { /server Amsterdam.NL.Eu.UnderNet.org }
on 1:dialog:ServersAweMan:sclick:54: { /server Brussels.Be.Eu.Undernet.org }
on 1:dialog:ServersAweMan:sclick:55: { /server Diemen.nl.eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:56: { /server Flanders.Be.Eu.Undernet.org }
on 1:dialog:ServersAweMan:sclick:57: { /server Geneva.CH.EU.undernet.org }
on 1:dialog:ServersAweMan:sclick:58: { /server Graz.at.eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:59: { /server Graz2.at.eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:60: { /server lidingo.se.eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:61: { /server London.uk.eu.undernet.org }

on 1:dialog:ServersAweMan:sclick:62: { /server Oslo.NO.EU.Undernet.org }
on 1:dialog:ServersAweMan:sclick:63: { /server Stockholm.se.eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:64: { /server Surrey.UK.EU.Undernet.Org }
on 1:dialog:ServersAweMan:sclick:65: { /server Arlington.VA.US.Undernet.Org }
on 1:dialog:ServersAweMan:sclick:66: { /server McLean.VA.US.Undernet.Org }
on 1:dialog:ServersAweMan:sclick:67: { /server Montreal.QU.CA.Undernet.Org }
on 1:dialog:ServersAweMan:sclick:68: { /server Washington.dc.us.undernet.org }
on 1:dialog:ServersAweMan:sclick:69: { /server Quebec.QU.CA.undernet.org }
on 1:dialog:ServersAweMan:sclick:70: { /server Bucharest.ro.eu.undernet.org }

on 1:dialog:ServersAweMan:sclick:71: { /server Elsene.Be.Eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:72: { /server Moscow.RU.EU.Undernet.org }
on 1:dialog:ServersAweMan:sclick:73: { /server Atlanta.GA.US.Undernet.org }
on 1:dialog:ServersAweMan:sclick:74: { /server Austin.tx.us.undernet.org }
on 1:dialog:ServersAweMan:sclick:75: { /server Mesa.az.us.undernet.org }
on 1:dialog:ServersAweMan:sclick:76: { /server Sanjose.ca.us.undernet.org }
on 1:dialog:ServersAweMan:sclick:77: { /server ede.nl.eu.undernet.org }
on 1:dialog:ServersAweMan:sclick:78: { /server Helsinki.FI.EU.Undernet.org }
on 1:dialog:ServersAweMan:sclick:79: { /server lelystad.nl.eu.undernet.org }

on 1:dialog:ServersAweMan:sclick:80: { /server irc.surfingdeck.com }
on 1:dialog:ServersAweMan:sclick:81: { /server }
on 1:dialog:ServersAweMan:sclick:82: { /server }
on 1:dialog:ServersAweMan:sclick:83: { /server }
on 1:dialog:ServersAweMan:sclick:84: { /server }
on 1:dialog:ServersAweMan:sclick:85: { /server }
on 1:dialog:ServersAweMan:sclick:86: { /server }
on 1:dialog:ServersAweMan:sclick:87: { /server }
on 1:dialog:ServersAweMan:sclick:88: { /server }

on 1:dialog:ServersAweMan:sclick:89: { /server irc.d0t.net US }
on 1:dialog:ServersAweMan:sclick:90: { /server irc.dragonzkeep.com US }
on 1:dialog:ServersAweMan:sclick:91: { /server irc.firex.org US }
on 1:dialog:ServersAweMan:sclick:92: { /server irc.linux-friendly-56k.com }
on 1:dialog:ServersAweMan:sclick:93: { /server irc.smartnoc.com US }
on 1:dialog:ServersAweMan:sclick:94: { /server irc.sweatnet.net US }
on 1:dialog:ServersAweMan:sclick:95: { /server eu.newnet.net UK }
on 1:dialog:ServersAweMan:sclick:96: { /server irc.me.uk UK }
on 1:dialog:ServersAweMan:sclick:97: { /server olympic.olympos-net.gr GR }

on 1:dialog:ServersAweMan:sclick:98: { /server Powell.OH.US.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:99: { /server }
on 1:dialog:ServersAweMan:sclick:100: { /server Trondheim.NO.EU.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:101: { /server Boise.ID.US.AccessIRC.Net }
on 1:dialog:ServersAweMan:sclick:102: { /server LongBeach.CA.US.AccessIRC.net }
on 1:dialog:ServersAweMan:sclick:103: { /server }
on 1:dialog:ServersAweMan:sclick:104: { /server }
on 1:dialog:ServersAweMan:sclick:105: { /server }
on 1:dialog:ServersAweMan:sclick:106: { /server }

on 1:dialog:ServersAweMan:sclick:107: { /server }
on 1:dialog:ServersAweMan:sclick:108: { /server }
on 1:dialog:ServersAweMan:sclick:109: { /server }
on 1:dialog:ServersAweMan:sclick:110: { /server }
on 1:dialog:ServersAweMan:sclick:111: { /server }
on 1:dialog:ServersAweMan:sclick:112: { /server }
on 1:dialog:ServersAweMan:sclick:113: { /server }
on 1:dialog:ServersAweMan:sclick:114: { /server }
on 1:dialog:ServersAweMan:sclick:115: { /server }

on 1:dialog:ServersAweMan:sclick:116: { /server Nightfall.FL.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:117: { /server Gainesville.FL.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:118: { /server Cryptic.GA.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:119: { /server Revenge.TN.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:120: { /server CowZone.UK.EU.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:121: { /server Tahoma.WA.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:122: { /server Morpheus.SE.EU.StarChat.Net defiant.org }
on 1:dialog:ServersAweMan:sclick:123: { /server Neo.SE.EU.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:124: { /server SunSet.NO.EU.StarChat.Net }

on 1:dialog:ServersAweMan:sclick:125: { /server Justice.OR.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:126: { /server Tide.AL.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:127: { /server FreeBSD.CA.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:128: { /server Skyline.TX.US.StarChat.Net }
on 1:dialog:ServersAweMan:sclick:129: { /server }
on 1:dialog:ServersAweMan:sclick:130: { /server }
on 1:dialog:ServersAweMan:sclick:131: { /server }
on 1:dialog:ServersAweMan:sclick:132: { /server }
on 1:dialog:ServersAweMan:sclick:133: { /server }

on 1:dialog:ServersAweMan:sclick:134: { /server aisling.wa.us.cairdiuil.net }
on 1:dialog:ServersAweMan:sclick:135: { /server hobbit.nj.us.cairdiuil.net }
on 1:dialog:ServersAweMan:sclick:136: { /server legolas.ca.us.cairdiuil.net }
on 1:dialog:ServersAweMan:sclick:137: { /server iona.uk.eu.cairdiuil.net }
on 1:dialog:ServersAweMan:sclick:138: { /server Gandalf.QLD.AU.Cairdiuil.Net }
on 1:dialog:ServersAweMan:sclick:139: { /server eilis.ak.nz.cairdiuil.net }
on 1:dialog:ServersAweMan:sclick:140: { /server }
on 1:dialog:ServersAweMan:sclick:141: { /server }
on 1:dialog:ServersAweMan:sclick:142: { /server }

on 1:dialog:ServersAweMan:sclick:143: { /server }
on 1:dialog:ServersAweMan:sclick:144: { /server }
on 1:dialog:ServersAweMan:sclick:145: { /server }
on 1:dialog:ServersAweMan:sclick:146: { /server }
on 1:dialog:ServersAweMan:sclick:147: { /server }
on 1:dialog:ServersAweMan:sclick:148: { /server }
on 1:dialog:ServersAweMan:sclick:149: { /server }
on 1:dialog:ServersAweMan:sclick:150: { /server }
on 1:dialog:ServersAweMan:sclick:151: { /server }

ctcp *:version:*: .ctcpreply $nick reply %servers
ON *:DIALOG:auto:init:*:{
}
ON *:LOAD:{
echo -a 4IRC Servers for 13 DalNet, UnderNet, Access.Net & NewNet [7Choose A Server & Click Connect] 4Script Addon, by AweMan.. Now Loaded..
echo -a 13 All Undernet Server are now available All current NewNet Servers added 4
echo -a 8You Will Find IRC Servers In The Commands And Channel Menus
echo -a 11I hope you find this script useful, enjoy!
echo -a 9any questions or comments you can email me @ aweman2000@yahoo.com
}
on *:load:{
/set %servers (14Awe15-14Man) 2IRCServer
}
menu status,menubar,channel {
=. IRC Servers .=:dialog -m serversAweMan serversAweMan
---------------------------------------------------------------------------
I will also be glad to email you this script
aweman2000@yahoo.com
P.S. this script was written specificaly for mirc 6.12 therefore I make no claim as to if it will work on the older mirc versions
Note: I hope the script didnt get jumbled up because of the space requirement on this post, My apoligys if it did

Re: IRC Servers script
#68346 18/01/04 12:59 AM
Joined: Jun 2003
Posts: 5,024
London, England
M
Mentality Offline
Hoopy frood
Offline
Mentality
Hoopy frood
M
Joined: Jun 2003
Posts: 5,024
London, England
A few things you might like to know that I instantly noted:

DALnet should always be written like that. DALnet. Not DalNet, dalNET, dal.net or any other variation :P

You cannot connect to HUB servers, so putting them in there is pretty pointless wink

Posting your email address is a bad idea, as spam bots crawl websites looking for addys to spam - when they see yours, spam will be flying your way within hours. You have 2 hours to edit a post after you first post it, but if it's too late you can try contacting a Moderator.

If you want to submit a script, there are a number of scripting websites around which allow you to do so - try www.mircscripts.org - that would be more appropriate IMO if you want to submit it to the public. Whilst this Forum is partly here for the discussion of scripting I don't really see you wanting to discuss the script, you just seem to be posting it so people use it.

Personally, I don't like it. The dialog uses tabs and yet it's been made so small you have to scroll along to access each tab. Just use a drop down list for each network. There are big empty spaces containing { /server } for some reason, perhaps I'm just dumb and don't see why. Also, the CTCP reply gives a faulty and pointless reply:

[Mentality VERSION]
[Mentality VERSION reply]: mIRC v6.12 Khaled Mardam-Bey
[Mentality reply reply]

And on top of the above, the on load colours are bright and awful (again, IMO).

Happy chatting smile

Regards,

Mentality/Chris
Re: IRC Servers script
#68347 19/01/04 10:39 AM
Joined: Jan 2004
Posts: 4
Texas
N
NetBandit Offline OP
Self-satisified door
OP Offline
NetBandit
Self-satisified door
N
Joined: Jan 2004
Posts: 4
Texas
First: it matters not how Dalnet is spelled as far as this script goes. as long as the user knows where he/she wants to go.
Second: all of the servers { Hub or not} worked at one time or another, the only servers that Do Not work have been dropped from thier networks { yea this script requires periodic updating } hence Rev-4.
Email address: Ummmmmm this is only one of many I use for posting on forums .. no biggie
Submission: Personally I don't care if anyone ever uses this script. That wasnt the intention. The intention was to give developers an idea or ideas and to get input on my idea IE. the script.
Ahhhhh maby you are catching on ! Idea about the drop down menu. As far as the size of the tabs and gui goes, IF you know anything about scripting you can easily edit the sizes of the gui, buttons, tabs etc. OH by the way you can also edit the {Hint} echo to any color you like, or completly remove the echo if you desire, but then again you will have to know a little about scripting won't you?
two years huh and you are already an expert :>)
*SIGH* I wish I could learn that fast.
Have a nice day
P.S. the empty servers are for users to use to add thier favorite irc and perspective servers.
Ctcp: hmmmmm you got me there! I have never noticed a ctcp relpy, maybe its my version of mirc :P
Again Happy Camping

Last edited by NetBandit; 19/01/04 10:52 AM.
Re: IRC Servers script
#68348 19/01/04 03:07 PM
Joined: Nov 2003
Posts: 2,327
T
tidy_trax Offline
Hoopy frood
Offline
tidy_trax
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
dialog servers {
title "servers for mIRC"
size 0 0 200 245
list 1, 0 0 200 245, vsbar
}
on *:dialog:servers:init:*:{
var %i 1
while $server(%i) {
did -a $dname 1 $server(%i)
inc %i
}
}
on *:dialog:servers:dclick:1:{ server $did(1).seltext }

New username: hixxy
Re: IRC Servers script
#68349 19/01/04 07:31 PM
Joined: Jan 2003
Posts: 3,012
New Hampshire, USA
KingTomato Offline
Hoopy frood
Offline
KingTomato
Hoopy frood
Joined: Jan 2003
Posts: 3,012
New Hampshire, USA
Due to boredum, and just the joy of getting more experience in things, I decided to see if I could in any way shorten your code. I did of course, and you may happen to like it. I also find it may be (As you discussed) easier to update. You mentioned having to change things, and I can see you already made an edit with the "Server name Here" in the middle of a group of about 4 servers. I can only assume one was there at one point, but was later removed.

Anyways, here is a (imo) better version of your dialog. It doesn't use tabs, and doesn't need 100 million sclick event triggers. Just a hash table, a list to read from, and about 30 dialog elements. Much faster to load, and i persnonally think easier on the eyes.

Anyways, try it out. I didn't convert all your servers over, just enough to stress a point. The only downfall I found was that the server "headings" like NewNet Servers, DALnet servers, etc aren't in order--but that's a characteristic of hash tables. If I get more into it, and you like it, I know a way to sort them. Just give me thw word.

Anyways, have fun.

Code:
dialog srvList {
  title "Server List"
  size -1 -1 100 110
  option dbu
  text "TopicText", 10, 10 0 80 8, center
  button "<", 20, 0 0 10 10
  button ">", 30, 90 0 10 10
  text "server 1", 40, 0 10 75 8
  link "Connect", 45, 78 10 22 8
  text "server 2", 50, 0 20 75 8
  link "Connect", 55, 78 20 22 8
  text "server 3", 60, 0 30 75 8
  link "Connect", 65, 78 30 22 8
  text "server 4", 70, 0 40 75 8
  link "Connect", 75, 78 40 22 8
  text "server 5", 80, 0 50 75 8
  link "Connect", 85, 78 50 22 8
  text "server 6", 90, 0 60 75 8
  link "Connect", 95, 78 60 22 8
  text "server 7", 100, 0 70 75 8
  link "Connect", 105, 78 70 22 8
  text "server 8", 110, 0 80 75 8
  link "Connect", 115, 78 80 22 8
  text "server 9", 120, 0 90 75 8
  link "Connect", 125, 78 90 22 8
  text "server 10", 130, 0 100 75 8
  link "Connect", 135, 78 100 22 8
}

on *:DIALOG:srvList:INIT:*: {
  ; create a hash table that can hold our server list.
  ; The rest will be dynamic from here
  if (!$hget(srvList)) /hmake srvList 10
  ; add the servers in the form of the following:
  ; /hadd srvList <Heading> <Server>[,Server2,Server3,...]
  ; note to use underscores (_) in the heading in place of
  ; spaces
  /hadd srvList Access_Net_IRC_Servers $&
    Graz.AT.EU.AccessIRC.Net,Lexington.KY.US.AccessIRC.Net,Florence.OR.US.AccessIRC.Net, $+ $&
    Toronto.ON.CA.AccessIRC.Net,Regina.SK.CA.AccessIRC.Net,Caledonia.ON.CA.AccessIRC.Net, $+ $&
    SanDiego.CA.US.AccessIRC.Net,Burlington.NJ.US.AccessIRC.Net,Winchester.KY.US.AccessIRC.Net
  /hadd srvList Access_Net_IRC_Servers_(cont.) $&
    Powell.OH.US.AccessIRC.Net,Trondheim.NO.EU.AccessIRC.Net,Boise.ID.US.AccessIRC.Net, $+ $&
    LongBeach.CA.US.AccessIRC.net
  /hadd srvList DALnet_IRC_Servers $&
    misc-e.dal.net,Astro.ga.us.dal.net,Jade.va.us.dal.net,misc-e.dal.net,kernel.ga.us.dal.net, $+ $&
    animals.ca.us.dal.net,diamond.hub.dal.net,eternal-c.dal.net,renew-r.hub.dal.net
  /hadd srvList NewNet_IRC_Servers $&
    irc.theflux.org,irc.newnet.net,irc.eskimo.com,irc.aohell.org,irc.josephbarnhart.net, $+ $&
    irc2.fdt.net,irc.eviltwins.org,irc.dividedspace.com,irc.moo.me.uk
  /hadd srvList NewNet_IRC_Servers_(cont.) $&
    irc.d0t.net,irc.dragonzkeep.com,irc.firex.org,irc.linux-friendly-56k.com,irc.smartnoc.com, $+ $&
    irc.sweatnet.net,eu.newnet.net,irc.me.uk,olympic.olympos-net.gr
  ;
  ; you can do the rest if you like this setup.
  ; I can't be bothered putting all your server in here
  ;

  /set %srvList.Pane 1
  /srvList.Display $dname

  ; we are on the first "pane", you can't go back
  /did -b $dname 20
}

on *:DIALOG:srvList:SCLICK:*: {
  var %pane = %srvList.Pane
  ; back one pane
  if ($did == 20) var %pane = %pane - 1

  ; forward a pane
  else if ($did == 30) var %pane = %pane + 1

  ; server connects
  else if ($did isnum 45-135) /server -m $did($calc($did - 5))

  ; Change pane if necessary
  if (%pane != %srvList.Pane) {
    /set %srvList.Pane %pane
    /srvList.Display $dname
    if (%pane == 1) /did -b $dname 20
    else /did -e $dname 20
    if (%pane == $hget(srvList, 0).item) /did -b $dname 30
    else /did -e $dname 30
  }
}

on *:DIALOG:srvList:CLOSE:*: {
  if ($hget(srvList)) /hfree srvList
  /unset %srvList.Pane
}

alias srvList.display {
  var %pane = %srvList.Pane, %dname = $1

  if ($hget(srvList, %pane).item) {
    var %topic = $ifmatch

    ; topic text
    /did -ra %dname 10 $replace(%topic, _, $chr(32))

    ; Server List
    /did -ra %dname 40,50,60,70,80,90,100,110,120,130
    /did -h %dname 45,55,65,75,85,95,105,115,125,135
    var %s = 1, %did = 40, %servers = $sorttok($hget(srvList, %topic), 44)
    while ($gettok(%servers, %s, 44)) {
      /did -vra %dname %did $ifmatch
      /did -v %dname $calc(%did + 5)
      /inc %did 10
      /inc %s
    }
  }
}


(Copy to wordpad first (Start>>Run>"Wordpad") then copy from there to mirc, for the formatting to stay.

-KingTomato
Re: IRC Servers script
#68350 20/01/04 03:47 AM
Joined: Sep 2003
Posts: 4,230
D
DaveC Offline
Hoopy frood
Offline
DaveC
Hoopy frood
D
Joined: Sep 2003
Posts: 4,230
Quote:

(Copy to wordpad first (Start>>Run>"Wordpad") then copy from there to mirc, for the formatting to stay


Aghhhh all hail the great one for the wizdom!.
I hated how it did/does that, going along finding the write spot and pressing enter was a killer.

Re: IRC Servers script
#68351 20/01/04 12:39 PM
Joined: Dec 2002
Posts: 1,922
O
Online Offline
Hoopy frood
Offline
Online
Hoopy frood
O
Joined: Dec 2002
Posts: 1,922
The problem of text enclosed inside [code[/i]]'s loosing its newline pointers could be easily fixed by telling the board engine to add a \n (newline) after every <BR>.

Re: IRC Servers script
#68352 20/01/04 01:22 PM
Joined: Jun 2003
Posts: 5,024
London, England
M
Mentality Offline
Hoopy frood
Offline
Mentality
Hoopy frood
M
Joined: Jun 2003
Posts: 5,024
London, England
The "DALnet" thing was simply an FYI, something you may have wanted to be aware of. If it's in a script a network should be given it's official name.

You cannot connect to HUB servers directly, simple as that. Please, do try to connect to one and see for yourself.

I have no way of telling if that email address is your only one, or one of 10, 20, 30+ - so I thought I'd let you know. Again, just an FYI, just trying to be helpful.

I didn't know if you were just advertising the code of your script or if you wanted input on it...usually if people want ideas about it, they will say something like "Please, give me any comments and suggestions on how I could improve this code" or something like that. As for editing the code to make the buttons bigger, or editing the /echo colours etc, that is besides the point. People shouldn't *need* to edit the code, you should release it so they don't have to, surely?

I never claimed to be an expert, know everything or be infallible in any way, shape or form. Thanks for filling me in as to why those empty server spaces are there.

The reason the CTCP reply is there, is because you have:

ctcp *:version:*: .ctcpreply $nick reply %servers

and I assume that when I pasted it and pressed "Ok", it didn't set the %servers variable.

In future, instead of being sarcastically rude to those that try to help you or give you useful information, how about trying to be polite?

Happy chatting.

Regards,

Mentality/Chris

Link Copied to Clipboard
Forum Rules · Mark All Read Contact Us · Help · mIRC Homepage