Originally Posted by
cvrdheeraj
Source Codes available??? Where???
Originally Posted by
iNs@nE
The Source is available?? 0.o
got.... heres some... n this is for accountserver part5, written in assembly language....
Code:
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
Code:
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..
Code:
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... :P
[HELP] More server through same client
![[HELP] More server through same client](http://ragezone.com/hyper728.png)
