Global attack animation?

[Growlith1223]

Has anyone been able to get the attack animation visible to others?

[kaizen101]

yes

[Keny14]

@kaizen101:

> yes

If you could share with us your source, that will be nice. :-) thank you.

[donovanvaught]

OK! Think it's time for me to give this a shot! On another thread Robin chimed in and, along with his usual type of response :''( , pretty much explained that Origins already does this, it's just missing a few pieces of code. So here goes…

**CLIENT:** In the client we already have a packet being sent by the CheckAttack sub
```
Set Buffer = New clsBuffer
                Buffer.WriteLong CAttack
                SendData Buffer.ToArray()
                Set Buffer = Nothing
```**CLIENT:** This code just needs to have the index information of who is attacking to be sent to the server
```
Set Buffer = New clsBuffer
                Buffer.WriteLong CAttack
                [b]Buffer.WriteLong MyIndex[/b]
                SendData Buffer.ToArray()
                Set Buffer = Nothing
```**SERVER:**Next the HandleAttack sub in the server needs to receive this info (P.S. don't forget to Dim buffer)
```
Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    attackingplayer = Buffer.ReadLong
    Set Buffer = Nothing
```
**SERVER:** Then have the server send that info right back to the client (best to have this right after the above)
```
' Send this packet so they can see the person attacking
    Set Buffer = New clsBuffer
    Buffer.WriteLong SAttack
    Buffer.WriteLong attackingplayer
    SendDataToMap GetPlayerMap(index), Buffer.ToArray()
    Set Buffer = Nothing
```
**CLIENT:** and last….guess what? there shouldn't be any last! this code should already be in the client's handleattack sub:
```
Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    i = Buffer.ReadLong
    ' Set player to attacking
    Player(i).Attacking = 1
    Player(i).AttackTimer = GetTickCount

```
If you've done all this right (and if I've written these instructions right at 3a.m.) then all players should see your attack frame! (p.s. for animations this should also work)

Well, That's all folks! Be good, and don't thank me(maybe a little) but thank Robin most of all!

[Keny14]

Thanks but not work!
When I attack another player I have: (in the server)
Run-time error '9':
Subscript out of range

> Public Sub WriteBytes(ByRef nByte() As Byte)
> Dim nLength As Long
>        
>     **nLength = (UBound(nByte) - LBound(nByte)) + 1**
>    
>     If WriteHead + nLength - 1 > BufferSize Then Allocate nLength
>    
>     CopyMemory Buffer(WriteHead), nByte(0), nLength
>     WriteHead = WriteHead + nLength
> End Sub

[Ruins of Hell]

@Keny:

> Thanks but not work!
> When I attack another player I have: (in the server)
> Run-time error '9':
> Subscript out of range

Make sure the packets in modEnumerations client-side match with the packets in modEnumerations server-side.

[Keny14]

@Soul:

> Make sure the packets in modEnumerations client-side match with the packets in modEnumerations server-side.

Yeah they are the same. My server & client work good, but when I install Deathfissure's codes I've this bug. :/ Maybe I did something wrong.

I've add in Sub CheckAttack under:
```
Set Buffer = New clsBuffer
                Buffer.WriteLong CAttack

```This:
```
Buffer.WriteLong MyIndex
```
And in Sub HandleAttack (server side) I've add under:
```
    ' Send this packet so they can see the person attacking
    'SendAttack Index
```This
```
Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    attackingplayer = Buffer.ReadLong
    Set Buffer = Nothing
```
In sub handleattack (client side) under:
```
    ' Set player to attacking
    Player(i).Attacking = 1
    Player(i).AttackTimer = GetTickCount
```This
```
        Buffer.WriteLong SAttack
    Buffer.WriteLong attackingplayer
    SendDataToMap GetPlayerMap(Index), Buffer.ToArray()
    Set Buffer = Nothing
```
And when I attack another player, I've this bug: (in the server)
Compile error:
Variable not defined

In sub handleattack:

> Set Buffer = New clsBuffer
>     Buffer.WriteBytes Data()
>     **attackingplayer =** Buffer.ReadLong
>     Set Buffer = Nothing

