[APORTE] Códigos útiles para tu AO.

[Argentum Online]

Originalmente publicado por AyudandOh.-

Vi a mucha gente que hacen un post de como poner dados 18, o skills faciles, bueno son codigos faciles que no necesitan ser un experto para hacerlo.


Para enpezar vamos hacer unos codigos principales para tu ao.


1.- Dados 18/18


en SERVER, vamos a (Protocol.bas)


Buscamos el sub:

Private Sub HandleThrowDices(ByVal UserIndex As Integer)

y reemplazamos todo ese sub por este:

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

2.- Para aumentar la exp, en server, en (MODULO_NPCs.bas)


Para la exp, buscamos:

Npclist(NpcIndex).GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP"))

Y si queres que la exp este por 100 lo reemplazas por:

Npclist(NpcIndex).GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) *100

3.- Para aumentar el oro, en server, (MODULO_NPCs.bas)


Para el oro, Buscamos:

Npclist(NpcIndex).GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD"))

Y si queres que el oro este por 50 reemplazas por:

Npclist(NpcIndex).GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD")) *50

4.- Para que los skills suban rapido. en server, (Modulo_usuarios.bas)


Buscamos el sub:

Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer)

y a todo ese sub lo reemplazas por este:

Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer)
 
    If UserList(UserIndex).flags.Hambre = 0 And UserList(UserIndex).flags.Sed = 0 Then
       
        If UserList(UserIndex).Stats.UserSkills(Skill) = MAXSKILLPOINTS Then Exit Sub
       
        Dim Lvl As Integer
        Lvl = UserList(UserIndex).Stats.ELV
       
        If Lvl > UBound(LevelSkill) Then Lvl = UBound(LevelSkill)
       
        If UserList(UserIndex).Stats.UserSkills(Skill) >= LevelSkill(Lvl).LevelValue Then Exit Sub
   
        Dim Aumenta As Integer
        Dim Prob As Integer
       
        If Lvl <= 1 Then
            Prob = 100
        ElseIf Lvl > 1 And Lvl < 1 Then
            Prob = 100
        ElseIf Lvl >= 1 And Lvl < 1 Then
            Prob = 100
        ElseIf Lvl >= 1 And Lvl < 1 Then
            Prob = 100
        Else
            Prob = 100
        End If
       
        Aumenta = RandomNumber(100, Prob)
       
        If Aumenta = 100 Then
            UserList(UserIndex).Stats.UserSkills(Skill) = UserList(UserIndex).Stats.UserSkills(Skill) + 1
            Call WriteConsoleMsg(UserIndex, "¡Has mejorado tu skill " & SkillsNames(Skill) & " en un punto!. Ahora tienes " & UserList(UserIndex).Stats.UserSkills(Skill) & " pts.", FontTypeNames.FONTTYPE_INFO)
           
            UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.Exp + 50
            If UserList(UserIndex).Stats.Exp > MAXEXP Then _
                UserList(UserIndex).Stats.Exp = MAXEXP
           
            Call WriteConsoleMsg(UserIndex, "¡Has ganado 50 puntos de experiencia!", FontTypeNames.FONTTYPE_FIGHT)
           
            Call WriteUpdateExp(UserIndex)
            Call CheckUserLevel(UserIndex)
        End If
    End If
 
End Sub

5.- Para que mine de a mas.


En server, en (trabajo.bas)


Buscamos:

    If UserList(UserIndex).clase = eClass.Miner Then
        MiObj.amount = RandomNumber(1, 4) '(NicoNZ) 04/25/2008
    Else
        MiObj.amount = 1
    End If

y lo reemplazas por:

    If UserList(UserIndex).clase = eClass.Miner Then
        MiObj.amount = RandomNumber(80, 140) '(NicoNZ) 04/25/2008
    Else
        MiObj.amount = 80
    End If

Ahi vendria a minar de a 80/140 pueden modificarlo a su gusto.


6.- Para que se tale de a mas.


en (trabajo.bas) Buscamos:

    If UserList(UserIndex).clase = eClass.Lumberjack Then
        MiObj.amount = RandomNumber(1, 4)
    Else
        MiObj.amount = 1
    End If

Y lo reemplazas por:

    If UserList(UserIndex).clase = eClass.Lumberjack Then
        MiObj.amount = RandomNumber(80, 140)
    Else
        MiObj.amount = 80
    End If

Ahi vendriamos a que se tale de a 80/140 Pueden modificarlo a su gusto.


7.- Para que se pesce de a mas.


