Shippous

Hh, i'll take a look. No, nothing like Player(1) ); ok, i'll just keep searching, if someone have a great idea lol '-'

But if there's something wrong with the code, why i can move? .-.

The only thing i can remember is something about the graphics, like an atack animation…

BUMP, please, someone? D:

Antivirus?

Bump

http://www.touchofdeathforums.com/community/index.php?/topic/128919-party-only-maps/page__hl__party You can use that as base.

There's a tutorial about that on source.

Ok, there's the problem: I'm hosting the game on my other PC, and when i enter in the game, everything works fine, but when another person enter, they cant move, but i can. I pasted the FULL GAME on the other pc, and the same problem, i cant move, there's no way to be lag, because i already tryed localhost and i'm trying in the Host PC. But in my pc everything works fine, even if i'm hosting in the other pc. Sry my bad english, i hope you guys can understand that lol,

Maybe some timeloop, and if you dont move on X seconds the sprite changes? lol Dunno.

I only changed DrawPlayer lol '-' Just put: If Player(MyIndex).Moving = 0 then Anim = 0 under the If VXFRAME = False Then ' Reset frame ' If Player(Index).Step = 3 Then ' anim = 0 ' ElseIf Player(Index).Step = 1 Then ' anim = 2 ' End If thing Nvm, dont read dthe idle part on the title lol 

We can't post links to the download, but theres a PIRATE site… something to do with a bay?

I'll download the copy with the system and test it  Thanks for the answear xD

yeah, i'm already changed that. my problem was on server, thanks  I was trying the correct thing, but i only mistaked on the "attacker" thing, i was trying index/myindex, like client side ):

You need a program named Visual Basics 6 (just google it, i cant say where you can find it ) ): Then, you open the project with VB6 and tarã, you can edit it  To make maps, you need to open the server and right click yourself and make you a admin, then, press instert on the game 

ok, i added blablabla attackspeed of the weapon blablabla - (GetPlayerStat(index, stats.agility) * 3) (i received an definition error on index, so i defined it as Byval Index as Long) but when i attack i got an error on CanPlayerAtackNpc. I hate being such a noob on vb6 lol

Bump for my question.

Ok, i already changed that, and the only thing that changes is the speed of the animation, but the damage still have the normal speed.

And what i'm suposed to change on that? o.õ

Gettint "argument not optimal" on ' Can we attack the npc? If CanPlayerAttackNpc(Index, mapNpcNum) Then Tryattacknpc server side

Oh, i need to change on server too? probably that's the problem, i hate that server/client thing lol. I'll try that

bump

That fixes the required quest/items/level/class problems? ):

Someone can give me a hint about how to code that? I tried to add - (GetPlayerStat(MyIndex, Agility) on anything to do with the atackspeed, but don't seems to work when atacking npcs, only resources .-.

Sub ProcessNpcMovement(ByVal MapNpcNum As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler ' Check if NPC is walking, and if so process moving them over If MapNpc(MapNpcNum).Moving = MOVING_WALKING Then Select Case MapNpc(MapNpcNum).Dir Case DIR_UP MapNpc(MapNpcNum).yOffset = MapNpc(MapNpcNum).yOffset - ((ElapsedTime / 1000) * (NPC(MapNpc(MapNpcNum).num).speed * SIZE_X)) If MapNpc(MapNpcNum).yOffset < 0 Then MapNpc(MapNpcNum).yOffset = 0 Case DIR_DOWN MapNpc(MapNpcNum).yOffset = MapNpc(MapNpcNum).yOffset + ((ElapsedTime / 1000) * (NPC(MapNpc(MapNpcNum).num).speed * SIZE_X)) If MapNpc(MapNpcNum).yOffset > 0 Then MapNpc(MapNpcNum).yOffset = 0 Case DIR_LEFT MapNpc(MapNpcNum).xOffset = MapNpc(MapNpcNum).xOffset - ((ElapsedTime / 1000) * (NPC(MapNpc(MapNpcNum).num).speed * SIZE_X)) If MapNpc(MapNpcNum).xOffset < 0 Then MapNpc(MapNpcNum).xOffset = 0 Case DIR_RIGHT MapNpc(MapNpcNum).xOffset = MapNpc(MapNpcNum).xOffset + ((ElapsedTime / 1000) * (NPC(MapNpc(MapNpcNum).num).speed * SIZE_X)) If MapNpc(MapNpcNum).xOffset > 0 Then MapNpc(MapNpcNum).xOffset = 0 End Select