VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form TeleporterEditor 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Teleporter Editor"
   ClientHeight    =   3705
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5520
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3705
   ScaleWidth      =   5520
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox GSrcY 
      Height          =   285
      Left            =   4560
      TabIndex        =   16
      Top             =   2760
      Width           =   855
   End
   Begin VB.TextBox GSrcX 
      Height          =   285
      Left            =   4560
      TabIndex        =   14
      Top             =   2400
      Width           =   855
   End
   Begin VB.TextBox GHeight 
      Height          =   285
      Left            =   4560
      TabIndex        =   12
      Top             =   2040
      Width           =   855
   End
   Begin VB.TextBox GWidth 
      Height          =   285
      Left            =   4560
      TabIndex        =   10
      Top             =   1680
      Width           =   855
   End
   Begin VB.TextBox GGraphicNum 
      Height          =   285
      Left            =   4560
      TabIndex        =   8
      Top             =   1320
      Width           =   855
   End
   Begin VB.TextBox GTransparentPixel 
      Height          =   285
      Left            =   4560
      TabIndex        =   6
      Top             =   960
      Width           =   855
   End
   Begin VB.TextBox GGraphicRand 
      Height          =   285
      Left            =   4560
      TabIndex        =   4
      Top             =   600
      Width           =   855
   End
   Begin VB.TextBox GGraphicAddress 
      Height          =   285
      Left            =   4560
      TabIndex        =   2
      Top             =   240
      Width           =   855
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "srcy:"
      Height          =   255
      Index           =   7
      Left            =   2760
      TabIndex        =   17
      Top             =   2760
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "srcx:"
      Height          =   255
      Index           =   6
      Left            =   2760
      TabIndex        =   15
      Top             =   2400
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "height:"
      Height          =   255
      Index           =   5
      Left            =   2760
      TabIndex        =   13
      Top             =   2040
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "width:"
      Height          =   255
      Index           =   4
      Left            =   2760
      TabIndex        =   11
      Top             =   1680
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "graphic num:"
      Height          =   255
      Index           =   3
      Left            =   2760
      TabIndex        =   9
      Top             =   1320
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "transparent pixel:"
      Height          =   255
      Index           =   1
      Left            =   2760
      TabIndex        =   7
      Top             =   960
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "graphic rand:"
      Height          =   255
      Index           =   0
      Left            =   2760
      TabIndex        =   5
      Top             =   600
      Width           =   1695
   End
   Begin VB.Label ST 
      Alignment       =   1  'Right Justify
      Caption         =   "graphic address:"
      Height          =   255
      Index           =   2
      Left            =   2760
      TabIndex        =   3
      Top             =   240
      Width           =   1695
   End
   Begin MSForms.ListBox CGLocationList 
      Height          =   3015
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   2280
      ScrollBars      =   3
      DisplayStyle    =   2
      Size            =   "4022;5318"
      ColumnCount     =   2
      cColumnInfo     =   1
      MatchEntry      =   0
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
      Object.Width           =   "987"
   End
   Begin MSForms.CommandButton Cancel 
      Cancel          =   -1  'True
      Height          =   375
      Left            =   4080
      TabIndex        =   0
      Top             =   3240
      Width           =   1335
      Caption         =   "Cancel"
      Size            =   "2355;661"
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
      ParagraphAlign  =   3
   End
End
Attribute VB_Name = "TeleporterEditor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Function init()
    Dim i As Integer
    
    CGLocationList.Clear
    CGLocationList.AddItem
    CGLocationList.List(0, 0) = "00"
    CGLocationList.List(0, 1) = "D3 Center"
    CGLocationList.AddItem
    CGLocationList.List(1, 0) = "01"
    CGLocationList.List(1, 1) = "D3 Left"
    CGLocationList.AddItem
    CGLocationList.List(2, 0) = "02"
    CGLocationList.List(2, 1) = "D3 Right"
    CGLocationList.AddItem
    CGLocationList.List(3, 0) = "03"
    CGLocationList.List(3, 1) = "D2 Center"
    CGLocationList.AddItem
    CGLocationList.List(4, 0) = "04"
    CGLocationList.List(4, 1) = "D2 Left"
    CGLocationList.AddItem
    CGLocationList.List(5, 0) = "05"
    CGLocationList.List(5, 1) = "D2 Right"
    CGLocationList.AddItem
    CGLocationList.List(6, 0) = "06"
    CGLocationList.List(6, 1) = "D1 Center"
    CGLocationList.AddItem
    CGLocationList.List(7, 0) = "07"
    CGLocationList.List(7, 1) = "D1 Left"
    CGLocationList.AddItem
    CGLocationList.List(8, 0) = "08"
    CGLocationList.List(8, 1) = "D1 Right"
    CGLocationList.AddItem
    CGLocationList.List(9, 0) = "09"
    CGLocationList.List(9, 1) = "D0 Center"
    
    CGLocationList.ListIndex = 0
End Function

Private Sub Cancel_Click()
    unload Me
End Sub

Private Sub CGLocationList_Click()
    Me.GGraphicAddress.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).graphicaddress)
    Me.GGraphicNum.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).GraphicNum)
    Me.GGraphicRand.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).graphicrand)
    Me.GHeight.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).height)
    Me.GSrcX.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).srcx)
    Me.GSrcY.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).srcy)
    Me.GTransparentPixel.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).TransparentPixel)
    Me.GWidth.Text = Str(graphics.f558.animationinfo(CGLocationList.ListIndex + 1).width)
End Sub


Private Sub Ok_Click()
    unload Me
End Sub
