[Aporte] Al agarrar oro se auto-equipa

Ir abajo

[Aporte] Al agarrar oro se auto-equipa

Mensaje por Rydzek el Vie Ago 23, 2013 3:29 pm

Bueno esto es para que cuando agarramos oro del piso se ponga directamente en la billetera:

En el "Sub GetObj(ByVal UserIndex As Integer)" buscamos
Código:
MiObj.ObjIndex = MapData(UserList(UserIndex).Pos.map, X, Y).ObjInfo.ObjIndex
Y abajo ponemos
Código:
       If MiObj.ObjIndex = 12 Then
        UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiObj.amount
        Call EraseObj(MapData(UserList(UserIndex).Pos.map, X, Y).ObjInfo.amount, UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
        Call WriteUpdateGold(UserIndex)
        Exit Sub
        End If
Es todo. Saludos Very Happy

Fuente: GS Zone
Rydzek
Rydzek



Aportes : 4
Mensajes : 25
Puntos : 39

Ver perfil de usuario

Volver arriba Ir abajo

Re: [Aporte] Al agarrar oro se auto-equipa

Mensaje por Shermie80 el Vie Ago 23, 2013 4:43 pm

Buen Aporte , Gracias por traerlo al foro Smile
Shermie80
Shermie80



CoverAOStaff
Aportes : 55
Mensajes : 139
Puntos : 822
Edad : 22

Ver perfil de usuario http://todo-argentum.foroargentina.net

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.