[ALL]txt no Item Editor

por Gu1lh3rm3 Seg 03 maio 2010, 21:09

olha pessoal vim aqui com um tutorial que muitas pessoas gostarim ... vamos parar de falar e vamos logo para o Tutorial...
abra seu Client~Side pelo VB ...
abra seu frmItemEditor e crie uma textBox ...
mude o nome da txtBox que você criou para

Código:: txt.Durability

depois que você nome-ou para txtDurability você pode deletar a scrlDurability, de 2 click na txtDurability e adicione

Código:: lblDurability.Caption = STR(txtDurability.Text) If STR(txtDurability.Text) = 0 Then lblDurability.Caption = "Ind." End If

feito isso abra seu modGameLogic e proucure por

Código:: If Item(EditorIndex).Data1 >= 0 Then frmItemEditor.scrlDurability.Value = Item(EditorIndex).Data1 Else frmItemEditor.scrlDurability.Value = Item(EditorIndex).Data1 * -1 End If

troque esse codigo por

Código:: If Item(EditorIndex).Data1 >= 0 Then frmItemEditor.txtDurability.Text = Item(EditorIndex).Data1 Else frmItemEditor.txtDurability.Text = Item(EditorIndex).Data1 * -1 End If

continuando na modGameLogic proucure por

Código:: If (frmItemEditor.cmbType.ListIndex >= ITEM_TYPE_WEAPON) And (frmItemEditor.cmbType.ListIndex <= ITEM_TYPE_SHIELD) Then

na linha a baixo avera um codigo assim

Código:: Item(EditorIndex).Data1 = frmItemEditor.scrlDurability.Value

mude ele para

Código:: Item(EditorIndex).Data1 = frmItemEditor.txtDurability.Text

certo , depois abra o codigo da frmitemEditor e proucure por

Código:: Private Sub scrlDurability_Change() lblDurability.Caption = STR(scrlDurability.Value) If STR(scrlDurability.Value) = 0 Then lblDurability.Caption = "Ind." End If End Sub

delete esse codigo e esta feito o Tuto ^^

lenbrando que é basico ... é so para o scrlDurability

Creditos:GU1LH3RM3^^