SimCity

by Andr¨ (1 Submission)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 18^th April 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)
SimCity
API Declarations
Dim Hours As Integer Dim Seconds As Integer Dim Time As Date
Rate SimCity


City = InputBox("Defina o Nome da Cidade.", "SimCity")
Label1.Caption = City
If Label1.Caption = "LAZARUS" Then
Quan = InputBox("Defina Econômia!!!", "SimCity")
labellazarus = Quan
Labelesp.Caption = labellazarus.Caption
Form1.Caption = "SimCity" & "  -  " & "$" & Labelesp.Caption
End If
If Label1.Caption = "CORINTHIANS" Then
piccorinthians.Visible = True
piccorinthians.Enabled = True
End If
If Label1.Caption = "DEMO" Then
Labelesp.Caption = "16464"
Form1.Caption = "SimCity" & "  -  " & "$" & Labelesp.Caption
Picture1(0).Picture = picpark2.Picture
Picture1(1).Picture = picpark2.Picture
Picture1(17).Picture = picpark2.Picture
Picture1(22).Picture = picpark2.Picture
Picture1(3).Picture = picresg2.Picture
End If
If Label1.Caption = "SUPER" Then
Timer4.Interval = 10
Timer5.Interval = 10
Timer2.Interval = 10
Timer1.Interval = 10
End If
End Sub
Private Sub picaco_Click()
picaco.BorderStyle = 1 - Fixed
End Sub
Private Sub picclub_Click()
picclub.BorderStyle = 1 - Fixed
End Sub
Private Sub piccorinthians_Click()
MsgBox "CORINTHIANS", vbInformation, "CORINTHIANS"
End Sub
Private Sub picesc_Click()
picesc.BorderStyle = 1 - Fixed
End Sub
Private Sub picindp1_Click()
picindp1.BorderStyle = 1 - Fixed
End Sub
Private Sub pichid1_Click(Index As Integer)
If picpark1.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picpark1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 5
Labelesp.Caption = Labelesp.Caption - 5
End If
If picpark2.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picpark2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 3
Labelesp.Caption = Labelesp.Caption - 3
End If
If picesc.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picesc.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 200
Labelesp.Caption = Labelesp.Caption - 200
End If
If picres.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picres.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picclub.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picclub.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 120
Labelesp.Caption = Labelesp.Caption - 120
End If
If picpad.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picpad.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 60
Labelesp.Caption = Labelesp.Caption - 60
End If
If picindp1.BorderStyle = 1 - Fixed Then
Timer5.Enabled = True
pichid1(Index).Picture = picindp1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1000
Labelesp.Caption = Labelesp.Caption - 1000
End If
If picaco.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picaco.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 80
Labelesp.Caption = Labelesp.Caption - 80
End If
If picsaf1.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picsaf1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picsaf2.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picsaf2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 750
Labelesp.Caption = Labelesp.Caption - 750
End If
If picindg1.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picindg1.Picture
Timer2.Enabled = True
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1350
Labelesp.Caption = Labelesp.Caption - 1350
End If
If picindg3.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picindg3.Picture
Timer1.Enabled = True
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 2000
Labelesp.Caption = Labelesp.Caption - 2000
End If
If picindg2.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picindg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1500
Labelesp.Caption = Labelesp.Caption - 1500
End If
If picresg1.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picresg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picresg2.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picresg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 700
Labelesp.Caption = Labelesp.Caption - 700
End If
If picresg3.BorderStyle = 1 - Fixed Then
lblpop2.Caption = lblpop2.Caption + 1500
pichid1(Index).Picture = picresg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 600
Labelesp.Caption = Labelesp.Caption - 600
End If
If picresg4.BorderStyle = 1 - Fixed Then
lblpop2.Caption = lblpop2.Caption + 800
pichid1(Index).Picture = picresg4.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 400
Labelesp.Caption = Labelesp.Caption - 400
End If
If picomg1.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picomg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1400
Labelesp.Caption = Labelesp.Caption - 1400
End If
If picomg2.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picomg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1500
Labelesp.Caption = Labelesp.Caption - 1500
End If
If picomg3.BorderStyle = 1 - Fixed Then
pichid1(Index).Picture = picomg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 380
Labelesp.Caption = Labelesp.Caption - 380
End If
End Sub
Private Sub picmin1_Click(Index As Integer)
If picpark1.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picpark1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 5
Labelesp.Caption = Labelesp.Caption - 5
End If
If picpark2.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picpark2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 3
Labelesp.Caption = Labelesp.Caption - 3
End If
If picesc.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picesc.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 200
Labelesp.Caption = Labelesp.Caption - 200
End If
If picres.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picres.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picclub.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picclub.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 120
Labelesp.Caption = Labelesp.Caption - 120
End If
If picpad.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picpad.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 60
Labelesp.Caption = Labelesp.Caption - 60
End If
If picindp1.BorderStyle = 1 - Fixed Then
Timer5.Enabled = True
picmin1(Index).Picture = picindp1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1000
Labelesp.Caption = Labelesp.Caption - 1000
End If
If picaco.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picaco.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 80
Labelesp.Caption = Labelesp.Caption - 80
End If
If picsaf1.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picsaf1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picsaf2.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picsaf2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 750
Labelesp.Caption = Labelesp.Caption - 750
End If
If picindg1.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picindg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1350
Labelesp.Caption = Labelesp.Caption - 1350
End If
If picindg3.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picindg3.Picture
Timer1.Enabled = True
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 2000
Labelesp.Caption = Labelesp.Caption - 2000
End If
If picindg2.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picindg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1500
Labelesp.Caption = Labelesp.Caption - 1500
End If
If picresg1.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picresg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picresg2.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picresg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 700
Labelesp.Caption = Labelesp.Caption - 700
End If
If picresg3.BorderStyle = 1 - Fixed Then
lblpop2.Caption = lblpop2.Caption + 1500
picmin1(Index).Picture = picresg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 600
Labelesp.Caption = Labelesp.Caption - 600
End If
If picresg4.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picresg4.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 400
Labelesp.Caption = Labelesp.Caption - 400
lblpop2.Caption = lblpop2.Caption + 800
End If
If picomg1.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picomg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1400
Labelesp.Caption = Labelesp.Caption - 1400
End If
If picomg2.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picomg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1500
Labelesp.Caption = Labelesp.Caption - 1500
End If
If picomg3.BorderStyle = 1 - Fixed Then
picmin1(Index).Picture = picomg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 380
Labelesp.Caption = Labelesp.Caption - 380
End If
End Sub
Private Sub picpad_Click()
picpad.BorderStyle = 1 - Fixed
End Sub
Private Sub picpark2_Click()
picpark2.BorderStyle = 1 - Fixed
End Sub
Private Sub picpark1_Click()
picpark1.BorderStyle = 1 - Fixed
End Sub
Private Sub picres_Click()
picres.BorderStyle = 1 - Fixed
End Sub
Private Sub picresg1_Click()
picresg1.BorderStyle = 1 - Fixed
End Sub
Private Sub picresg2_Click()
picresg2.BorderStyle = 1 - Fixed
End Sub
Private Sub picresg3_Click()
picresg3.BorderStyle = 1 - Fixed
End Sub
Private Sub picresg4_Click()
picresg4.BorderStyle = 1 - Fixed
End Sub
Private Sub picomg1_Click()
picomg1.BorderStyle = 1 - Fixed
End Sub
Private Sub picomg2_Click()
picomg2.BorderStyle = 1 - Fixed
End Sub
Private Sub picomg3_Click()
picomg3.BorderStyle = 1 - Fixed
End Sub
Private Sub picindg1_Click()
picindg1.BorderStyle = 1 - Fixed
End Sub
Private Sub picindg2_Click()
picindg2.BorderStyle = 1 - Fixed
End Sub
Private Sub picindg3_Click()
picindg3.BorderStyle = 1 - Fixed
End Sub
Private Sub picsaf2_Click()
picsaf2.BorderStyle = 1 - Fixed
End Sub
Private Sub picsaf1_Click()
picsaf1.BorderStyle = 1 - Fixed
End Sub
Private Sub Picture1_Click(Index As Integer)
If picpark1.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picpark1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 5
Labelesp.Caption = Labelesp.Caption - 5
End If
If picpark2.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picpark2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 3
Labelesp.Caption = Labelesp.Caption - 3
End If
If picesc.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picesc.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 200
Labelesp.Caption = Labelesp.Caption - 200
End If
If picres.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picres.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picclub.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picclub.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 120
Labelesp.Caption = Labelesp.Caption - 120
End If
If picpad.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picpad.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 60
Labelesp.Caption = Labelesp.Caption - 60
End If
If picindp1.BorderStyle = 1 - Fixed Then
Timer5.Enabled = True
Picture1(Index).Picture = picindp1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1000
Labelesp.Caption = Labelesp.Caption - 1000
End If
If picaco.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picaco.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 80
Labelesp.Caption = Labelesp.Caption - 80
End If
If picsaf2.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picsaf2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 750
Labelesp.Caption = Labelesp.Caption - 750
End If
If picsaf1.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picsaf1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picindg1.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picindg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1350
Labelesp.Caption = Labelesp.Caption - 1350
End If
If picindg3.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picindg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 2000
Labelesp.Caption = Labelesp.Caption - 2000
End If
If picresg1.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picresg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 800
Labelesp.Caption = Labelesp.Caption - 800
End If
If picresg2.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picresg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 700
Labelesp.Caption = Labelesp.Caption - 700
End If
If picresg3.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picresg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 600
Labelesp.Caption = Labelesp.Caption - 600
lblpop2.Caption = lblpop2.Caption + 1500
End If
If picresg4.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picresg4.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 400
Labelesp.Caption = Labelesp.Caption - 400
lblpop2.Caption = lblpop2.Caption + 800
End If
If picomg1.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picomg1.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1400
Labelesp.Caption = Labelesp.Caption - 1400
End If
If picomg2.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picomg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1500
Labelesp.Caption = Labelesp.Caption - 1500
End If
If picomg3.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picomg3.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 380
Labelesp.Caption = Labelesp.Caption - 380
End If
If picindg2.BorderStyle = 1 - Fixed Then
Picture1(Index).Picture = picindg2.Picture
BTT
Form1.Caption = "SimCity" & "  -  $" & Labelesp.Caption - 1500
Labelesp.Caption = Labelesp.Caption - 1500
Timer4.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Time = DateAdd("s", 1, Time)
Labeltempo.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
If Labeltempo.Caption = "00:00:12" Then
Labelesp.Caption = Labelesp.Caption + 230
End If
If Labeltempo.Caption = "00:00:19" Then
Labelesp.Caption = Labelesp.Caption + 620
End If
If Labeltempo.Caption = "00:00:25" Then
Labelesp.Caption = Labelesp.Caption + 150
End If
If Labeltempo.Caption = "00:00:32" Then
Labelesp.Caption = Labelesp.Caption + 500
End If
If Labeltempo.Caption = "00:00:36" Then
Labelesp.Caption = Labelesp.Caption + 420
End If
If Labeltempo.Caption = "00:00:41" Then
Labelesp.Caption = Labelesp.Caption + 285
End If
If Labeltempo.Caption = "00:00:49" Then
Labelesp.Caption = Labelesp.Caption + 396
End If
If Labeltempo.Caption = "00:00:55" Then
Labelesp.Caption = Labelesp.Caption + 101
End If
If Labeltempo.Caption = "00:01:00" Then
Labelesp.Caption = Labelesp.Caption + 560
End If
If Labeltempo.Caption = "00:01:06" Then
Labelesp.Caption = Labelesp.Caption + 410
End If
If Labeltempo.Caption = "00:01:12" Then
Labelesp.Caption = Labelesp.Caption + 660
End If
If Labeltempo.Caption = "00:01:18" Then
Labelesp.Caption = Labelesp.Caption + 330
End If
If Labeltempo.Caption = "00:01:23" Then
Labelesp.Caption = Labelesp.Caption + 711
End If
If Labeltempo.Caption = "00:01:28" Then
Labelesp.Caption = Labelesp.Caption + 408
End If
If Labeltempo.Caption = "00:01:36" Then
Labelesp.Caption = Labelesp.Caption + 368
End If
If Labeltempo.Caption = "00:01:45" Then
Labelesp.Caption = Labelesp.Caption + 321
End If
If Labeltempo.Caption = "00:01:48" Then
Labelesp.Caption = Labelesp.Caption + 614
End If
If Labeltempo.Caption = "00:01:53" Then
Labelesp.Caption = Labelesp.Caption + 619
End If
If Labeltempo.Caption = "00:01:58" Then
Labelesp.Caption = Labelesp.Caption + 626
End If
If Labeltempo.Caption = "00:02:05" Then
Labelesp.Caption = Labelesp.Caption + 306
End If
If Labeltempo.Caption = "00:02:08" Then
Labelesp.Caption = Labelesp.Caption + 466
End If
If Labeltempo.Caption = "00:02:14" Then
Labelesp.Caption = Labelesp.Caption + 644
End If
If Labeltempo.Caption = "00:02:19" Then
Labelesp.Caption = Labelesp.Caption + 913
End If
If Labeltempo.Caption = "00:02:21" Then
Labelesp.Caption = Labelesp.Caption + 421
End If
If Labeltempo.Caption = "00:02:24" Then
Labelesp.Caption = Labelesp.Caption + 412
End If
If Labeltempo.Caption = "00:02:32" Then
Labelesp.Caption = Labelesp.Caption + 484
End If
If Labeltempo.Caption = "00:02:41" Then
Labelesp.Caption = Labelesp.Caption + 424
End If
If Labeltempo.Caption = "00:02:44" Then
Labelesp.Caption = Labelesp.Caption + 592
End If
If Labeltempo.Caption = "00:02:55" Then
Labelesp.Caption = Labelesp.Caption + 556
End If
If Labeltempo.Caption = "00:03:01" Then
Labelesp.Caption = Labelesp.Caption + 310
End If
If Labeltempo.Caption = "00:03:09" Then
Labelesp.Caption = Labelesp.Caption + 450
End If
If Labeltempo.Caption = "00:04:12" Then
Labelesp.Caption = Labelesp.Caption + 360
End If
If Labeltempo.Caption = "00:04:20" Then
Labelesp.Caption = Labelesp.Caption + 106
End If
If Labeltempo.Caption = "00:04:23" Then
Labelesp.Caption = Labelesp.Caption + 229
End If
If Labeltempo.Caption = "00:04:31" Then
Labelesp.Caption = Labelesp.Caption + 624
End If
If Labeltempo.Caption = "00:04:34" Then
Labelesp.Caption = Labelesp.Caption + 650
End If
If Labeltempo.Caption = "00:04:41" Then
Labelesp.Caption = Labelesp.Caption + 614
End If
If Labeltempo.Caption = "00:04:45" Then
Labelesp.Caption = Labelesp.Caption + 184
End If
If Labeltempo.Caption = "00:04:52" Then
Labelesp.Caption = Labelesp.Caption + 250
End If
If Labeltempo.Caption = "00:04:58" Then
Labelesp.Caption = Labelesp.Caption + 166
End If
If Labeltempo.Caption = "00:05:00" Then
Labelesp.Caption = Labelesp.Caption + 102
End If
If Labeltempo.Caption = "00:05:10" Then
Labelesp.Caption = Labelesp.Caption + 102
End If
If Labeltempo.Caption = "00:05:12" Then
Labelesp.Caption = Labelesp.Caption + 515
End If
If Labeltempo.Caption = "00:05:17" Then
Labelesp.Caption = Labelesp.Caption + 571
End If
If Labeltempo.Caption = "00:05:23" Then
Labelesp.Caption = Labelesp.Caption + 533
End If
If Labeltempo.Caption = "00:05:34" Then
Labelesp.Caption = Labelesp.Caption + 178
End If
If Labeltempo.Caption = "00:05:40" Then
Labelesp.Caption = Labelesp.Caption + 545
End If
If Labeltempo.Caption = "00:05:43" Then
Labelesp.Caption = Labelesp.Caption + 841
End If
If Labeltempo.Caption = "00:05:55" Then
Labelesp.Caption = Labelesp.Caption + 199
End If
If Labeltempo.Caption = "00:05:59" Then
Labelesp.Caption = Labelesp.Caption + 141
End If
If Labeltempo.Caption = "00:06:06" Then
Labelesp.Caption = Labelesp.Caption + 537
End If
If Labeltempo.Caption = "00:06:13" Then
Labelesp.Caption = Labelesp.Caption + 658
End If
If Labeltempo.Caption = "00:06:18" Then
Labelesp.Caption = Labelesp.Caption + 481
End If
If Labeltempo.Caption = "00:06:28" Then
Labelesp.Caption = Labelesp.Caption + 480
End If
If Labeltempo.Caption = "00:06:39" Then
Labelesp.Caption = Labelesp.Caption + 105
End If
If Labeltempo.Caption = "00:06:41" Then
Labelesp.Caption = Labelesp.Caption + 149
End If
If Labeltempo.Caption = "00:06:45" Then
Labelesp.Caption = Labelesp.Caption + 565
End If
If Labeltempo.Caption = "00:06:56" Then
Labelesp.Caption = Labelesp.Caption + 375
End If
If Labeltempo.Caption = "00:07:02" Then
Labelesp.Caption = Labelesp.Caption + 320
End If
If Labeltempo.Caption = "00:07:10" Then
Labelesp.Caption = Labelesp.Caption + 371
End If
If Labeltempo.Caption = "00:07:18" Then
Labelesp.Caption = Labelesp.Caption + 310
End If
If Labeltempo.Caption = "00:07:19" Then
MsgBox "Acabou o Minério de Ferro em suas Terras", vbExclamation, "Fim de Estoque"
Shape1.Visible = False
Shape2.Visible = False
End If
Form1.Caption = "SimCity  -  $" & Labelesp.Caption
End Sub
Private Sub Timer2_Timer()
Labelesp.Caption = Labelesp.Caption + 30
Form1.Caption = "SimCity  -  $" & Labelesp.Caption
End Sub
Private Sub Timer3_Timer()
Time = DateAdd("s", 1, Time)
lblanopop.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
If lblanopop.Caption = "00:00:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 531
End If
If lblanopop.Caption = "00:01:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 190
End If
If lblanopop.Caption = "00:01:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 500
End If
If lblanopop.Caption = "00:02:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 260
End If
If lblanopop.Caption = "00:02:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 313
End If
If lblanopop.Caption = "00:03:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 366
End If
If lblanopop.Caption = "00:03:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 314
End If
If lblanopop.Caption = "00:04:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 538
End If
If lblanopop.Caption = "00:04:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 526
End If
If lblanopop.Caption = "00:05:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 110
End If
If lblanopop.Caption = "00:05:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 111
End If
If lblanopop.Caption = "00:06:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 243
End If
If lblanopop.Caption = "00:06:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 345
End If
If lblanopop.Caption = "00:07:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 163
End If
If lblanopop.Caption = "00:07:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 78
End If
If lblanopop.Caption = "00:08:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 1520
End If
If lblanopop.Caption = "00:08:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 225
End If
If lblanopop.Caption = "00:09:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 635
End If
If lblanopop.Caption = "00:09:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 100
End If
If lblanopop.Caption = "00:10:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 345
End If
If lblanopop.Caption = "00:10:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 443
End If
If lblanopop.Caption = "00:11:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 520
If Labelesp.Caption < 0 Then
MsgBox "Você está com a econômia negativa!", vbExclamation, "Fim de Jogo"
End
End If
End If
If lblanopop.Caption = "00:11:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 697
End If
If lblanopop.Caption = "00:12:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 656
End If
If lblanopop.Caption = "00:12:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 497
End If
If lblanopop.Caption = "00:13:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 932
End If
If lblanopop.Caption = "00:13:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 541
End If
If lblanopop.Caption = "00:14:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 400
End If
If lblanopop.Caption = "00:14:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 589
End If
If lblanopop.Caption = "00:15:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 515
End If
If lblanopop.Caption = "00:15:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 513
End If
If lblanopop.Caption = "00:16:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 610
End If
If lblanopop.Caption = "00:16:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 750
End If
If lblanopop.Caption = "00:17:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 500
End If
If lblanopop.Caption = "00:17:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 620
End If
If lblanopop.Caption = "00:18:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 1569
End If
If lblanopop.Caption = "00:18:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 520
End If
If lblanopop.Caption = "00:19:00" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 910
End If
If lblanopop.Caption = "00:19:30" Then
lblano.Caption = lblano.Caption + 1
lblpop2.Caption = lblpop2.Caption + 900
Download this snippet Add to My Saved Code
SimCity Comments

No comments have been posted about SimCity. Why not be the first to post a comment about SimCity.
SimCity

SimCity Comments

Post your comment

Difficulty
