fitonga
Creador de KingAO
Hola buenas , estoy probando clientes fenix y queria saber si alguien sabia como adaptar este codigo para fenix:
El Codigo es el siguiente:
Estuve jugando imperium , y me llamo la atencion la jugabilidad del pvp de este , en modo 1 vs 1 , la verdad el juego no me gusta mucho , ya que es un juego comercial y buscan sacarle la plata del bolsillo a la gente , lo que si me gustaria es tener un estilo masomenos parecido en cuestion de PvP.
Y si se puede atraer users a un nuevo ao , que tenga un estilo unico y no sea comercial , algo que haga que la gente quiera volver a jugar al ao , y asimismo , atraer nuevas almas muajajajaja
Desde Ya Muchas Gracias. Atte: Fitonga

El Codigo es el siguiente:
Código:
Private Sub Accion1_Click()
Text1.Enabled = True
End Sub
Private Sub Accion2_Click()
Text1.Enabled = False
End Sub
Private Sub Accion3_Click()
Text1.Enabled = False
End Sub
Private Sub Accion4_Click()
Text1.Enabled = False
End Sub
Private Sub Guardar_Click()
'Usar Item
If Accion4.value Then
If Inventario.OBJIndex(Inventario.selectedItem) = 0 Or _
UsarYequiparObjValido(Inventario.ObjType(Inventario.selectedItem), True) = False Then
Call MsgBox("Item Invalido,seleccione otro.", vbCritical + vbOKOnly)
Else
MacroList(MacroIndex).mTipe = eMacros.aUsar
MacroList(MacroIndex).Grh = Inventario.GrhIndex(Inventario.selectedItem)
MacroList(MacroIndex).Nombre = Inventario.ItemName(Inventario.selectedItem)
MacroList(MacroIndex).OBJIndex = Inventario.OBJIndex(Inventario.selectedItem)
MacroList(MacroIndex).Slot = Inventario.selectedItem
Call SaveMacros(UserName)
' Call frmMain.ActualizarMacros(CByte(MacroIndex), False)
frmMain.Macros(MacroIndex).Cls
Call Grh_Render_To_Hdc(frmMain.Macros(MacroIndex).hDC, Inventario.GrhIndex(Inventario.selectedItem), 0, 0)
Unload Me
End If
End If
'Equipar Item
If Accion3.value Then
If Inventario.OBJIndex(Inventario.selectedItem) = 0 Or _
UsarYequiparObjValido(Inventario.ObjType(Inventario.selectedItem), False) = False Then
Call MsgBox("Item Invalido,seleccione otro.", vbCritical + vbOKOnly)
Else
MacroList(MacroIndex).mTipe = eMacros.aEquipar
MacroList(MacroIndex).Grh = Inventario.GrhIndex(Inventario.selectedItem)
MacroList(MacroIndex).Nombre = Inventario.ItemName(Inventario.selectedItem)
MacroList(MacroIndex).OBJIndex = Inventario.OBJIndex(Inventario.selectedItem)
MacroList(MacroIndex).Slot = Inventario.selectedItem
Call SaveMacros(UserName)
'Call frmMain.ActualizarMacros(CByte(MacroIndex), False)
frmMain.Macros(MacroIndex).Cls
Call Grh_Render_To_Hdc(frmMain.Macros(MacroIndex).hDC, Inventario.GrhIndex(Inventario.selectedItem), 0, 0)
Unload Me
End If
End If
'Usar comandos / Hablar
If Accion1.value Then
If Text1.Text = "" Then
Call MsgBox("Escriba un comando o una palabra.", vbCritical + vbOKOnly)
Else
MacroList(MacroIndex).mTipe = eMacros.aComando
MacroList(MacroIndex).Grh = 17506
MacroList(MacroIndex).Nombre = Text1.Text
Call SaveMacros(UserName)
'Call frmMain.ActualizarMacros(CByte(MacroIndex), False)
frmMain.Macros(MacroIndex).Cls
Call Engine.DrawGrhtoHdc(frmMain.Macros(MacroIndex).hDC, 17506, 0, 0)
Unload Me
End If
End If
'Usar Hechizo
If Accion2.value Then
If frmMain.hlst.List(frmMain.hlst.ListIndex) = "(None)" Or _
frmMain.hlst.ListIndex = -1 Then
Call MsgBox("Hechizo invalido,seleccione otro.", vbCritical + vbOKOnly)
Else
MacroList(MacroIndex).mTipe = eMacros.aLanzar
MacroList(MacroIndex).Grh = 609
MacroList(MacroIndex).Nombre = frmMain.hlst.List(frmMain.hlst.ListIndex)
MacroList(MacroIndex).SpellSlot = frmMain.hlst.ListIndex
Call SaveMacros(UserName)
'Call frmMain.ActualizarMacros(CByte(MacroIndex), False)
frmMain.Macros(MacroIndex).Cls
Call Engine.DrawGrhtoHdc(frmMain.Macros(MacroIndex).hDC, 609, 0, 0)
Unload Me
End If
End If
End Sub
Private Sub Salir_Click()
Unload Me
End Sub
Estuve jugando imperium , y me llamo la atencion la jugabilidad del pvp de este , en modo 1 vs 1 , la verdad el juego no me gusta mucho , ya que es un juego comercial y buscan sacarle la plata del bolsillo a la gente , lo que si me gustaria es tener un estilo masomenos parecido en cuestion de PvP.
Y si se puede atraer users a un nuevo ao , que tenga un estilo unico y no sea comercial , algo que haga que la gente quiera volver a jugar al ao , y asimismo , atraer nuevas almas muajajajaja
Desde Ya Muchas Gracias. Atte: Fitonga