Golf
-
Posts
148 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Golf
-
-
Well , I dont think anyone will make this tutorials for free. If you want smooth system without bugs you need to pay some larger amount of money. Good luck (You should learn to code its fun and free)
-
I think this works. I'm not sure it wasnt tested i wrote it now without vb6.
Well one way is to convert your .mp3 file to .wav file then paste .wav file in Sound folder, after that you should add new Server enum on server and client side
```
SPlayBattleSound
```
in modConstats(Server) add
```
Public Const BattleMusic as String = "Battle.wav" 'or whatever filename
```
Then in modServerTCP(Server) add:
```
Sub SendPlayBattleMusic(ByVal Index as Long)
dim buffer as clsbuffer
set buffer = new clsbuffer
buffer.writelong SPlayBattleSound
buffer.writestring BattleMusic
senddatato index,buffer.toarray
set buffer = nothing
end sub
```
Now on client side in modHandleData add
```
Sub HandlePlayBattleSound (byval index as long,byref Data() as byte,byval StartAddr as long,byval ExtraVar as long)
dim sound as string
dim buffer as clsbuffer
set buffer = new clsbuffer
buffer.writebytes Data
sound = buffer.readstring
playsound sound
set buffer = nothing
end sub
```
Also (client side) in sub initMessages copy last line before end sub and paste it in the same sub then replace SSomething with SPlayBattleSound and HandleSomething with HandlePlayBattleSound
This will play music (sound).To make it in battle on server side in PlayerAttackPlayer you need to add
```
Call SendPlayBattleMusic (Attacker)
Call SendPlayBattleMusic (Victim)
```
I dont know line where you should paste this because I dont have VB6 here right now I wrote all this from my head , but I think this should work.
If you want to play music when you attack npc add this (I dont know wich line) in PlayerAttackNPC sub
```
Call SendPlayBattleMusic (Index) 'I'm not sure if its attacker but i think its index
```
Good luck -
Lol, Eclipse Origins 4.2.3 is using DX8 so you dont need to have background color you just need to make background transparent with Photoshop or Gimp and export is as png.
-
Updated!
new screenshots ;) -
Try this
```
Function GetClassName(ByVal ClassNum As Long) As String
If ClassNum < 1 Or ClassNum > Max_Classes Then
GetClassName = "CLASS"
Else
GetClassName = Trim$(Class(ClassNum).Name)
End If
End Function
``` -
Updated : New screenshots!
-
Can you screen shot whole sub ?
-
@[member="Hackertatio"] I think you need to change GUI because people are bored of Eclipse GUI because almost every game have it.You should make your own GUI like Arkadia.You should add more details to maps. Good luck
-
MLG Pokemon Game ^_^
-
Updated : Screenshots also
-
@[member="CMFiend420"] If you are making Pokemon mmo alone and you are not a programmer after some time it will be full of bugs also you dont want for your game to be the same , you want to update it and add new features. I think for making pokemon mmo you need to know VB6 very well.
-
Nice, but you should center sprites and set them to transparent
-
Yeah Crest .There is Pokemon Origins anime based off the games.There are 4 episodes i think.
-
@[member="CMFiend420"] I dont know.
@[member="Link"] I will do my best -
As I said I wont add animations but its always possible for someone to add it using few GIF images,each image is one frame so you can support transparency and gettickcount so you can play animations.
-
Maybe someone makes Pokemon Sidescroll MMO lol
-
Well, you have pokemon editor where you can edit pokemon.Moves editor is updated it wont contain animations but you will always be able to add it in the source.Whole engine works like normal EO with all editors just without player and npc attacking.
-
Update : Added screenshots (I will add more!)
-
The website desing is nice and game looks cool. You should change .altervista.org domain to .com or .net . Google 1&1 .On 1&1 you can buy .com or .net domain for 1$ per year.
+main website is full of adds -
yes, I will release engine for every user because a lot of people wan't to make Pokemon MMO, but I'm going to release my game and update it.
-
I dont know about release date yet, but it will be soon and I will release it as my game so it will be playable for everyone if you want to check my game visit : [www.pokeearth.com](http://www.pokeearth.com) or .net
-
Easy to solve. SendAnimation Cursor X and Y and animation number in sub where you click(Server side)
-
UPDATED!
-
Updated 5/3/2015
[REQUEST] Server-client communication tutorial
in Source
Posted
I will show you example how to send message from server to client and open it in message box.
This is working for eclipse origins.
SERVER
In monEnumerations in enum ServerPackets we will add new packet SSomething
Now in modServerTCP we will add sub:
```
Sub SendMessageToPlayer(ByVal index as Long,ByVal msg as String)
Dim buffer as clsBuffer
Set buffer = New clsBuffer
buffer.writelong SSomething
buffer.writestring msg
senddatato index,buffer.toarray
set buffer = nothing
end sub
```
Here we write a string and packet and send it to player (index)
So when you want to send message write this
```
SendMessageToPlayer index,"Hello Eclipse bla bla"
```
Now we need client side to read the message and show it in message box.
In monEnumerations in enum ServerPackets add SSomething
in modHandleData in sub initMessages on the bottom add:
```
HandleDataSub(SSomething) = GetAddress(AddressOf HandlePlayerMessage)
```
now in the same module add :
```
Sub HandlePlayerMessage (ByVal index as long,byref data() as byte,byval Startaddr as long,byval extravar as long)
dim msg as string
dim buffer as clsbuffer
set buffer = new clsbuffer
buffer.writebytes data
msg = buffer.readstring
msgbox(msg)
set buffer = nothing
end sub
```
Here we will write data we got and read message from it, then show msgbox with new msg.
You can do much more this is one of the easiest.