GS-Zone
Facebook Twitter

Problema /CUENTAREGRESIVA Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

27

Nota » 05 Feb 2012 19:23

El error además del que dijo mica es el siguiente:

en vez de "userlist(i).empocont = 1"

pone

"userlist(i).flags.empocont = 1

Imagen
Shak
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2036
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Nota » 05 Feb 2012 19:30

Shak escribió:El error además del que dijo mica es el siguiente:

en vez de "userlist(i).empocont = 1"

pone

"userlist(i).flags.empocont = 1


Ok hice eso y ahora me tirra error en esta linea .
Imagen
Maatii
NoicadAO
75
Newbie [2]
Registrado: Noviembre 2011
Ubicación: Mi casa.
Mensajes: 41
Arriba

Nota » 05 Feb 2012 19:31

aver pasame el sub completo.

Imagen
Shak
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2036
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Nota » 05 Feb 2012 19:32

(supongo que es este : P )

'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
' Modulo Inv & Obj
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'Modulo para controlar los objetos y los inventarios.
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
Public Function TirarItemAlPiso(Pos As WorldPos, Obj As Obj, Optional NotPirata As Boolean = True) As WorldPos
'***************************************************
'Author: Unknown
'Last Modification: -
'
'***************************************************

On Error GoTo errhandler

Dim NuevaPos As WorldPos
NuevaPos.X = 0
NuevaPos.Y = 0

Tilelibre Pos, NuevaPos, Obj, NotPirata, True
If NuevaPos.X <> 0 And NuevaPos.Y <> 0 Then
Call MakeObj(Obj, Pos.Map, NuevaPos.X, NuevaPos.Y)
End If
TirarItemAlPiso = NuevaPos

Exit Function
errhandler:

End Function

'AyudandOh
Public Sub NPC_TIRAR_ITEMS(ByVal UserIndex As Integer, ByRef npc As npc, ByVal IsPretoriano As Boolean)

On Error Resume Next

With npc

Dim i As Byte
Dim MiObj As Obj
Dim NroDrop As Integer
Dim Random As Integer
Dim ObjIndex As Integer

If IsPretoriano Then
For i = 1 To MAX_INVENTORY_SLOTS
If .Invent.Object(i).ObjIndex > 0 Then
MiObj.Amount = .Invent.Object(i).Amount
MiObj.ObjIndex = .Invent.Object(i).ObjIndex
Call TirarItemAlPiso(.Pos, MiObj)
End If
Next i

If .GiveGLD > 0 Then _
Call TirarOroNpc(.Drop(NroDrop).Amount, Oroc, npc.Pos)

Exit Sub
End If

Random = RandomNumber(1, 100)

If Random <= 90 Then
NroDrop = 1

If Random <= 10 Then
NroDrop = NroDrop + 1

For i = 1 To 3

If RandomNumber(1, 100) <= 10 Then
NroDrop = NroDrop + 1
Else
Exit For
End If
Next i

End If


ObjIndex = .Drop(NroDrop).ObjIndex
If ObjIndex > 0 Then

If ObjIndex = iORO Then
Call TirarOroNpc(UserIndex, .Drop(NroDrop).Amount, npc.Pos)
Else
MiObj.Amount = .Drop(NroDrop).Amount
MiObj.ObjIndex = .Drop(NroDrop).ObjIndex

Call TirarItemAlPiso(.Pos, MiObj)
End If
End If

End If

End With

End Sub
Última edición por Maatii el 05 Feb 2012 19:34, editado 1 vez en total
Maatii
NoicadAO
75
Newbie [2]
Registrado: Noviembre 2011
Ubicación: Mi casa.
Mensajes: 41
Arriba

Nota » 05 Feb 2012 19:33

On Error GoTo errhandler

lo que está arriba de eso ^^ donde inicia el sub
Este mensaje ha obtenido 5 Monedas de Oro.


Imagen
Shak
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2036
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Nota » 05 Feb 2012 19:36

Aca esta -.- cualquier cosa edito


'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
' Modulo Inv & Obj
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'Modulo para controlar los objetos y los inventarios.
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
'?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿?¿
Public Function TirarItemAlPiso(Pos As WorldPos, Obj As Obj, Optional NotPirata As Boolean = True) As WorldPos
'***************************************************
'Author: Unknown
'Last Modification: -
'
'***************************************************

On Error GoTo errhandler

Dim NuevaPos As WorldPos
NuevaPos.X = 0
NuevaPos.Y = 0

Tilelibre Pos, NuevaPos, Obj, NotPirata, True
If NuevaPos.X <> 0 And NuevaPos.Y <> 0 Then
Call MakeObj(Obj, Pos.Map, NuevaPos.X, NuevaPos.Y)
End If
TirarItemAlPiso = NuevaPos

Exit Function
errhandler:

End Function

'AyudandOh
Public Sub NPC_TIRAR_ITEMS(ByVal UserIndex As Integer, ByRef npc As npc, ByVal IsPretoriano As Boolean)

