[HELP] More server through same client

[zaugola]

Source Codes available??? Where???

The Source is available?? 0.o

got.... heres some... n this is for accountserver part5, written in assembly language....

5 REM SIMPLE BASIC RPG
10 I = INT(RND()*5)
20 ON I GOTO 30, 40, 50, 60, 70
30 PRINT "YOU DIE" : END
40 PRINT " YOU FIND A +1 CHAINMAIL" : GOTO 10
50 PRINT "YOU KILL A DRAGON" : GOTO 10
60 PRINT "YOU GO ON A REALLY LONG QUEST THAT INVOLVES SOMETHING WITH A RING AND MAYBE SOME SORT OF DEMON OR SOMETHING" : GOTO 10
70 PRINT "YOU DIE IN A COMPLETELY DIFFERENT WAY" : END

n this 1 is...if im not mistaken, is for mainserver part5..... written in VB

    Public Shared Sub Main()
        Dim GameEngine As New EngineRules(Chess)
        GameEngine.Connect(MyRobot.Arms)
        MyRobot.Setup(Board, GameEngine)
        If GameEngine.Side = White Then
            GameEngine.Connector.Move(Piece.KP, Position.KP(4))
        End If
        Do
            MyRobot.Wait(Patiently)
        Loop Until (MyRobot.IsMyMove)
        MyRobot.Speakers.Volume.Maximize()
        MyRobot.Speech.Output("Look over there!")
        MyRobot.Arms.Right.Point(Location.BehindOpponent)
        MyRobot.Legs.Kick(Board, ForceSettings.Maximum)
        MyRobot.Speech.Output("Earthquake!")
        GameEngine.Accept(Draw)
    End Sub

Zoneserver part5.... also in VB..

Private Function getProgrammerExcuse() As String

 Dim myExcuses(1 to 21) As String

 myExcuses(1) =  "That's Weird...",
 myExcuses(2) = 	"It's never done that before.",
 myExcuses(3) = 	"It worked yesterday.",
 myExcuses(4) = 	"How is that possible?",
 myExcuses(5) = 	"It must have a hardware problem.",
 myExcuses(6) = 	"What did you type in wrong to get it to crash." ,
 myExcuses(7) = 	"There is something funky in your data",
 myExcuses(8) = 	"I haven't touched that module in weeks!" ,
 myExcuses(9) = 	"You must have wrong version.",
 myExcuses(10) = 	"It's just some unlucky coincidence." ,
 myExcuses(11) = 	"I can't test everything!",
 myExcuses(12) = 	"THIS can't be the source of THAT." ,
 myExcuses(13) = 	"It works, but it's not been tested." ,
 myExcuses(14) = 	"Somebody must have changed my code.",
 myExcuses(15) = 	"Did you check for a virus on your system?",
 myExcuses(16) = 	"Even though it doesn't work, how does it feel? ,
 myExcuses(17) = 	"You can't use that version on your system.",
 myExcuses(18) = 	"Why do you want to do it that way?",
 myExcuses(19) = 	"Where were you when the program blew up?",
 myExcuses(20) = 	"I thought I fixed that.",
 myExcuses(21) = 	"This is not a bug,it's undocumented feature."

 Dim randomChoice As New Random(UBound(myExcuses))
 Dim iRandomChoice As Integer = randomChoice.Next()

 Return myExcuses(iRandomChoice)

End Function

i cant find source code for TMserver n batleserver for prt5 yet, but if i found it ill post it here...

meanwhile, feel free to use the source code above...