Item Teleporte

Código:

Public Const ITEM_TYPE_SPELL As Byte = 8

Código:

Public Const ITEM_TYPE_TELEPORTE As Byte = 9

Código:

instaCast As Byte

Código:

' Position
    Map As Long
    x As Byte
    y As Byte
    Dir As Byte

Código:

Case ITEM_TYPE_SPELL

Código:

' send the sound
  SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seItem, itemnum

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)


Código:

Nome : frmTeleporte
Visible : False

Código:

Teleporte

Código:

 If (cmbType.ListIndex = ITEM_TYPE_TELEPORTE) Then
        fraTeleporte.Visible = True
    Else        fraTeleporte.Visible = False
    End If

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


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

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


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


Código:

frmEditor_Item.txtDesc.text = Trim$(.Desc)

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

Otimo Tutorial Eduardo Emo +1 Credito Merece Gostei Muito ^^.

Bom Aqui funfo Legal o Sistema esta 100%