simplemente textbox y cantidad

Estado
Cerrado para nuevas respuestas.
A

Anonymous

Invitado
Buenas.. estava modoficando el frm herrero tava haciendo que cuando vas a realizar (por ejemplo)diferentes tipos de objetos ya sea armadura escudo cascos espadas. En el caso que mencionó al herrero haciendo trabajo. tendría las siguientes opciones: armaduras, armas, escudos y cascos. Cuando uno clickea en una de esas opciones, en un textbox aparecerían los objetos nombres del tipo de objetos seleccionado. estuve tratandome de basar en el codigo de fenix para esto .. y creo que no estoy listo para adaptarlo a la v 11.5 todo lo que hise fue esto ..
Les dejo todo al abrevedar.. thks
Imagen*

<a href="http://www.subir-imagenes.com/index.php" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.subir-imagenes.com/index.php</a> ... registro=0


En el cliente en frmherrero quite todo el codigo y puse este..

Private Sub Command1_Click()

lstArmaduras.Visible = False
lstArmas.Visible = True
lstEscudos.Visible = False
lstCascos.Visible = False
End Sub

Private Sub Command2_Click()

lstArmaduras.Visible = True
lstArmas.Visible = False
lstEscudos.Visible = False
lstCascos.Visible = False
End Sub

Private Sub Command3_Click()

On Error Resume Next
Dim stxtCantBuffer As String
stxtCantBuffer = txtCantidad.Text

If lstArmas.Visible Then
Call SendData("CNS" & ArmasHerrero(lstArmas.listIndex) & " " & stxtCantBuffer)
ElseIf lstArmaduras.Visible Then
Call SendData("CNS" & ArmadurasHerrero(lstArmaduras.listIndex) & " " & stxtCantBuffer)
ElseIf lstEscudos.Visible Then
Call SendData("CNS" & EscudosHerrero(lstEscudos.listIndex) & " " & stxtCantBuffer)
ElseIf lstCascos.Visible Then
Call SendData("CNS" & CascosHerrero(lstCascos.listIndex) & " " & stxtCantBuffer)
End If

Unload Me

End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Command6_Click()
lstArmaduras.Visible = False
lstArmas.Visible = False
lstEscudos.Visible = True
lstCascos.Visible = False
End Sub

Private Sub Command7_Click()
lstArmaduras.Visible = False
lstArmas.Visible = False
lstEscudos.Visible = False
lstCascos.Visible = True
End Sub

Private Sub Form_Deactivate()
Me.SetFocus
End Sub
Private Sub Form_Load()

Me.Picture = LoadPicture(DirGraficos & "Herreria.gif")

End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If bmoving = False And Button = vbLeftButton Then
DX = X
dy = Y
bmoving = True
End If

End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If bmoving And ((X DX) Or (Y dy)) Then Move Left + (X - DX), Top + (Y - dy)

End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then bmoving = False

End Sub

Private Sub lstCascos_Click()

End Sub

Private Sub txtCantidad_Change()

If Not IsNumeric(txtCantidad.Text) Then txtCantidad.Text = "1"

End Sub
--------------------------------------------------------------------------------------
Los labeles etz

me fije : Case "LAH" ;

Case "LAH"
Rdata = Right$(Rdata, Len(Rdata) - 3)

For m = 0 To UBound(ArmasHerrero)
ArmasHerrero(m) = 0
Next m
i = 1
m = 0
Do
cad$ = ReadField(i, Rdata, 44)
ArmasHerrero(m) = Val(ReadField(i + 1, Rdata, 44))
If cad$ "" Then frmHerrero.lstArmas.AddItem cad$
i = i + 2
m = m + 1
Loop While cad$ ""
Exit Sub
Case "CAS"
Rdata = Right$(Rdata, Len(Rdata) - 3)
frmHerrero.lstCascos.Clear
For m = 0 To UBound(CascosHerrero)
CascosHerrero(m) = 0
Next m
i = 1
m = 0
Do
cad$ = ReadField(i, Rdata, 44)
CascosHerrero(m) = Val(ReadField(i + 1, Rdata, 44))
If cad$ "" Then frmHerrero.lstCascos.AddItem cad$
i = i + 2
m = m + 1
Loop While cad$ ""
Exit Sub
Case "ESC"
Rdata = Right$(Rdata, Len(Rdata) - 3)
frmHerrero.lstEscudos.Clear
For m = 0 To UBound(EscudosHerrero)
EscudosHerrero(m) = 0
Next m
i = 1
m = 0
Do
cad$ = ReadField(i, Rdata, 44)
EscudosHerrero(m) = Val(ReadField(i + 1, Rdata, 44))
If cad$ "" Then frmHerrero.lstEscudos.AddItem cad$
i = i + 2
m = m + 1
Loop While cad$ ""
Exit Sub
Case "LAR"
Rdata = Right$(Rdata, Len(Rdata) - 3)

