Varios codigos programacion ao 1r parte y codes alkon 13.0

Hola este es mi primer post y hoy traigo como programar un AO.

En server:

Para Minar 20/50 busquen: (trabajo.bas)

Código:

With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(1, CantidadItems)
Else
MiObj.Amount = 1

Y remplazamos por:

Código:


With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(20CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(40ntidadItems)
Else
MiObj.Amount = 1

Talar 20/40 buscan: (trabajo.bas)

Código:

With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(1, CantidadItems)
Else
MiObj.Amount = 1

Y remplazan por:

Código:

With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(20CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(40CantidadItems)
Else
MiObj.Amount = 1

Pescar 20/40 buscan (trabajo.bas)

Código:

With UserList(UserIndex)
CantidadItems = 1 + MaximoInt(20 CInt((.Stats.ELV - 4) / 5))
End With

MiObj.Amount = RandomNumber(40 CantidadItems)
Else
MiObj.Amount = 1

Lingotear de a 50 buscan: (trabajo.bas)

Código:

With UserList(UserIndex)
CantidadItems = MaximoInt(1, CInt((.Stats.ELV - 4) / 5))

Y remplazan por:

Código:

With UserList(UserIndex)
CantidadItems = MaximoInt(50CInt((.Stats.ELV - 4) / 5))

Para poner Dados 18 buscan: (protocol.bas)

Código:

Private Sub HandleThrowDices(ByVal UserIndex As Integer)

Y remplazan todo ese sub por:

Código:

Private Sub HandleThrowDices(ByVal UserIndex As Integer)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'
'***************************************************
'Remove packet ID
Call UserList(UserIndex).incomingData.ReadByte

With UserList(UserIndex).Stats
.UserAtributos(eAtributos.Fuerza) = 18
.UserAtributos(eAtributos.Agilidad) = 18
.UserAtributos(eAtributos.Inteligencia) = 18
.UserAtributos(eAtributos.Carisma) = 18
.UserAtributos(eAtributos.Constitucion) = 18
End With

Call WriteDiceRoll(UserIndex)
End Sub


Para modificar en nivel busquen: (declaraciones.bas)

Código:

Public Const STAT_MAXELV As Byte = 255

Remplazan por

Código:

Public Const STAT_MAXELV As Byte = 47

Para sacar los 2 segundos al comenzar a meditar busquen: (declaraciones.bas)

Código:

Public Const TIEMPO_INICIOMEDITAR As Integer = 2000

Remplazan por:

Código:

Public Const TIEMPO_INICIOMEDITAR As Integer = 1

Ahora en cliente:

Nombres siempre visibles busquen: (tileengine.bas)

Código:

If Nombres And (esGM(UserCharIndex) Or Abs(MouseTileX - .Pos.X) < 2 And (Abs(MouseTileY - .Pos.Y)) < 2) Then

y remplazan por: (frm.main)

Código:

If Nombres Then

Para quitar el "no tan rapido" buscan:

Código:

If Not PuedeMacrear Then
AddtoRichTextBox frmMain.RecTxt, "No tan rápido..!",
255, 255, 255, False, False, True
Else

Y lo remplazamos por:

Código:

If PuedeMacrear Then

No se cae nunca el oro buscan: (inv_Usuario)

Código:

Dim Cantidad As Long
Cantidad = .Stats.GLD - CLng(.Stats.ELV) * 10000

If Cantidad > 0 Then _
Call TirarOro(Cantidad, UserIndex)

Y lo borran.

Sistema de rangos por frags buscan: (extra)

Código:

If Len(.desc) > 0 Then
Stat = "Ves a " & .name & Stat & " - " & .desc
Else
Stat = "Ves a " & .name & Stat
End If

Lo remplazan por:

Código:

If Len(.desc) > 0 Then
Stat = "Ves a " & .name & Stat & " <Frags: " & .Stats.UsuariosMatados & " >" & " - " & .desc
Else
Stat = "Ves a " & .name & Stat & " <Frags: " & .Stats.UsuariosMatados & " >"
End If

Alkon 13.0 con visual basic subido por mi =D
[Tienes que estar registrado y conectado para ver este vínculo]

Buen Aporte! Trata de poner en [code*][/code], asi queda más organizado.

Edit: Sin Asterisco *

buen aporte

me olvide recuerden generar el .exe en visual basic Inicio>Generar .exe y listo =D

Buen aporte zeratul, seguí asi.

PD: Te puse los [CODE*] y [/CODE]