En (trabajo.bas) Buscamos:

    If UserList(UserIndex).clase = eClass.Fisher Then
        MiObj.amount = RandomNumber(1, 4)
    Else
        MiObj.amount = 1
    End If

y lo reemplazas por:

    If UserList(UserIndex).clase = eClass.Fisher Then
        MiObj.amount = RandomNumber(80, 140)
    Else
        MiObj.amount = 80
    End If

Ahi vendria a pescar de a 80/140 pueden modificarlo a su gusto.


8.- Para poner nivel maximo.


en declaraciones.


Buscamos:

	
	
Public Const STAT_MAXELV As Byte = 255

Y si queres que el nivel maximo sea 50 cambiamos por esto:

Public Const STAT_MAXELV As Byte = 50

9.- Para que medite mas rapido


en declaraciones buscamos:

Public Const TIEMPO_INICIOMEDITAR As Integer = 2000

Ahi medita de a 2 segundo.. "2000" son 2 segundo. si queremos que medite cada 1 segundo lo reemplazamos por:

Public Const TIEMPO_INICIOMEDITAR As Integer = 1000

10.- Para que lingotee de a 50. En (Trabajo.bas)


Buscamos el sub:

Private Function MineralesParaLingote(ByVal Lingote As iMinerales) As Integer

Y a todo ese sub lo reemplazamos por:

   1. Private Function MineralesParaLingote(ByVal Lingote As iMinerales) As Integer
   2.     Select Case Lingote
   3.         Case iMinerales.HierroCrudo
   4.             MineralesParaLingote = 700
   5.         Case iMinerales.PlataCruda
   6.             MineralesParaLingote = 1000
   7.         Case iMinerales.OroCrudo
   8.             MineralesParaLingote = 1750
   9.         Case Else
  10.             MineralesParaLingote = 10000
  11.     End Select
  12. End Function

Ahi vendria a lingotear de a 50.


11.- Para algunos que desean tener un servidor de mucho oro, a ver si me explico. el server que tenga: oro: 150, bueno, es muy facil conseguir el oro ya que es facil la oro. y aveces siempre ahi alguien que tira mucho oro y lagea. para eso vamos hacer que tire de a 2k de oro, y no de a 10k. claro que si quieren que tire de a 100k de oro tambien se podria hacer. bueno enpezamos:


en cliente, (frmCantidad.frm)


Buscamos:

Private Sub Command2_Click()
    If Inventario.SelectedItem = 0 Then Exit Sub
    
    If Inventario.SelectedItem <> FLAGORO Then
        Call WriteDrop(Inventario.SelectedItem, Inventario.Amount(Inventario.SelectedItem))
        Unload Me
    Else
        If UserGLD > 10000 Then
            Call WriteDrop(Inventario.SelectedItem, 10000)
            Unload Me
        Else
            Call WriteDrop(Inventario.SelectedItem, UserGLD)
            Unload Me
        End If
    End If


    frmCantidad.Text1.Text = ""
End Sub

Y lo reemplazamos por este:

Private Sub Command2_Click()
    If Inventario.SelectedItem = 0 Then Exit Sub
    
    If Inventario.SelectedItem <> FLAGORO Then
        Call WriteDrop(Inventario.SelectedItem, Inventario.Amount(Inventario.SelectedItem))
        Unload Me
    Else
        If UserGLD > 2000 Then
            Call WriteDrop(Inventario.SelectedItem, 2000)
            Unload Me
        Else
            Call WriteDrop(Inventario.SelectedItem, UserGLD)
            Unload Me
        End If
    End If


    frmCantidad.Text1.Text = ""
End Sub

Ahi vendria a tirar de a 2k el oro. y no de a 10k.


12.- Para que el oro valla directo a la bille


en server, (MODULO_NPCs.bas)


Buscamos el sub:

Sub NPCTirarOro(MiNPC As npc, UserIndex As Integer)

y reemplazamos todo ese sub por este:

    Sub NPCTirarOro(MiNPC As npc, UserIndex As Integer)


    
   
    'SI EL NPC TIENE ORO LO TIRAMOS
    If MiNPC.GiveGLD = 0 Then
         Call WriteConsoleMsg(UserIndex, "No te dio oro el npc.", FontTypeNames.FONTTYPE_INFO)
    End If
    If MiNPC.GiveGLD > 0 Then
       UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + MiNPC.GiveGLD
       Call WriteConsoleMsg(UserIndex, "El npc te ha dado " & MiNPC.GiveGLD & " monedas de oro", FontTypeNames.FONTTYPE_INFO)
       Call WriteUpdateUserStats(UserIndex)
   End If
  
   End Sub

