Note it's not to piss you off, but the source code is so rubbish, that I thought I'd share it.
I don't take offense to that, I'm just starting out with this coding thing... May you please state why its rubbish? It might help me out with future projects
I don't think I've ever see someone do their logic like that... I just assumed everyone kinda learned if/else if/else at the same time as they are the same concept.
you can switch between values by doing something like...
switch(this.ServerN.Text)
{
case "Dragon:
this.lblPort.Text = "9960";
break;
case "etc1":
break;
case "etc2":
break;
}
I don't think I've ever see someone do their logic like that... I just assumed everyone kinda learned if/else if/else at the same time as they are the same concept.
you can switch between values by doing something like...
switch(this.ServerN.Text)
{
case "Dragon:
this.lblPort.Text = "9960";
break;
case "etc1":
break;
case "etc2":
break;
}
Or just do
if(case 1)
code
else if(case2)
code2
etc
What do you mean by elseifs... i used alot of elseifs....this is the non de-compiled code
If i used the elseifs wrong, can you tell me how?, Don't wanna keep doing things wrong
Edit: Elseifs are found at the bottom of the code
Code:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ServerN = New System.Windows.Forms.ComboBox()
Me.lblServerName = New System.Windows.Forms.Label()
Me.lblPor = New System.Windows.Forms.Label()
Me.lblPort = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'ServerN
'
Me.ServerN.FormattingEnabled = True
Me.ServerN.Items.AddRange(New Object() {"(None)", "Aquarius", "BabyIcey", "Basilisk", "Blizzard", "Bluebird", "Cancer", "Capricorn", "Centaur", "Crystal", "Dark", "Dragon", "Dream", "Eagle", "Emerald", "Eternity", "Faith", "Fire", "Freedom", "Fury", "GardenOfEden", "Gemini", "Glory", "GreatWall", "Gryphon", "HangingGardens", "Hebby", "Honor", "Kanasai_US", "Kylin", "Leo", "Liberty", "Libra", "Light", "Lightning", "Lion", "Lucky7", "Mausoleum", "Mercury", "Meteor", "Nanya", "Neptune", "Pegasus", "Pharos", "Phoenix", "Pishu_EU", "Pluto", "Prosperity", "Pyramid", "Ruby", "Sagittarius", "Saturn", "Scorpio", "Snowfall", "SnowWhite", "StatueOfZeus", "Storm", "Sunshine", "Thunder", "Tiger", "Titan", "Tornado", "Triumph", "Turquoise", "Unicorn", "Uranus", "Venus", "Virgo", "Volcano", "WildSwan"})
Me.ServerN.Location = New System.Drawing.Point(293, 133)
Me.ServerN.Name = "ServerN"
Me.ServerN.Size = New System.Drawing.Size(121, 21)
Me.ServerN.TabIndex = 0
'
'lblServerName
'
Me.lblServerName.AutoSize = True
Me.lblServerName.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblServerName.ForeColor = System.Drawing.Color.Red
Me.lblServerName.Location = New System.Drawing.Point(166, 133)
Me.lblServerName.Name = "lblServerName"
Me.lblServerName.Size = New System.Drawing.Size(121, 24)
Me.lblServerName.TabIndex = 1
Me.lblServerName.Text = "Server Name"
'
'lblPor
'
Me.lblPor.AutoSize = True
Me.lblPor.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPor.ForeColor = System.Drawing.Color.Red
Me.lblPor.Location = New System.Drawing.Point(166, 169)
Me.lblPor.Name = "lblPor"
Me.lblPor.Size = New System.Drawing.Size(48, 24)
Me.lblPor.TabIndex = 2
Me.lblPor.Text = "Port:"
'
'lblPort
'
Me.lblPort.AutoSize = True
Me.lblPort.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPort.ForeColor = System.Drawing.Color.Red
Me.lblPort.Location = New System.Drawing.Point(220, 169)
Me.lblPort.Name = "lblPort"
Me.lblPort.Size = New System.Drawing.Size(44, 24)
Me.lblPort.TabIndex = 3
Me.lblPort.Text = "99**"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.ClientSize = New System.Drawing.Size(591, 367)
Me.Controls.Add(Me.lblPort)
Me.Controls.Add(Me.lblPor)
Me.Controls.Add(Me.lblServerName)
Me.Controls.Add(Me.ServerN)
Me.Name = "Form1"
Me.Text = "Conquer Server Ports"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ServerN As System.Windows.Forms.ComboBox
Friend WithEvents lblServerName As System.Windows.Forms.Label
Friend WithEvents lblPor As System.Windows.Forms.Label
Friend WithEvents lblPort As System.Windows.Forms.Label
Private Sub ServerN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ServerN.SelectedIndexChanged
If ServerN.Text = "Aquarius" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "BabyIcey" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Basilisk" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "BlueBird" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Cancer" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Capricorn" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Centaur" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Fire" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Fury" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Gemini" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "GreatWall" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Gryphon" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "HangingGardens" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Hebby" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Kanasai_US" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Leo" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Liberty" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Libra" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Light" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Lucky7" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Mausoleum" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Pegasus" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Pharos" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Nanya" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Pishu_EU" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Prosperity" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Pyramid" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Sagittarius" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Scorpio" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "SnowWhite" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "StatueOfZeus" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Storm" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Titan" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Unicorn" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "WildSwan" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Virgo" Then
lblPort.Text = "9959"
ElseIf ServerN.Text = "Volcano" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Venus" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Uranus" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Turquoise" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Triumph" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Tornado" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Tiger" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Thunder" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Sunshine" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Snowfall" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Saturn" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Ruby" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Pluto" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Phoenix" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Neptune" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Meteor" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Mercury" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Lion" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Lightning" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Kylin" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Honor" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Glory" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Freedom" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Faith" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Eternity" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Emerald" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Eagle" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Dream" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Dragon" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Dark" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Crystal" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "Blizzard" Then
lblPort.Text = "9960"
ElseIf ServerN.Text = "GardenOfEden" Then
lblPort.Text = "9964"
Else
lblPort.Text = "Unknown"
End If
End Sub
End Class
I do know the concepts of else-elseifs to some degree,
else= everything else if its not ur "ifs" or "elseifs" also known as forced response in vb,
else-if= allows multiples conditions to be specified in one if statement
Or use a container class like Dictionary to store the servers.
Code:
Private servers As Dictionary(Of String, UShort)
Private Sub InitializeServers()
If Not servers Is Nothing Then
servers = New Dictionary(Of String, UShort)
servers.Add("Aquarius", 9959)
servers.Add("BabyIcey", 9959)
servers.Add("Volcano", 9960)
servers.Add("Venus", 9960)
End If
End Sub
If you just want to make your proxy listen from any conquer servers then I think putting a 2 two listening socket on port 9959 and 9960 will be enough.
Conquer's Epidemic - Stupidity Syndrome 08/04/2009 - CO2 Private Server - 19 Replies In the past few years I'm sure anyone who's been on epvp, has noticed dwindling numbers of good programmers. Why is this? This is due to the wide spread of what is known a Stupidity Syndrome.
More general information about it can be found here,
Stupidity Syndrome - Uncyclopedia, the content-free encyclopedia
Identifying it in the Conquer Private Server Section.
- If someone is asking for you to implement something, they probably suffer from this.
- If someone is using the TQ Binaries,...
Trading rs acc for conquer's 01/28/2008 - Runescape Trading - 4 Replies Im trading this acc for 10dbs on tiger server(+ you get the miner for free if u buy it)
http://img84.imageshack.us/img84/7652/stuffffrp3. png
**Program version
It might help me out with future projects