On Error Resume Next

With npc

Dim i As Byte
Dim MiObj As Obj
Dim NroDrop As Integer
Dim Random As Integer
Dim ObjIndex As Integer

If IsPretoriano Then
For i = 1 To MAX_INVENTORY_SLOTS
If .Invent.Object(i).ObjIndex > 0 Then
MiObj.Amount = .Invent.Object(i).Amount
MiObj.ObjIndex = .Invent.Object(i).ObjIndex
Call TirarItemAlPiso(.Pos, MiObj)
End If
Next i

If .GiveGLD > 0 Then _
Call TirarOroNpc(.Drop(NroDrop).Amount, Oroc, npc.Pos)

Exit Sub
End If

Random = RandomNumber(1, 100)

If Random <= 90 Then
NroDrop = 1

If Random <= 10 Then
NroDrop = NroDrop + 1

For i = 1 To 3

If RandomNumber(1, 100) <= 10 Then
NroDrop = NroDrop + 1
Else
Exit For
End If
Next i

End If


ObjIndex = .Drop(NroDrop).ObjIndex
If ObjIndex > 0 Then

If ObjIndex = iORO Then
Call TirarOroNpc(UserIndex, .Drop(NroDrop).Amount, npc.Pos)
Else
MiObj.Amount = .Drop(NroDrop).Amount
MiObj.ObjIndex = .Drop(NroDrop).ObjIndex

Call TirarItemAlPiso(.Pos, MiObj)
End If
End If

End If

End With

End Sub
Maatii
NoicadAO
75
Newbie [2]
Registrado: Noviembre 2011
Ubicación: Mi casa.
Mensajes: 41
Arriba

Nota » 05 Feb 2012 19:39

Hee arriba de:

On Error GoTo errhandler

pone

end sub
Este mensaje ha obtenido 5 Monedas de Oro.


Imagen
Shak
@lautamarino
531
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2036
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Nota » 05 Feb 2012 19:55

Okai . Lo hice (parece que funciona compila compilaa y plaaaaaff error :@)

Me tira error en la misma linea de antes , osea : On Error GoTo errhandler pongo end sub y me tira el error en el end sub
Maatii
NoicadAO
75
Newbie [2]
Registrado: Noviembre 2011
Ubicación: Mi casa.
Mensajes: 41
Arriba

Nota » 06 Feb 2012 09:22

Maatii escribió:
Farker escribió:Implementa el /CUENTAREGRESIVA de Neithan que está aportado en 12.x
Ami me funciona ese.


Te referis a este?
ft32903_aporte_cuenta_regresiva.html&hilit=+cuenta+regresiva#p248688

Porque de ahi lo saque


No, este:

cuenta_regresiva_y_death_neithan_ao_tagd.html

Director Madnait AO

http://madnait-ao.ucoz.com

Imagen

Imagen
Farker
Director Madnait AO
215
Newbie [6]
Registrado: Años de membresía
Mensajes: 195
Aportes: 3
Arriba

Nota » 07 Feb 2012 13:09

Usa el /CUENTAREGRESIVA QUE POSTIE


ACA TE DJEO EL LINK :

comando_cuentaregresiva_tiempo_mapa_thfa.html



Saludos !

Imagen
tkbmanco
378
Destructor de Mentes [3]
Registrado: Años de membresía
Ubicación: Mar Del Plata
Mensajes: 636
Aportes: 9
Arriba

Nota » 07 Feb 2012 15:33

x dios 24 comentarios XDDD

eso es por que en verisones menores a la 13.x , no se podian patear los caspers y si estabas muerto te podias parar arriba de un item, eso es "empollar" , sobre el código, usá el que dijo tkbmanco.

LyRan escribió:Buenos Dias amigos y programadores de Gs Zone, Me gustaria pedirle la amabilidad de una ayuda con un cliente editado para mi Ao casero, Osea me explico, yo juego Ao con varios amigos y ellos todos usan cheat y no me gusta eso me gustaria que alguien me ayudara a crear un cliente editado con auto poteo de ambas potas a la ves ya sea que se alla gastado Mana lanzando algun hechis y comienze a potear solo hasta estar completamente el Mana, igual para la salud y poteo rapido para ambos.
maTih.-
mAnco programEr
800 (+1)
Dragon Ancestral [1]
Registrado: Años de membresíaAños de membresía
Ubicación: Bolivia
Mensajes: 2305
Aportes: 109
Arriba

Nota » 12 Feb 2012 21:49

El de te tkbmanco al copilar todo bien, pero al usar el comando ingame, te deslogea el gm, y no se q onda.

S.S.P Servicio de Seguridad Presidencial De Uruguay
Alias NOOB en unos Cuantos Ao, Saludos Desde Uruguay
eljoa
CraoS Ao Staff
185
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 99
Arriba
Anterior

Volver a AO 0.13.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados