25-01-2008, 11:17 PM
Credits to GIAKEN
Mod on Elysium Source Forums.
Not sure if he's on these forums
I don't much look around.
This is all that he provided me
And
As soon as my coders reply to me on Elysium
I'm gonna add it to my game and test it :S
------------------------
Client-side:
Code:
Server-side:
Code:
That should work...just not sure about the AlertMsg, I don't have my source open. For the RunCheat it could be:
Code:
Also don't forget:
Code:
Untested.
Mod on Elysium Source Forums.
Not sure if he's on these forums
I don't much look around.
This is all that he provided me
And
As soon as my coders reply to me on Elysium
I'm gonna add it to my game and test it :S
------------------------
Client-side:
Code:
Code:
Private Sub cmdSend_Click()
Call SendData("cheatpacket" & SEP_CHAR & txtCheat.Text & END_CHAR))
End Sub
Server-side:
Code:
Code:
If Parse$(0) = "cheatpacket" Then
Dim Successful As Byte
Successful = NO
For I = 1 to MAX_CHEATS
If Parse$(1) = Cheats(I).Name Then
Call RunCheat(I)
Successful = YES
Exit For
End If
Next I
If Not Successful Then
Call AlertMsg("That's not a cheat!", Red)
Exit Sub
End If
Exit Sub
End If
That should work...just not sure about the AlertMsg, I don't have my source open. For the RunCheat it could be:
Code:
Code:
Public Sub RunCheat(ByVal Cheat_Index As Long)
Select Case Cheat(Cheat_Index).Name
Case "goldwhatever"
' give them gold?
End Select
End Sub
Also don't forget:
Code:
Code:
Public Const MAX_CHEATS As Byte = 2
Cheat(1 To MAX_CHEATS) As CheatRec
Type CheatRec
Name As String
End Type
Untested.