So, I've add
```
Dim attackingplayer As Long
```(didn't work)
Another time
```
Dim attackingplayer As String
```(didn't work)

Always with the same bug:
@Keny:

> Run-time error '9':
> Subscript out of range
>
> > Public Sub WriteBytes(ByRef nByte() As Byte)
> > Dim nLength As Long
> >        
> >     **nLength = (UBound(nByte) - LBound(nByte)) + 1**
> >  
> >     If WriteHead + nLength - 1 > BufferSize Then Allocate nLength
> >  
> >     CopyMemory Buffer(WriteHead), nByte(0), nLength
> >     WriteHead = WriteHead + nLength
> > End Sub

Thank you for your help. ^^'

[donovanvaught]

Hi Keny! looks like you put a piece of code on the wrong program, this code:
```
Buffer.WriteLong SAttack
    Buffer.WriteLong attackingplayer
    SendDataToMap GetPlayerMap(Index), Buffer.ToArray()
    Set Buffer = Nothing
```isn't supposed to go in the client. That code goes in the server handleattack sub right after the other chunk of code, (the one that has the attackingplayer = buffer.readlong).
Then the client should already have i=buffer.readlong in the handleattack sub.
sorry if my wording in the tut was a little confusing, I'll edit it a bit. :)

[Keny14]

Heh thank you! work fine. :D
The problem is not you, but me.. I don't understand well English, and when I translate it in my language (French), the translation is horrible…

Anyway, thank you very much. ;)

[Tai Kamiya]

Hey guys, sorry for the post in an old topic, but I've got a problem.

When I try to compile, I get the error:

**"Compile Error:**

**Type Mistach:array or user-defined type expected."**

in

```

Set Buffer = New clsBuffer

Buffer.WriteLong SAttack

Buffer.WriteLong attackingplayer

SendDataToMap GetPlayerMap(index), Buffer.ToArray()

Set Buffer = Nothing

```

Ain't I suppose to specify Buffer.ToArray() putting "index" in ()?

[blkcrow]

> Hey guys, sorry for the post in an old topic, but I've got a problem.
>
> When I try to compile, I get the error:
>
> **"Compile Error:**
>
> **Type Mistach:array or user-defined type expected."**
>
> in
>
> ```
>
> Set Buffer = New clsBuffer
>
> Buffer.WriteLong SAttack
>
> Buffer.WriteLong attackingplayer
>
> SendDataToMap GetPlayerMap(index), Buffer.ToArray()
>
> Set Buffer = Nothing
>
> ```
>
> Ain't I suppose to specify Buffer.ToArray() putting "index" in ()?

No. In wich line does the error show up?

Also sending MyIndex to the server in the checkattck sub its extra uneeded work since attackingplayer will always be equal to index

[Tai Kamiya]

> No. In wich line does the error show up?
>
> Also sending MyIndex to the server in the checkattck sub its extra uneeded work since attackingplayer will always be equal to index

Hi there, thanks for the reply and sorry for any english mistake, I'm brazilian.

My final code stands as this:

```

'SendAttack index

Dim Buffer

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

Dim attackingplayer As String

attackingplayer = Buffer.ReadLong

Buffer.WriteLong SAttack

Buffer.WriteLong attackingplayer

SendDataToMap GetPlayerMap(index), Buffer.ToArray()

Set Buffer = Nothin

```

And the error happens in the line

```
SendDataToMap GetPlayerMap(index), [b]Buffer.ToArray()[/b]
```

[blkcrow]

i havent got access to vb6 right now so replace your code with mine and tell me if it works

```

Dim Buffer as clsBuffer

Set Buffer = New clsBuffer

Buffer.WriteLong SAttack

Buffer.WriteLong Index

SendDataToMap GetPlayerMap(index), Buffer.ToArray()

Set Buffer = Nothing

```

[Tai Kamiya]

> i havent got access to vb6 right now so replace your code with mine and tell me if it works
>
> ```
>
> Dim Buffer as clsBuffer
>
> Set Buffer = New clsBuffer
>
> Buffer.WriteLong SAttack
>
> Buffer.WriteLong Index
>
> SendDataToMap GetPlayerMap(index), Buffer.ToArray()
>
> Set Buffer = Nothing
>
> ```

Aw, yep! Worked as pie. My very thanks to you, bro.

And if anyone need the final code, here it goes:

```

Dim Buffer As clsBuffer

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

Dim attackingplayer As String

attackingplayer = Buffer.ReadLong

Set Buffer = Nothing

Set Buffer = New clsBuffer

Buffer.WriteLong SAttack

Buffer.WriteLong index

SendDataToMap GetPlayerMap(index), Buffer.ToArray()

Set Buffer = Nothing
```

[blkcrow]

No delete this code its not needed

```

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

Dim attackingplayer As String

attackingplayer = Buffer.ReadLong

Set Buffer = Nothing

```

also delete this line in client checkattack sub

```

Buffer.WriteLong MyIndex

```

[Tai Kamiya]

> No delete this code its not needed
>
> ```
>
> Set Buffer = New clsBuffer
>
> Buffer.WriteBytes Data()
>
> Dim attackingplayer As String
>
> attackingplayer = Buffer.ReadLong
>
> Set Buffer = Nothing
>
> ```
>
> also delete this line in client checkattack sub
>
> ```
>
> Buffer.WriteLong MyIndex
>
> ```

,

Gzz, sorry for the mistake! This one is working well, thank'ya again! 

[Cristian624]

Any can post in this thread the full tutorial? i don't understand where is the complete code and the work fine code… in this post have 20000 codes (?)... help?

[Boynaar44]

> Any can post in this thread the full tutorial? i don't understand where is the complete code and the work fine code… in this post have 20000 codes (?)... help?

I posted it [here](http://www.touchofdeathforums.com/community/index.php?/topic/129156-eoevent-system-3-some-bug-fixes/) a while ago, look the last Quote…