Ahora lo ultimo, buscamos:

Call NPCTirarOro(MiNPC)

y lo reemplazamos por:

Call NPCTirarOro(MiNPC, UserIndex)

Listo, ahi vendria a ir el oro directo a la bille cuando matas a un npc.


13.- Por ultimo, Nombres siempre visibles.


en cliente, (TileEngine.bas)


Buscamos:

# If Nombres And Abs(nX - X) < 2 And (Abs(nY - Y)) < 2 Then

y a eso lo reemplazas por:

if nombres then

Creo que era asi, Bueno sin mas nada que se me ocurra. SALUDOS.-

[Argentum Online]

Originalmente publicado por AyudandOh.-

Me tome todo el tiempo para hacerlo y escribir para ustedes, Solo espero que les sirva estos codes,


Aclaro: Funcionan todos en la vercion de alkon 13.0


Bueno, enpezamos.


1.- Nombres Siempre visibles.


En el cliente. Mod_tileEngine. Buscamos:

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

Y lo reemplazas por:

If nombres then

2.- Oro directo a la bille


En el server, InvNpc. Buscamos el sub:

Public Sub TirarOroNpc(ByVal Cantidad As Long, ByRef Pos As WorldPos)

Y lo reemplazamos por:

'AyudandOh
Public Sub TirarOroNpc(ByVal UserIndex As Integer, ByVal Cantidad As Long, ByRef Pos As WorldPos)


On Error GoTo Errhandler


    If Cantidad > 0 Then
        UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD + Cantidad
        Call WriteUpdateGold(UserIndex)
        Call WriteConsoleMsg(UserIndex, "Has obtenido " & Cantidad & " monedas de oro.", FontTypeNames.FONTTYPE_INFO) 'Ponele una comilla adelante de esta linea si no queres q salga por consola
    End If


    Exit Sub


Errhandler:
    Call LogError("Error en TirarOro. Error " & Err.Number & " : " & Err.description)
End Sub

Despues buscamos el sub:

Public Sub NPC_TIRAR_ITEMS(ByRef npc As npc, ByVal IsPretoriano As Boolean)

Y reemplazamos todo ese sub por este:

'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(UserIndex, .GiveGLD, .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

Y por ultimo buscamos:

Call NPC_TIRAR_ITEMS(MiNPC, IsPretoriano)

Y lo reemplazamos por:

Call NPC_TIRAR_ITEMS(UserIndex, MiNPC, IsPretoriano)

3.- Dados 18/18


En server, Protocol.bas, Buscamos el sub:

Private Sub HandleThrowDices(ByVal UserIndex As Integer)

Y a todo ese sub lo reemplazamos por:

'AyudandOh.-
Private Sub HandleThrowDices(ByVal UserIndex As Integer)


    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

4.- Minar de a mas.


En server, Trabajo.bas, Buscamos:

        If UserList(UserIndex).clase = eClass.Worker Then
            CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))
            
            MiObj.Amount = RandomNumber(1, CantidadItems)
        Else
            MiObj.Amount = 1

Y lo reemplazamos por:

        If UserList(UserIndex).clase = eClass.Worker Then
            CantidadItems = 0 + MaximoInt(20, CInt((.Stats.ELV - 4) / 5))
            
            MiObj.Amount = RandomNumber(50, CantidadItems)
        Else
            MiObj.Amount = 0

Ahi vendria a minar de a 20/50


5.- Para talar de a mas


En server, Trabajo.bas, Buscamos:

    If UserList(UserIndex).clase = eClass.Worker Then
        With UserList(UserIndex)
            CantidadItems = 1 + MaximoInt(1, CInt((.Stats.ELV - 4) / 5))
        End With
        
        MiObj.Amount = RandomNumber(1, CantidadItems)
    Else
        MiObj.Amount = 1

Y lo reemplazamos por:

    If UserList(UserIndex).clase = eClass.Worker Then
        With UserList(UserIndex)
            CantidadItems = 0 + MaximoInt(20, CInt((.Stats.ELV - 4) / 5))
        End With
        
        MiObj.Amount = RandomNumber(50, CantidadItems)
    Else
        MiObj.Amount = 0

Hay vendria a talar de a 20/50


6.- Para lingotear de a mas, Buscamos:

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

Y lo reemplazamos por:

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

Hay vendria a lingotear de a 50


7.- Para Pescar de a mas buscamos:

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