For m = 0 To UBound(ArmadurasHerrero)
ArmadurasHerrero(m) = 0
Next m
i = 1
m = 0
Do
cad$ = ReadField(i, Rdata, 44)
ArmadurasHerrero(m) = Val(ReadField(i + 1, Rdata, 44))
If cad$ "" Then frmHerrero.lstArmaduras.AddItem cad$
i = i + 2
m = m + 1
Loop While cad$ ""
Exit Sub
--------------------------------------------------------------------------------------
luego pase al servidor..

Busque :
Sub EnivarArmasConstruibles(ByVal UserIndex As Integer)

Dim i As Integer, cad$

For i = 1 To UBound(ArmasHerrero)
If ObjData(ArmasHerrero(i)).SkHerreria <= UserList(UserIndex).Stats.UserSkills(eSkill.Herreria) \ ModHerreriA(UserList(UserIndex).Clase) Then
If ObjData(ArmasHerrero(i)).OBJType = eOBJType.otWeapon Then
'[DnG!]
cad$ = cad$ & ObjData(ArmasHerrero(i)).name & " (" & ObjData(ArmasHerrero(i)).LingH & "-" & ObjData(ArmasHerrero(i)).LingP & "-" & ObjData(ArmasHerrero(i)).LingO & ")" & "," & ArmasHerrero(i) & ","
'[/DnG!]
Else
cad$ = cad$ & ObjData(ArmasHerrero(i)).name & "," & ArmasHerrero(i) & ","
End If
End If
Next i

Call SendData(SendTarget.ToIndex, UserIndex, 0, "LAH" & cad$)

End Sub
--------------------------------------------------------------------------------------
y abajo le agregue..


Sub EnivarArmadurasConstruibles(ByVal UserIndex As Integer)

Dim i As Integer, cad$

For i = 1 To UBound(ArmadurasHerrero)
If ObjData(ArmadurasHerrero(i)).SkHerreria <= UserList(UserIndex).Stats.UserSkills(eSkill.Herreria) / ModHerreriA(UserList(UserIndex).Clase) Then
'[DnG!]
cad$ = cad$ & ObjData(ArmadurasHerrero(i)).name & " (" & ObjData(ArmadurasHerrero(i)).LingH & "-" & ObjData(ArmadurasHerrero(i)).LingP & "-" & ObjData(ArmadurasHerrero(i)).LingO & ")" & "," & ArmadurasHerrero(i) & ","
'[/DnG!]
End If
Next i

Call SendData(SendTarget.ToIndex, UserIndex, 0, "LAR" & cad$)

End Sub
Sub EnviarCascosConstruibles(ByVal UserIndex As Integer)
Dim i As Integer, cad$

For i = 1 To UBound(CascosHerrero)
If ObjData(CascosHerrero(i)).SkHerreria <= UserList(UserIndex).Stats.UserSkills(eSkill.Herreria) / ModHerreriA(UserList(UserIndex).Clase) Then
If ObjData(ArmasHerrero(i)).OBJType = eOBJType.otCASCO Then
'[/DnG!]
cad$ = cad$ & ObjData(CascosHerrero(i)).name & " (" & ObjData(CascosHerrero(i)).LingH & "-" & ObjData(CascosHerrero(i)).LingP & "-" & ObjData(CascosHerrero(i)).LingO & ")" & "," & CascosHerrero(i) & ","
Else
cad$ = cad$ & ObjData(CascosHerrero(i)).name & "," & CascosHerrero(i) & ","
End If
End If
Next i
Call SendData(SendTarget.ToIndex, UserIndex, 0, "CAS" & cad$)

End Sub
Sub EnviarEscudosConstruibles(ByVal UserIndex As Integer)
Dim i As Integer, cad$

For i = 1 To UBound(EscudosHerrero)
If ObjData(EscudosHerrero(i)).SkHerreria <= UserList(UserIndex).Stats.UserSkills(eSkill.Herreria) / ModHerreriA(UserList(UserIndex).Clase) Then
If ObjData(ArmasHerrero(i)).OBJType = eOBJType.otESCUDO Then
'[/DnG!]
cad$ = cad$ & ObjData(EscudosHerrero(i)).name & " (" & ObjData(EscudosHerrero(i)).LingH & "-" & ObjData(EscudosHerrero(i)).LingP & "-" & ObjData(EscudosHerrero(i)).LingO & ")" & "," & EscudosHerrero(i) & ","
Else
cad$ = cad$ & ObjData(EscudosHerrero(i)).name & "," & EscudosHerrero(i) & ","
End If
End If
Next i
Call SendData(SendTarget.ToIndex, UserIndex, 0, "ESC" & cad$)

End Sub
--------------------------------------------------------------------------------------

Despues fui :
--------------------------------------------------------------------------------------
Sub LoadArmasHerreria()

y no te jodo que puse algo :


