Douu Creditos

por 60 Qui 02 Ago 2012, 23:06

Coloquei Tras Por Foto Funciono Normal Maais Nao Almenta os Pontos pq ?

por PlayerBeer Qui 02 Ago 2012, 23:44

Provavelmente botou algum codigo errado ^^

por 60 Qui 02 Ago 2012, 23:46

- Nada Aveerr --'

por PlayerBeer Qui 02 Ago 2012, 23:49

É oque entao oh profissional em vb

por Yan Roberto Sex 03 Ago 2012, 00:02

Nessa linha abaixo..

Código:: Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer If GetPlayerSprite(Index) = 2 Then If GetPlayerClass(Index) = 1 Then Call SetPlayerSprite(Index, 1) Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1) Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1) End If End If Set Buffer = Nothing End Sub Sub HandleTrans(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer If GetPlayerSprite(Index) = 1 Then If GetPlayerClass(Index) = 1 Then Call SetPlayerSprite(Index, 2) Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) + 1) Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) + 1) End If End If Set Buffer = Nothing End Sub

voçê coloca isso.

Código:: Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50)

Vai fica assim!

Código:: Sub HandleNormal(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer If GetPlayerSprite(Index) = 2 Then If GetPlayerClass(Index) = 1 Then Call SetPlayerSprite(Index, 1) Call SetPlayerStat(Index, Stats.Strength, GetPlayerRawStat(Index, Stats.Strength) - 1) Call SetPlayerStat(Index, Stats.Endurance, GetPlayerRawStat(Index, Stats.Endurance) - 1) End If End If Set Buffer = Nothing End Sub Sub HandleTrans(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer If GetPlayerSprite(Index) = 1 Then If GetPlayerClass(Index) = 1 Then Call SetPlayerSprite(Index, 2) Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50) End If End If Set Buffer = Nothing End Sub

por Conteúdo patrocinado

Re: Douu Creditos