Dawntide

Yeah saw it, but i do not know how to use it. ``` Public Sub CheckCurrency(ByVal itemamount As Long) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CCheckCurrency Buffer.WriteLong itemamount SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "CheckCurrency", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` ``` Sub HandleCheckCurrency(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer Dim itemamount As Long Set Buffer = New clsBuffer Buffer.WriteBytes Data() itemamount = Buffer.ReadLong ' check gold itemamount = HasItem(index, 1) If itemamount < 50 Then PlayerMsg index, "Not enough gold.", BrightRed Exit Sub End If Set Buffer = Nothing End Sub ``` It does not work 

Okay, i will check it after i fixed the gold mechanic. How to check if the player has more or exactly 50 gold? I can not find the right Sub

I used the search function of the forum and did not found it O.O unfortunately there is no GiveEXP sub :/

love you guys (no homo )! You helped me understand this a little bit more, thanks. What is the deal with the disappeared tutorial? I got the old one in my bookmarks, the thread was named: "[EO] (hopefully) simple packet tutorial" How to handle the same exact thing with experience? I mean what to use instead of "giveinvitem"? thanks!

I tested it. When the player wins the minigame, in the chat appears this text: you received0 gold. and in my inventory i got the icon of the currency but no amount, i can not drop it either. its just there. Here is what i did: client side: ``` Public Sub GiveCurrency(ByVal Amount As Long) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CGiveCurrency Buffer.WriteLong Amount SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "GiveCurrency", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` modEnumerations: ``` CGiveCurrency ``` Minigame player wins: ``` lblResult = "You Won" Call GiveCurrency(50) ``` server side: modHandleData ``` HandleDataSub(CGiveCurrency) = GetAddress(AddressOf HandleGiveCurrency) ``` ``` Sub HandleGiveCurrency(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim buffer As clsBuffer Dim itemnum As Long Dim amount As Long Set buffer = New clsBuffer buffer.WriteBytes Data() ' give gold GiveInvItem index, 1, amount ' send confirmation message PlayerMsg index, "You received" & amount & " gold.", BrightGreen Set buffer = Nothing End Sub ``` modEnumerations: ``` CGiveCurrency ``` Whats wrong?

No its a simple imgButton on frmMain 

Sorry, but i do not know how to define and send a ID. And how to return it?

I do not tested them, you told me i am sending random stuff which i do not use. is there a example for the unique ID packet already in the clean copy of eclipse event system 2.3? I could copy and modify it

Sounds nice, but i'm a noob, could you please give me a little tutorial?

I created a new form with a little minigame, if the player wins he should gain a certain amount of gold. how to do it without sending packets to the server?

It is supposed to give the player a certain amount of money. i modified the sellitem Sub.

hey, I need your help, i want to create 2 packets, which let me give the player exp and money or take it from him. Due to the new forum, the only packet tutorial is gone, so i depend on you! Here is my try on give player money/currency: client side: ``` Public Sub GiveCurrency(ByVal invslot As Long) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CGiveCurrency Buffer.WriteLong invslot SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "GiveCurrency", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` server side: ``` Sub HandleGiveCurrency(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer Dim invSlot As Long Dim itemnum As Long Dim Amount As Long Set Buffer = New clsBuffer Buffer.WriteBytes Data() invSlot = Buffer.ReadLong ' give gold GiveInvItem index, 1, Amount ' send confirmation message PlayerMsg index, "You received" & Amount & "gold.", BrightGreen Set Buffer = Nothing End Sub ``` Please fix my errors AND explain me what to do and why i need to do it. thanks in advance!

Hey, I have seen several games with completely edited gui and window theme, so there are no windows forms anymore, it is just everything custom. The HP Bars are graphical and much more. How to hardcore edit the whole windows? I know in vb.net there is a way with importing modules which contain the new custom look, is it possible in vb6 too? Can i use vb.net themes then? How to use graphical HP Bars, like in any good game? What is the diffrence between onscreen GUI and offscreen gui, is there any advantage with an onscreen Gui? thanks in advance!

Hey, Whats the deal with the CPS at the server? On default its at about 1000, when i click unlock it goes up to 600k. What does this say? Should i leave it unlocked? thanks!

Do you even read my posts? "Yeah but i guess i can not use the event system, because the action takes place in a new form, not frmMain." I am using Event System 2.3, but I am using a seperate form, it has nothing to do with frmMain, so the even system will probably not work.

client side: ``` Public Sub WinEXP(ByVal index As Long, ByVal EXP As Long) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CWinEXPPacket Buffer.WriteLong index Buffer.WriteLong EXP SendData Buffer.ToArray() Set Buffer = Nothing ``` ``` Call WinEXP(index, Player(index).EXP, EXPAMOUNT) ``` server side: ``` HandleDataSub(CWinEXPPacket) = GetAddress (AddressOf HandleWinEXPPacket) ``` ``` Private Sub HandleWinEXPPacket(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddR As Long, ByVal ExtraVar As Long) ' the variables we store our information in Dim player As Long Dim EXP As Long Dim Buffer As clsBuffer Set Buffer = New clsBuffer Buffer.WriteBytes Data() player = buffer.ReadLong EXP = buffer.ReadLong GivePlayerEXP index, EXP Set Buffer = Nothing End Sub ``` Please fix my mistakes, thanks

This would help good coders, but i do not know everything about vb6, so how to make a packet? how to send a packet to the server? how to decide if its a legitimate action or not? Maybe you could give me more help if i am more specific. i want to create a little game inside of my game, if the player wins the game he gain exp, when he loses, he will not gain exp.

Yeah but i guess i can not use the event system, because the action takes place in a new form, not frmMain.

Hey, i want to award the player with exp when he does a few things like pushing a button or gathering a resource. I know there is a sendrequest.playerlevelup, but how to give a player EXP when he does something on the client? thanks in advance!

So you just show them your crappy project and you will get 500 $ + for nothing and then you just leave and stop your project? That seems legit :D

You should be able to put an animation above the player, but my animation just do not work, they do not show up, so its bugged. Not the animation.bmp is the problem, its the spell system

Hey, My animations are not working anymore. The casting animations i apply to a spell just work fine, but the animation i apply to a spell does not work in ANY case. how to fix it?

Not sure why, but i am 100% sure that i saw all these tiles somewhere else before.

Hey, I changed max_Npc to 500, how to change the npc spawn attribute so it has 500 slots too? thanks!

I think there is a code in the source which prevents multiaccs. Just delete it or comment it out and you will be fine.