Y lo reemplazamos por:

        With UserList(UserIndex)
            CantidadItems = 0 + MaximoInt(50, CInt((.Stats.ELV - 4) / 5))
        End With
        
        MiObj.Amount = RandomNumber(50, CantidadItems)
    Else
        MiObj.Amount = 0

Hay se pescaria de a 50/50


8.- Tirar oro cada 1k

        If UserGLD > 10000 Then
            Call WriteDrop(Inventario.SelectedItem, 10000)
            Unload Me
        Else
            Call WriteDrop(Inventario.SelectedItem, UserGLD)
            Unload Me

Y lo reemplazamos por:

        If UserGLD > 1000 Then
            Call WriteDrop(Inventario.SelectedItem, 1000)
            Unload Me
        Else
            Call WriteDrop(Inventario.SelectedItem, UserGLD)
            Unload Me

Hay vendria a tirar de a 1k de oro, no de a 10k, Puede llegar hacer
Util para aquellos que tiene su servidor con mucho oro.


9.- Subir la experiencia


En server, NPCs, Buscamos:

.GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP"))

Y lo reemplazamos por:

.GiveEXP = val(Leer.GetValue("NPC" & NpcNumber, "GiveEXP")) * 100

Hay vendria a tener la exp por 100,


10.- Subir el oro


En server, NPCs, Buscamos:

.GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD"))

Y lo reemplazamos por:

.GiveGLD = val(Leer.GetValue("NPC" & NpcNumber, "GiveGLD")) * 100

Hay tendriamos 100 de oro.


11.- Cambiar de color el nick del gm DIOS, en server, Declaraciones, Buscamos:

    Dios = &H8

y lo reemplazamos por:

    Dios = &H10

Ahi el gm dios vendria a tener el nick blanco. pueden ponerle el color
que ustedes quieran.


12.- Para que medite mas rapido.


Buscamos:

Public Const TIEMPO_INICIOMEDITAR As Integer = 2000

Y lo reemplazamos por:

Public Const TIEMPO_INICIOMEDITAR As Integer = 1000

1000 es 1 segundo, y 2000 son 2 segundos. Ahora
vendria a meditar cada 1 segundo.


13.- Poner Nivel MAXIMO


Buscamos:

Public Const STAT_MAXELV As Byte = 255

Y lo reemplazamos por:

Public Const STAT_MAXELV As Byte = 50

Hay vendria hacer nivel maximo 50. Pueden ponerle el lvl max
que ustedes quieran.


14.- Sacar NOTICIAS.


Bueno, en client, vamos a FrmConnect. Hacemos lo siguiente


Borramos: Webnoticias


Buscamos:

    webNoticias.Navigate ("http://ao.alkon.com.ar/noticiascliente/noticias.php")

Y lo borramos


Buscamos:

Private Sub webNoticias_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
    If StatusCode = 500 Then webNoticias.Visible = False
End Sub

Y lo borramos






Listo, Me canse jaja, despues veo si pongo algunas otra cosas.


Saludos.- AyudandOh.-

-2- .

[Argentum Online]

Originalmente publicado por AyudandOh.-

Vamos a seguir con los "CODIGOS UTILES"...




Bueno, les dejo algunos codes mas para la vercion 13.0 de alkon. "Vamos a robarle el credito a C4b3z0n" :$


1.-Para subir skills faciles en la vercion 13.0, Buscamos el sub:

Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer, ByVal Acerto As Boolean)

y lo reemplazamos por:

Sub SubirSkill(ByVal UserIndex As Integer, ByVal Skill As Integer, ByVal Acerto As Boolean)
'Modificado por c4b3z0n; sube skill en uso.
	With UserList(UserIndex)
		With .Stats
		                If .UserSkills(Skill) = MAXSKILLPOINTS Then Exit Sub
	                
		                Dim Lvl As Integer
	        	        Lvl = .ELV
                
		                If Lvl > UBound(LevelSkill) Then Lvl = UBound(LevelSkill)
                
		                If .UserSkills(Skill) >= LevelSkill(Lvl).LevelValue Then Exit Sub


				.UserSkills(Skill) = .UserSkills(Skill) + 1


				Call WriteConsoleMsg(UserIndex, "¡Has mejorado tu skill " & SkillsNames(Skill) & " en un punto! Ahora tienes " & .UserSkills(Skill) & " pts.", FontTypeNames.FONTTYPE_INFO)
				.Exp = .Exp + 50
				If .Exp > MAXEXP Then .Exp = MAXEXP
                    
				Call WriteConsoleMsg(UserIndex, "¡Has ganado 50 puntos de experiencia!", FontTypeNames.FONTTYPE_FIGHT)
                    
				Call WriteUpdateExp(UserIndex)
				Call CheckUserLevel(UserIndex)
		End With
	End With