Sub LoadArmasHerreria()

Dim N As Integer, lc As Integer

N = val(GetVar(DatPath & "ArmasHerrero.dat", "INIT", "NumArmas"))

ReDim Preserve ArmasHerrero(1 To N) As Integer

For lc = 1 To N
ArmasHerrero(lc) = val(GetVar(DatPath & "ArmasHerrero.dat", "Arma" & lc, "Index"))
Next lc

End Sub

Sub LoadArmadurasHerreria()

Dim N As Integer, lc As Integer

N = val(GetVar(DatPath & "ArmadurasHerrero.dat", "INIT", "NumArmaduras"))

ReDim Preserve ArmadurasHerrero(1 To N) As Integer

For lc = 1 To N
ArmadurasHerrero(lc) = val(GetVar(DatPath & "ArmadurasHerrero.dat", "Armadura" & lc, "Index"))
Next lc

End Sub
Sub LoadEscudosHerreria()

Dim N As Integer, lc As Integer

N = val(GetVar(DatPath & "EscudosHerrero.dat", "INIT", "NumEscudos"))

ReDim Preserve EscudosHerrero(1 To N) As Integer

For lc = 1 To N
EscudosHerrero(lc) = val(GetVar(DatPath & "EscudosHerrero.dat", "Escudo" & lc, "Index"))
Next lc

End Sub
Sub LoadCascosHerreria()

Dim N As Integer, lc As Integer

N = val(GetVar(DatPath & "CascosHerrero.dat", "INIT", "NumCascos"))
ReDim Preserve CascosHerrero(1 To N) As Integer

For lc = 1 To N
CascosHerrero(lc) = val(GetVar(DatPath & "CascosHerrero.dat", "Casco" & lc, "Index"))
Next lc

End Sub
-------------------------------------------------------------------------------------
en general bucamos:
frmCargando.Label1(2).Caption = "Cargando Hechizos"

--------------------------------------------------------------------------------------
y en general agregue:
Call CargarHechizos
Call LoadArmasHerreria
Call LoadArmadurasHerreria
Call LoadArmadurasHerreria
Call LoadCascosHerreria
Call LoadEscudosHerreria
Call LoadObjCarpintero
frmCargando.Label1(2).Caption = "Cargando Hechizos"

-------------------------------------------------------------------------------------

en declaraciones bucamos:

'*****************ARRAYS PUBLICOS*************************
Public UserList() As User 'USUARIOS
Public Npclist() As npc 'NPCS
Public MapData() As MapBlock
Public MapInfo() As MapInfo
Public Hechizos() As tHechizo
Public CharList() As Integer
Public ObjData() As ObjData
Public FX() As FXdata
Public SpawnList() As tCriaturasEntrenador
Public LevelSkill(1 To 50) As LevelSkill
Public ForbidenNames() As String
Public ArmasHerrero() As Integer
Public ArmadurasHerrero() As Integer
Public ObjCarpintero() As Integer
Public MD5s() As String
Public BanIps As New Collection
Public Parties() As clsParty
'*********************************************************
-------------------------------------------------------------------------------------
agregue:

Public EscudosHerrero() As Integer
Public CascosHerrero() As Integer
-------------------------------------------------------------------------------------
y por ultimo que hise fue buscar:
Case Herreria
Call LookatTile(UserIndex, UserList(UserIndex).POS.Map, POS.X, POS.Y)

If UserList(UserIndex).flags.TargetObj Then
If ObjData(UserList(UserIndex).flags.TargetObj).ObjType = OBJTYPE_YUNQUE Then
Call EnviarArmasConstruibles(UserIndex)
Call EnviarArmadurasConstruibles(UserIndex)
Call EnviarEscudosConstruibles(UserIndex)
Call EnviarCascosConstruibles(UserIndex)
--------------------------------------------------------------------------------------
y ak abajo nomas agregar
por ultimo lo que fue.....
Call SendData(ToIndex, UserIndex, 0, "SFH")
luego agregue en el dat: un archivo dat llamado EscudosHerrero y otro CascosHerrero..
con un contenido ejemplo asi ..
[INIT]
NumCascos=1

[Casco1] ' Casco de hierro completo
Index=558

espero que alguien me pueda ayudar por lo que hise en el cliente anda cuando clikeo la armadura y espada pero con el casco y escudo que tome un nuevo un textbox de esos 2 espesificando un poco mas clikeando cada imagen aparece en el texto todas las armaduras escudo armas cascos para crear..
al terminar de leer este post mis espero valoren mis agredesimiento..
 
A

Anonymous

Invitado
puse todo el codigo y anduvo re bien faltaria que lea el dat del escudo y casco , va para adelante
 
A

Anonymous

Invitado
si la idea es poder crear todo en diferentes casilleros.. pero esta jodido el tema del escudo y casco
 
Estado
Cerrado para nuevas respuestas.
Arriba