home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / maped.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-12-24  |  8.4 KB  |  293 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "TerrainEditor"
  4.    ClientHeight    =   6495
  5.    ClientLeft      =   3135
  6.    ClientTop       =   1650
  7.    ClientWidth     =   9375
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   433
  10.    ScaleMode       =   3  'Pixel
  11.    ScaleWidth      =   625
  12.    Begin VB.ListBox List1 
  13.       Height          =   840
  14.       Left            =   6600
  15.       TabIndex        =   22
  16.       Top             =   3600
  17.       Width           =   1935
  18.    End
  19.    Begin VB.CommandButton Command3 
  20.       Caption         =   "Refresh"
  21.       Height          =   255
  22.       Left            =   6600
  23.       TabIndex        =   21
  24.       Top             =   3240
  25.       Width           =   855
  26.    End
  27.    Begin VB.CommandButton Command2 
  28.       Caption         =   "Open"
  29.       Height          =   255
  30.       Left            =   4920
  31.       TabIndex        =   20
  32.       Top             =   5040
  33.       Width           =   1095
  34.    End
  35.    Begin VB.TextBox Text4 
  36.       Height          =   285
  37.       Left            =   3480
  38.       TabIndex        =   18
  39.       Text            =   "1"
  40.       Top             =   5400
  41.       Width           =   1335
  42.    End
  43.    Begin VB.TextBox Text3 
  44.       Height          =   285
  45.       Left            =   3480
  46.       TabIndex        =   16
  47.       Text            =   "1"
  48.       Top             =   5040
  49.       Width           =   1335
  50.    End
  51.    Begin VB.CommandButton Command1 
  52.       Caption         =   "Save"
  53.       Height          =   255
  54.       Left            =   4920
  55.       TabIndex        =   15
  56.       Top             =   5400
  57.       Width           =   1095
  58.    End
  59.    Begin VB.Frame Frame2 
  60.       Caption         =   "Frame2"
  61.       Height          =   1695
  62.       Left            =   6600
  63.       TabIndex        =   10
  64.       Top             =   1440
  65.       Width           =   1935
  66.       Begin VB.OptionButton Option2 
  67.          Caption         =   "Level"
  68.          Height          =   255
  69.          Index           =   2
  70.          Left            =   120
  71.          TabIndex        =   13
  72.          Top             =   720
  73.          Width           =   1695
  74.       End
  75.       Begin VB.OptionButton Option2 
  76.          Caption         =   "Shrink"
  77.          Height          =   255
  78.          Index           =   1
  79.          Left            =   120
  80.          TabIndex        =   12
  81.          Top             =   480
  82.          Width           =   1695
  83.       End
  84.       Begin VB.OptionButton Option2 
  85.          Caption         =   "Grow"
  86.          Height          =   255
  87.          Index           =   0
  88.          Left            =   120
  89.          TabIndex        =   11
  90.          Top             =   240
  91.          Width           =   1695
  92.       End
  93.    End
  94.    Begin VB.Frame Frame1 
  95.       Caption         =   "Frame1"
  96.       Height          =   1215
  97.       Left            =   6600
  98.       TabIndex        =   7
  99.       Top             =   120
  100.       Width           =   1935
  101.       Begin VB.OptionButton Option1 
  102.          Caption         =   "Gold"
  103.          Height          =   255
  104.          Index           =   2
  105.          Left            =   120
  106.          TabIndex        =   14
  107.          Top             =   720
  108.          Width           =   1695
  109.       End
  110.       Begin VB.OptionButton Option1 
  111.          Caption         =   "Water"
  112.          Height          =   255
  113.          Index           =   1
  114.          Left            =   120
  115.          TabIndex        =   9
  116.          Top             =   480
  117.          Width           =   1695
  118.       End
  119.       Begin VB.OptionButton Option1 
  120.          Caption         =   "Grass"
  121.          Height          =   255
  122.          Index           =   0
  123.          Left            =   120
  124.          TabIndex        =   8
  125.          Top             =   240
  126.          Width           =   1695
  127.       End
  128.    End
  129.    Begin VB.VScrollBar VScroll1 
  130.       Height          =   4455
  131.       LargeChange     =   8
  132.       Left            =   6240
  133.       Min             =   2
  134.       SmallChange     =   2
  135.       TabIndex        =   6
  136.       Top             =   120
  137.       Value           =   2
  138.       Width           =   255
  139.    End
  140.    Begin VB.HScrollBar HScroll1 
  141.       Height          =   255
  142.       LargeChange     =   8
  143.       Left            =   120
  144.       Min             =   2
  145.       SmallChange     =   2
  146.       TabIndex        =   5
  147.       Top             =   4680
  148.       Value           =   2
  149.       Width           =   5895
  150.    End
  151.    Begin VB.TextBox Text2 
  152.       Height          =   285
  153.       Left            =   1080
  154.       TabIndex        =   3
  155.       Text            =   "50"
  156.       Top             =   5400
  157.       Width           =   1335
  158.    End
  159.    Begin VB.TextBox Text1 
  160.       Height          =   285
  161.       Left            =   1080
  162.       TabIndex        =   1
  163.       Text            =   "50"
  164.       Top             =   5040
  165.       Width           =   1335
  166.    End
  167.    Begin VB.PictureBox Picture1 
  168.       BackColor       =   &H00000000&
  169.       Height          =   4500
  170.       Left            =   120
  171.       ScaleHeight     =   296
  172.       ScaleMode       =   3  'Pixel
  173.       ScaleWidth      =   396
  174.       TabIndex        =   0
  175.       Top             =   120
  176.       Width           =   6000
  177.    End
  178.    Begin VB.Label Label4 
  179.       Caption         =   "Level"
  180.       Height          =   255
  181.       Left            =   2760
  182.       TabIndex        =   19
  183.       Top             =   5400
  184.       Width           =   615
  185.    End
  186.    Begin VB.Label Label3 
  187.       Caption         =   "Episode"
  188.       Height          =   255
  189.       Left            =   2760
  190.       TabIndex        =   17
  191.       Top             =   5040
  192.       Width           =   615
  193.    End
  194.    Begin VB.Label Label2 
  195.       Caption         =   "Map Height"
  196.       Height          =   255
  197.       Left            =   120
  198.       TabIndex        =   4
  199.       Top             =   5400
  200.       Width           =   975
  201.    End
  202.    Begin VB.Label Label1 
  203.       Caption         =   "Map Width"
  204.       Height          =   255
  205.       Left            =   120
  206.       TabIndex        =   2
  207.       Top             =   5040
  208.       Width           =   975
  209.    End
  210. Attribute VB_Name = "Form1"
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = False
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. Private Sub Command1_Click()
  216. Call SaveMap(Val(Text3.Text), Val(Text4.Text))
  217. End Sub
  218. Private Sub Command2_Click()
  219. Call LoadMap(Val(Text3.Text), Val(Text4.Text))
  220. Call RenderView
  221. End Sub
  222. Private Sub Command3_Click()
  223. Call RenderView
  224. End Sub
  225. Private Sub Form_Load()
  226. Open "Original.Ion" For Input As #1
  227.   Line Input #1, a$
  228.   If a$ = "[OBJECTDEFSTART]" Then
  229.     Line Input #1, a$
  230.     Line Input #1, a$
  231.     List1.AddItem MapEdit.GetPropertyValue(a$)
  232.   End If
  233.   If a$ = "[ENDOFFILE]" Then Exit Do
  234. Close #1
  235. ViewX = 1
  236. ViewY = 1
  237. MaxX = Val(Text1.Text)
  238. MaxY = Val(Text2.Text)
  239. HScroll1.Max = (MaxX - ViewWidth) * 4
  240. VScroll1.Max = (MaxY - ViewHeight) * 4
  241. Form1.Show
  242. DoEvents
  243. For X = 1 To 100 'ViewX To ViewX + ViewWidth
  244.   For Y = 1 To 100 'ViewY To ViewY + ViewHeight
  245.     GroundBlocks(X, Y).TerrainType = 0
  246.     Call ChangeHeight(X, Y, Int(4 * Rnd))
  247.   Next Y
  248. Next X
  249. Call MapEdit.RenderView
  250. Picture1.Height = ViewHeight * HalfBlockSize
  251. Picture1.Width = ViewWidth * BlockSize
  252. End Sub
  253. Private Sub HScroll1_Change()
  254. ViewX = HScroll1.Value / DivVal1
  255. Call MapEdit.RenderView
  256. End Sub
  257. Private Sub List1_Click()
  258. If List1.ListIndex <> -1 Then DropItem = True
  259. End Sub
  260. Private Sub Option1_Click(Index As Integer)
  261. CurrTerrain = Index
  262. End Sub
  263. Private Sub Option2_Click(Index As Integer)
  264. TerrMoveMethod = Index
  265. End Sub
  266. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  267. If Button = 2 Then Call DropGroundType(X, Y)
  268. If Button = 1 Then
  269.   If DropItem = True Then
  270.     Call GenItem(List1.List(List1.ListIndex), X, Y)
  271.     List1.ListIndex = -1
  272.     DropItem = False
  273.   Else
  274.     Call Terrainmove(X, Y, TerrMoveMethod)
  275.   End If
  276. End If
  277. End Sub
  278. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  279. If Button = 2 Then Call DropGroundType(X, Y)
  280. End Sub
  281. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  282. MaxX = Val(Text1.Text)
  283. HScroll1.Max = (MaxX - ViewWidth) * 4
  284. End Sub
  285. Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  286. MaxY = Val(Text2.Text)
  287. VScroll1.Max = (MaxY - ViewHeight) * 4
  288. End Sub
  289. Private Sub VScroll1_Change()
  290. ViewY = VScroll1.Value / DivVal1
  291. Call MapEdit.RenderView
  292. End Sub
  293.