End Sub

Bueno, ahora vamos con mis codes :P.


2.-Para limpiar el mundo automaticamente.


En server, General.bas


Buscamos el sub:

Sub EnviarSpawnList(ByVal UserIndex As Integer)

Y arriva pones:

 'AyudandOh.-
 Sub LimpiarMundoEntero()


 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor> Limpiando Mundo.", FontTypeNames.FONTTYPE_SERVER))
 Dim MapaActual As Long
 Dim Y As Long
 Dim X As Long


 For MapaActual = 1 To NumMaps
     For Y = YMinMapSize To YMaxMapSize
         For X = XMinMapSize To XMaxMapSize
If MapData(MapaActual, X, Y).ObjInfo.ObjIndex > 0 And MapData(MapaActual, X, Y).Blocked = 0 Then
                 If ItemNoEsDeMapa(MapData(MapaActual, X, Y).ObjInfo.ObjIndex) Then Call EraseObj(10000, MapaActual, X, Y)
End If
         Next X
     Next Y
 Next MapaActual


 LimpiezaTimerMinutos = TimerCleanWorld


Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor> Limpieza del mundo realizada.", FontTypeNames.FONTTYPE_SERVER))
 End Sub

Despues creamos un TIMER en FRMMAIN. Intervalo: 6000 y de nombre: LimpiezaTimer y de codigos le ponemos:

'AyudandOh.-
Private Sub LimpiezaTimer_Timer()
 lblLimpieza = "Limpieza del mundo en: " & LimpiezaTimerMinutos & " minutos."


If Not LimpiezaTimerMinutos = 0 Then
    LimpiezaTimerMinutos = LimpiezaTimerMinutos - 1
Else
     lblLimpieza = "Limpieza del mundo en: ¡Limpiando Mundo!"
     Call LimpiarMundoEntero
End If


If LimpiezaTimerMinutos = 5 Then
 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Servidor > Atencion, 5 minutos para limpieza del mundo. Tomar items del piso.", FontTypeNames.FONTTYPE_SERVER))
End If
End Sub

Y despues creamos un LABEL en el FRMMAIN. con el nombre: lblLimpieza


Lo ultimo, en declaraciones buscamos:

Option Explicit

Y abajo ponemos:

 Public HayGlobal As Boolean
 Public LimpiezaTimerMinutos As Byte
 Public Const TimerCleanWorld As Byte = 30
 Public CuentaRegresivaTimer As Byte

Y listo, donde dice:

Public Const TimerCleanWorld As Byte = 30

Son cada 30 min que se limpia el mundo, podes cambiar el tiempo por que que vos quieras. ACLARO, NO PASARSE DE LOS 255.


Saludos. 100% FUNCIONAL.




Esto no borra lo que esta bloq, ni los portales, Saludos.


3.-Bueno, este code es una boludes, pero por hay a alguien le gusta.


Para que no se te balla lo newbie al nivel 13.


Buscamos en declaraciones:

Public Const LimiteNewbie As Byte = 12

Y lo reemplazamos por:

Public Const LimiteNewbie As Byte = 25

Hay se vendria a salir lo newbie al nivel 25.


4.-CUANdo entras al ao se te aparece una cartel de tutorial, bueno
No nos sirve de mucho para los que hacemos los mod alkon
para sacarlo hacemos lo siguiente:


En cliente, buscamos:

Me.Picture = LoadPicture(DirGraficos & "VentanaTutorial.jpg")

y lo borramos.


5.-Ahora para sacar las presentaciones cuando entramos al ao.


buscamos en cliente;

Private Sub Timer1_Timer()
Static ticks As Long


Dim PresPath As String


ticks = ticks + 1


If ticks = 1 Then
    PresPath = DirGraficos & "HostingAlkon.jpg"
    Me.Picture = LoadPicture(PresPath)
    puedo = True


ElseIf ticks = 2 Then
    PresPath = DirGraficos & "Presentacion" & RandomNumber(5, 8) & ".jpg"
    Me.Picture = LoadPicture(PresPath)
    
Else
    Unload Me
End If


End Sub

Y lo reemplazamos por:

Private Sub Timer1_Timer()
Static ticks As Long


Dim PresPath As String


ticks = ticks + 1


    
    Unload Me


End Sub

Ultimamente no ando mucho en el visual basic mirando los codigos. hoy entre y vi eso, despues si se me ocurre algo mas lo posteo.


Saludos.- AyudandOh.-

-3- .