Item Teleporte

por Eduardo Sex 01 Jun 2012, 17:16

Server Side e Client Abaixo

Procure Por :

Abaixo adicione isso

Procure no itemRec por:

Abaixo Colque

Agora Vamos Ao Server Procure Por

abaixo depois de

Código:: ' send the sound SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seItem, itemnum

abaixo coloque

Código:: Case ITEM_TYPE_TELEPORTE SendAnimation MapNum, Item(itemnum).ItemAnim, 0, 0, TARGET_TYPE_PLAYER, Index SetPlayerDir Index, Item(itemnum).Dir PlayerWarp Index, Item(itemnum).Map, Item(itemnum).x, Item(itemnum).y SendAnimation GetPlayerMap(Index), Item(itemnum).ItemAnim, 0, 0, TARGET_TYPE_PLAYER, Index Call TakeInvItem(Index, Player(Index).Inv(invNum).Num, 0)

Server Pronto

Client Side

FrmEditorIntem crie um Frame com as seguintes configuraçoes :

Depois no cmbType
adiona na list

Clique no cmbType e adicione isso

Código:: If (cmbType.ListIndex = ITEM_TYPE_TELEPORTE) Then fraTeleporte.Visible = True Else fraTeleporte.Visible = False End If

dentro da frame adicione 4 scrolls e 4 labels

Scroll1: scrlMap
dentro coloque

Código:: ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblMap.Caption = "Map: " & scrlMap.Value Spell(EditorIndex).Map = scrlMap.Value ' Error handler Exit Sub errorhandler: HandleError "scrlMap_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub

Scroll2: scrlDir
dentro coloque

Código:: Private Sub scrlDir_Change() Dim sDir As String ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Select Case scrlDir.Value Case DIR_UP sDir = "Up" Case DIR_DOWN sDir = "Down" Case DIR_RIGHT sDir = "Right" Case DIR_LEFT sDir = "Left" End Select lblDir.Caption = "Dir: " & sDir Item(EditorIndex).Dir = scrlDir.Value ' Error handler Exit Sub errorhandler: HandleError "scrlDir_Change", "frmEditor_Item", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Scroll3: scrlX
dentro coloque

Código:: ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblX.Caption = "X: " & scrlX.Value Spell(EditorIndex).x = scrlX.Value ' Error handler Exit Sub errorhandler: HandleError "scrlX_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub

Scroll4: scrlY
dentro coloque

Código:: ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblY.Caption = "Y: " & scrlY.Value Spell(EditorIndex).Y = scrlY.Value ' Error handler Exit Sub errorhandler: HandleError "scrlY_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub

label1:lblMap
Capition: Map: 0

label2:lblDir
Capition:Dir: Down

label3:lblX
Capition: X: 0

label4:lblY
Capition: Y: 0

Procure por:

Abaixo adicione isso

Código:: frmEditor_Item.scrlMap.Value = Spell(EditorIndex).Map frmEditor_Item.scrlX.Value = Spell(EditorIndex).x frmEditor_Item.scrlY.Value = Spell(EditorIndex).y frmEditor_Item.scrlDir.Value = Spell(EditorIndex).Dir

Creditos: EdU Aki