-
Notifications
You must be signed in to change notification settings - Fork 3
/
clsShip.cls
1206 lines (1005 loc) · 35.5 KB
/
clsShip.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsShip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Rem *** Ship Class ***
Rem *** Purpose: Create and update ships, ship's weapons and etc.
Enum enumShipType
' z = 2
ST_INTERCEPTOR1 = 0 ' interceptor: SMALL
ST_LRSNEAKY ' missile-crusier: MEDIUM
ST_SEVENTHFOX ' lasergun-crusier: MEDIUM
ST_CARRIER1 ' carrier: BIG
ST_PARTICLEBEAST ' carrier: BIG
' z = 1
ST_LRCLOSETERROR ' missile-cruiser: MEDIUM
' for AI purpose
ST_RANDOM
End Enum
' represents current ship-state
Enum enumShipStates
SS_WARP = 0
SS_MOVE
SS_ATTACKINMOTION
SS_ATTACK
SS_STOP
SS_INTERCEPTBACK
End Enum
Enum enumDirection
SO_RIGHT = 0
SO_LEFT
' additional directions
SO_LEFTUP
SO_LEFTDOWN
SO_RIGHTUP
SO_RIGHTDOWN
End Enum
' interceptor rotation constants
Enum enumRotation
RO_NONE = 0
RO_LEFT
RO_RIGHT
End Enum
' weapon kinds
Enum enumWeapon
SW_LASER = 0
SW_GREENPUS
SW_PARTICLE
SW_MISSILES
SW_GREENLASER
SW_INTERCEPTOR
End Enum
' current ship animation
Enum enumShipAnimtaions
SA_WARP = 0
SA_TURN
SA_MOVE
SA_ATTACK
'SA_STOP
SA_DESTROYED
End Enum
' animation loop type
Enum enumAnimationLoop
AL_NONE = 0
AL_PLAY_REWIND
AL_CYCLE
End Enum
' 'start' and 'end' frames representing an animation
Private Type typeAnimation
Start As Long
End As Long
speed As Long
Loop As enumAnimationLoop
End Type
Private Const ANIMATIONS = 5 - 1
Dim m_x As Single ' x position of ship
Dim m_y As Single ' y position of ship
Dim m_z As Byte ' distance from player
Dim m_fFloat As Single ' floating value
Dim m_xVel As Single ' x velocity
Dim m_yVel As Single ' y velocity
Dim m_MaxVel As Single ' maximum ship velocity
Dim m_Angle As Single ' angle at which ship is currently moving
Dim m_DestAngle As Single ' destination point angle
Dim m_Rotation As enumRotation ' interceptor rotation position
Dim m_cx As Integer ' ship width
Dim m_cy As Integer ' ship height
Dim m_dx As Integer ' x destination
Dim m_dy As Integer ' y destination
Dim m_Type As enumShipType ' ship kind
Dim m_Dir As enumDirection ' What is the direction the Ship Comes from...
Dim m_State As enumShipStates ' ship-state
' animation vars
Dim m_arAnims(ANIMATIONS) As typeAnimation ' animations array
Dim m_CurFrame As Long
Dim m_frInc As Long ' animation frame and frame incrementer
Dim m_frFace As Long ' frame num of face_animation (left/right)
Dim m_ShipAnim As enumShipAnimtaions
Dim m_bUpdateFrame As Boolean ' should animations be updated
' ...
Dim m_Weapon As enumWeapon
Dim m_hitpoints As Byte
Dim m_bytScore As Byte ' score that player will recieve
Dim m_lExperience As Long ' experience to give player
Dim m_Visible As Boolean ' is this ship currently in use
Dim m_myIndex As Byte ' ship array index
' weaponary stuff
'Dim m_bytBeamSize As Byte ' width of weapon beam
Dim m_AttackDelay As Integer ' delay between shots
Dim m_AttackRange As Integer ' maximum attack range
Dim m_Damage As Integer ' ship damage
Dim m_Target As enumEnemyObjective ' Who's gonna get it ? ;)
Dim m_EnemyIndex As Byte ' bunker class index ( if bunker's the target )
' carrier-interceptor vars
Dim m_bytInterceptors As Integer '{!} ' interceptors warped for the carrier ship
Dim m_bytOwner As Byte ' if this's an interceptor class then we should know our OWNER index
Dim m_arChild(MAX_INTERCEPTORS) As Byte ' carrier keeps a list of its' childs indecies
Dim m_lDieTime As Long ' wick of destruction counter
Dim bNoMove As Boolean ' see UpdateMovingAI procedure
Dim bWarped As Boolean
Dim lwgind As Long ' warpgate animation index
' /////////////////////////////////////////////////////////////
' //// Init Ship
' /////////////////////////////////////////////////////////////
Public Sub _
CreateShip(pos_x As Integer, pos_y As Integer, _
ByVal eType As enumShipType) ',
'eWeapon As enumWeapon)
Dim fVar1 As Single, fVar2 As Single
bNoMove = False ' hm...
bWarped = False ' !!!!!
m_x = CSng(pos_x)
m_y = CSng(pos_y)
m_fFloat = 0
m_Type = eType
'm_lAnimSpeed = FPS_ANIMS
Call FillKindInfo(m_Type) ' set additional ship info depedant on it's kind
' m_x = m_x / m_z ' prevent ships in 2nd plane go out of sight_range
' m_y = m_y / m_z
'm_Dir = eDir
'm_Weapon = eWeapon
' damage, attackrange, velocity ... depends on the weapon or ship type
m_MaxVel = arVelocity(m_Type)
m_Damage = arDamages(m_Weapon)
m_AttackRange = arAttackRange(m_Weapon)
m_Visible = True
Call GetTarget(m_dx, m_dy)
Call SetupPhysics
Call FixFace
' do not warp interceptors
If (eType = ST_INTERCEPTOR1) Then
m_State = SS_MOVE
'm_ShipAnim = SA_MOVE
m_CurFrame = m_arAnims(m_ShipAnim).Start
' do not precalc m_x and m_y position for intercaptors because they've
' been called by an inner ship class and coords.'ve are already been calibrated for
' the second_plane
Else
' warp that ship
m_State = SS_WARP
m_ShipAnim = SA_WARP
m_CurFrame = m_arAnims(m_ShipAnim).Start
m_frInc = 1
' prevent ships in 2nd plane go out of sight_range
m_x = m_x / m_z
m_y = m_y / m_z
'lwgind = CreateWarpGate(CInt(m_x), CInt(m_y) + m_cy / 2, m_z)
lwgind = CreateWarpGate(GetX, GetY, m_z)
End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Play ship warping animation
' /////////////////////////////////////////////////////////////
Private Sub _
Warp()
If (m_CurFrame >= m_arAnims(m_ShipAnim).End And _
(Not g_WarpGate(lwgind).Visible)) Then
' set ship state
m_State = SS_MOVE
' set ship animation
m_ShipAnim = SA_MOVE
' set animation frame at the MOVE animation start
m_CurFrame = m_arAnims(m_ShipAnim).Start
End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Ship attacks in motion
' /////////////////////////////////////////////////////////////
Private Sub _
Intercept()
'Static bytTurn As Byte
Dim bTurning As Boolean
Dim nDist As Integer
Dim lk As Integer
If (m_Rotation = RO_RIGHT) Then
m_ShipAnim = SA_TURN
m_Angle = m_Angle - 0.05 '* m_MaxVel
If m_Angle < m_DestAngle Then
m_Rotation = RO_NONE ' set no_rotation flag
m_Angle = m_DestAngle ' set current angle to the destination angle
m_DestAngle = GetAngle(m_x, m_y, m_dx, m_dy) ' precalculate the destination angle again (for precision)
If (m_DestAngle > m_Angle) Then
m_Rotation = RO_LEFT
Else
m_Rotation = RO_RIGHT
End If
Call FixFace
'm_xVel = Sgn(m_xVel) * m_MaxVel
'm_yVel = Sgn(m_yVel) * m_MaxVel
bTurning = False
Else
bTurning = True
End If
ElseIf (m_Rotation = RO_LEFT) Then
m_ShipAnim = SA_TURN
m_Angle = m_Angle + 0.05 '* m_MaxVel
If m_Angle > m_DestAngle Then
m_Angle = m_DestAngle
m_Rotation = RO_NONE
m_xVel = m_MaxVel
m_yVel = m_MaxVel
m_DestAngle = GetAngle(m_x, m_y, m_dx, m_dy)
If (m_DestAngle > m_Angle) Then
m_Rotation = RO_LEFT
Else
m_Rotation = RO_RIGHT
End If
Call FixFace
'm_xVel = Sgn(m_xVel) * m_MaxVel
'm_yVel = Sgn(m_yVel) * m_MaxVel
bTurning = False
Else
bTurning = True
End If
ElseIf m_Rotation = RO_NONE Then
m_ShipAnim = SA_MOVE
'...
' Debug.Print "NO GO!"
End If
'Debug.Print m_Angle
'm_x = m_x + m_xVel '+ (Sgn(m_xVel) * Cos(fa)) '* 2
'm_y = m_y + m_yVel '+ (Sgn(m_yVel) * Sin(fa)) '* 2
m_x = m_x + Cos(m_Angle) * m_xVel
m_y = m_y + Sin(m_Angle) * m_yVel
'If (m_y < 0 Or m_y > VISIBLE_AREA_CY) Then
' Call GetTarget(m_dx, m_dy)
'End If
' Stop
'Debug.Print "angle: " & m_Angle
'Debug.Print "x: " & m_x
'Debug.Print "y: " & m_y
'Debug.Print "dx: " & m_dx
'Debug.Print "dy: " & m_dy
'Debug.Print "xVel: " & m_xVel
'Debug.Print "yVel: " & m_yVel
nDist = nGetDist2D(CInt(m_x), CInt(m_y), m_dx, m_dy)
If (Not bTurning) Then
If (nDist <= m_AttackRange) Then
' Stop
'm_State = SS_ATTACK
'm_CurFrame = m_arAnims(SA_ATTACK).Start ' ako stoi tuk togawa za interceptora w Attack() nqma da dade bAttack = True
Call Attack
Call GetTarget(m_dx, m_dy)
Call SetupPhysics
End If
End If
' else intercept in space
'fAng = GetAngle(m_x, m_y, m_dx, m_dy)
'fAng = fAng + fGetRnd(0.05, 0.1)
'If fAng > 6.28 Then fAng = fAng - 6.28
'
' m_x = m_x + Cos(fAng) * (Sgn(m_xVel) * m_MaxVel)
' m_y = m_y + Sin(fAng) * (Sgn(m_yVel) * m_MaxVel)
' update animations
'If m_bUpdateFrame Then
' m_CurFrame = m_CurFrame + 1
' If (m_CurFrame > m_arAnims(SA_MOVE).End) Then
' m_CurFrame = m_arAnims(SA_MOVE).Start
' End If
'End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Move Interceptor back to mother-ship
' /////////////////////////////////////////////////////////////
Private Sub _
InterceptBack()
Dim nDist As Integer
Dim fReduce As Single
m_x = m_x + Cos(m_DestAngle) * m_xVel
m_y = m_y + Sin(m_DestAngle) * m_yVel
' if no carrier around engage suicide mission
If (Not CShip(m_bytOwner).GetVisible) Then
Call GetTarget(m_dx, m_dy)
Call SetupPhysics
Call FixFace
m_State = SS_MOVE
End If
' check distance
If (Collide(GetRect, CShip(m_bytOwner).GetRect)) Then
' simulate interceptor-recharge by destroying this one (new one will be created)
SetVisible = False
If (m_Type = ST_INTERCEPTOR1 And CShip(m_bytOwner).GetVisible And _
CShip(m_bytOwner).GetInterceptors > 0) Then _
Call CShip(m_bytOwner).KillInterceptor(m_myIndex)
End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Move ship to the target destination
' /////////////////////////////////////////////////////////////
Private Sub _
Move()
Dim nDist As Integer
Dim fReduce As Single
'm_x = m_x + m_xVel
'm_y = m_y + m_yVel
m_x = m_x + Cos(m_DestAngle) * m_xVel
m_y = m_y + Sin(m_DestAngle) * m_yVel
If (m_Type = ST_PARTICLEBEAST) Then
nDist = Sqr((m_dx - m_x) ^ 2)
Else
nDist = nGetDist2D(CInt(m_x), CInt(m_y), m_dx, m_dy)
End If
' reduce ship speed if it's less than 10 pixels from the target spot
fReduce = m_MaxVel / 10
If (nDist <= 6) Then
m_xVel = m_xVel - fReduce
m_yVel = m_yVel - fReduce
If (m_xVel <= 0) Then m_xVel = 0 ' m_xVel + fReduce
If (m_yVel <= 0) Then m_yVel = 0 ' m_yVel + fReduce
End If
If (nDist <= m_AttackRange) Then
' for interceptors
If m_Type = ST_INTERCEPTOR1 Then ' FIX THIS ---------
m_State = SS_ATTACKINMOTION
m_Rotation = RO_NONE
m_Angle = m_DestAngle
m_xVel = m_MaxVel
m_yVel = m_MaxVel
Call GetTarget(m_dx, m_dy)
Call SetupPhysics
' for other ship kinds
Else
m_State = SS_ATTACK
End If
m_ShipAnim = SA_ATTACK
m_CurFrame = m_arAnims(m_ShipAnim).Start
'...
End If
' update animations
'If (m_bUpdateFrame) Then
' m_CurFrame = m_CurFrame + 1
' If (m_CurFrame > m_arAnims(SA_MOVE).End) Then
' m_CurFrame = m_arAnims(SA_MOVE).Start
' End If
'End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Make ship float in space
' /////////////////////////////////////////////////////////////
Private Sub _
Float()
Static fFloat As Single
'If m_bUpdateFrame Then
' m_CurFrame = m_CurFrame + 1
' If m_CurFrame > m_arAnims(SA_STOP).End Then _
' m_CurFrame = m_arAnims(SA_STOP).Start
'End If
' do floating calculations
fFloat = fFloat + m_fFloat
If (fFloat > 2) Then m_fFloat = -m_fFloat
If (fFloat < -2) Then m_fFloat = Abs(m_fFloat)
m_y = m_y + m_fFloat
End Sub
' /////////////////////////////////////////////////////////////
' //// Update Ship
' /////////////////////////////////////////////////////////////
Public Sub _
Render()
Static lFPSTime As Long
Dim lTicks As Long
Dim rShip As RECT
lTicks = GetTicks()
If (lFPSTime < lTicks) Then
lFPSTime = lTicks + m_arAnims(m_ShipAnim).speed
m_bUpdateFrame = True
m_CurFrame = m_CurFrame + m_frInc
Else
m_bUpdateFrame = False
End If
'm_State = SS_ATTACKINMOTION
Select Case m_State
Case SS_WARP
m_ShipAnim = SA_WARP
Call Warp
Exit Sub
Case SS_MOVE
m_ShipAnim = SA_MOVE
Call Move
Case SS_ATTACK
Call Float
m_ShipAnim = SA_ATTACK
Call Attack
Case SS_ATTACKINMOTION
' see if ship's to be destroyed
If (m_lDieTime > 0 And m_lDieTime < GetTicks) Then
Call Destroy
End If
'm_ShipAnim = SA_TURN
Call Intercept
'Call Attack
Case SS_INTERCEPTBACK
m_ShipAnim = SA_MOVE
Call InterceptBack
Case SS_STOP
Call Float
Case Else: '...
End Select
' increment animation frame
If (m_bUpdateFrame) Then
' onwards
If (m_CurFrame > m_arAnims(m_ShipAnim).End) Then
If (m_arAnims(m_ShipAnim).Loop = AL_PLAY_REWIND) Then
m_frInc = -1
m_CurFrame = m_arAnims(m_ShipAnim).End
ElseIf (m_arAnims(m_ShipAnim).Loop = AL_CYCLE) Then
m_CurFrame = m_arAnims(m_ShipAnim).Start
ElseIf (m_arAnims(m_ShipAnim).Loop = AL_NONE) Then
m_CurFrame = m_arAnims(m_ShipAnim).End
End If
' backwards
ElseIf (m_CurFrame < m_arAnims(m_ShipAnim).Start) Then
m_frInc = 1
m_CurFrame = m_CurFrame + m_frInc
End If
End If
Dim dx As Long, dy As Long
Dim frame As Long
dx = m_x - wx / m_z
dy = m_y - wy / m_z
' set facing
Call FixFace
' prepare frame
frame = m_CurFrame + (m_Dir * m_frFace)
Select Case m_Type
' far enemies
Case ST_INTERCEPTOR1
Call BltFastGFX_HBM(dx, dy, g_Objects.Ship1(frame))
Case ST_LRSNEAKY
Call BltFastGFX_HBM(dx, dy, g_Objects.Ship3(frame))
Case ST_SEVENTHFOX
Call BltFastGFX_HBM(dx, dy, g_Objects.Ship4(frame))
' close enemies
Case ST_LRCLOSETERROR
'Call BltFastGFX_HBM(dx, dy, g_Objects.Ship5(frame))
Case ST_CARRIER1
Call BltFastGFX_HBM(dx, dy, g_Objects.Ship2(frame))
Case ST_PARTICLEBEAST
Call BltFastGFX_HBM(dx, dy, g_Objects.Ship5(frame))
Case Else: '...
End Select
' destroy ship if out of screen-range
'If ((GetX / GetZ) < -50 Or (GetX / GetZ) < SCREEN_PIXEL_WIDTH + 50) Then SetVisible = False
If ((GetY / GetZ) < -35 Or (GetY / GetZ) > SCREEN_PIXEL_HEIGHT + 50) Then Call Me.Destroy
End Sub
' /////////////////////////////////////////////////////////////
' //// Set's additional data dependent on Ship Kind
' /////////////////////////////////////////////////////////////
Private Sub _
FillKindInfo(eShip As enumShipType)
Dim cn As Long
' Ships in Z = 2 ( Far Ships )
' ------------------------------
If (eShip = ST_INTERCEPTOR1) Then
m_cx = g_Objects.Ship1(0).cx
m_cy = g_Objects.Ship1(0).cy
m_z = 2
m_fFloat = 0.05
m_AttackDelay = 350 ' in ms.
m_Weapon = SW_LASER
m_hitpoints = 5
m_lExperience = m_hitpoints * 5
m_bytScore = m_hitpoints * 2 ' score to give player
m_lDieTime = 0 ' reset destruction timer
m_frFace = ((UBound(g_Objects.Ship1) \ 2)) + 1 ' get facing_change
' set animations
m_arAnims(SA_WARP).Start = 0
m_arAnims(SA_WARP).End = 0
m_arAnims(SA_WARP).speed = FPS_ANIMS
m_arAnims(SA_TURN).Start = 1
m_arAnims(SA_TURN).End = 5
m_arAnims(SA_TURN).speed = FPS_ANIMS + FPS_ANIMS
m_arAnims(SA_MOVE).Start = 0
m_arAnims(SA_MOVE).End = 0
m_arAnims(SA_MOVE).speed = FPS_ANIMS
m_arAnims(SA_ATTACK).Start = 0
m_arAnims(SA_ATTACK).End = 0
m_arAnims(SA_ATTACK).speed = FPS_ANIMS
m_arAnims(SA_DESTROYED).Start = 0
m_arAnims(SA_DESTROYED).End = 0
m_arAnims(SA_DESTROYED).speed = FPS_ANIMS
ElseIf (eShip = ST_LRSNEAKY) Then ' missile ship
m_cx = g_Objects.Ship3(0).cx
m_cy = g_Objects.Ship3(0).cy
m_z = 2
m_fFloat = 0.09
m_AttackDelay = 1325
m_Weapon = SW_MISSILES
m_hitpoints = 6
m_lExperience = m_hitpoints * 5 ' assign experience
m_bytScore = m_hitpoints * 2 ' score to give player
m_frFace = ((UBound(g_Objects.Ship3) \ 2)) + 1 ' get facing_change
m_arAnims(SA_WARP).Start = 0
m_arAnims(SA_WARP).End = 0
m_arAnims(SA_WARP).speed = FPS_ANIMS
m_arAnims(SA_TURN).Start = 0
m_arAnims(SA_TURN).End = 0
m_arAnims(SA_TURN).speed = FPS_ANIMS
m_arAnims(SA_MOVE).Start = 0
m_arAnims(SA_MOVE).End = 0
m_arAnims(SA_MOVE).speed = FPS_ANIMS
m_arAnims(SA_ATTACK).Start = 0
m_arAnims(SA_ATTACK).End = 0
m_arAnims(SA_ATTACK).speed = FPS_ANIMS
m_arAnims(SA_DESTROYED).Start = 0
m_arAnims(SA_DESTROYED).End = 0
m_arAnims(SA_DESTROYED).speed = FPS_ANIMS
ElseIf (eShip = ST_LRCLOSETERROR) Then ' missile ship z = 1
m_cx = g_Objects.Ship5(0).cx
m_cy = g_Objects.Ship5(0).cy
m_z = 1
m_fFloat = 0.04
m_AttackDelay = 2000
m_Weapon = SW_MISSILES
m_hitpoints = 6
m_bytScore = m_hitpoints * 2 ' score to give player
ElseIf (eShip = ST_SEVENTHFOX) Then ' direct-attack ship
m_cx = g_Objects.Ship4(0).cx
m_cy = g_Objects.Ship4(0).cy
m_z = 2
m_fFloat = 0.09
m_AttackDelay = 1000
m_Weapon = SW_GREENLASER
m_hitpoints = 5
m_lExperience = m_hitpoints * 5 ' assign experience
m_bytScore = m_hitpoints * 2 ' score to give player
m_frFace = ((UBound(g_Objects.Ship4) \ 2)) + 1 ' get facing_change
m_arAnims(SA_WARP).Start = 0
m_arAnims(SA_WARP).End = 0
m_arAnims(SA_WARP).speed = FPS_ANIMS
m_arAnims(SA_TURN).Start = 0
m_arAnims(SA_TURN).End = 0
m_arAnims(SA_TURN).speed = FPS_ANIMS
m_arAnims(SA_MOVE).Start = 0
m_arAnims(SA_MOVE).End = 0
m_arAnims(SA_MOVE).speed = FPS_ANIMS
m_arAnims(SA_ATTACK).Start = 0
m_arAnims(SA_ATTACK).End = 7
m_arAnims(SA_ATTACK).speed = FPS_ANIMS
m_arAnims(SA_ATTACK).Loop = AL_CYCLE
m_arAnims(SA_DESTROYED).Start = 0
m_arAnims(SA_DESTROYED).End = 0
m_arAnims(SA_DESTROYED).speed = FPS_ANIMS
' --- Carriers ---------------
ElseIf (eShip = ST_CARRIER1) Then
m_cx = g_Objects.Ship2(0).cx
m_cy = g_Objects.Ship2(0).cy
m_z = 2
m_fFloat = 0.02
m_AttackDelay = 1650 ' in ms.
m_Weapon = SW_INTERCEPTOR
m_hitpoints = 60
m_lExperience = m_hitpoints * 5 ' assign experience
m_bytScore = m_hitpoints * 2 ' score to give player
m_bytInterceptors = 0 ' reset interceptors-warped counter
For cn = 0 To MAX_INTERCEPTORS
m_arChild(cn) = 0 ' reset track-indecies
Next
m_frFace = ((UBound(g_Objects.Ship2) \ 2)) + 1 ' get facing_change
' // set animations
m_arAnims(SA_WARP).Start = 0
m_arAnims(SA_WARP).End = 0
m_arAnims(SA_WARP).speed = FPS_ANIMS
m_arAnims(SA_TURN).Start = 0
m_arAnims(SA_TURN).End = 0
m_arAnims(SA_TURN).speed = FPS_ANIMS
m_arAnims(SA_MOVE).Start = 0
m_arAnims(SA_MOVE).End = 0
m_arAnims(SA_MOVE).speed = FPS_ANIMS
m_arAnims(SA_DESTROYED).Start = 0
m_arAnims(SA_DESTROYED).End = 0
m_arAnims(SA_DESTROYED).speed = FPS_ANIMS
m_arAnims(SA_ATTACK).Start = 1
m_arAnims(SA_ATTACK).End = 13
m_arAnims(SA_ATTACK).speed = FPS_ANIMS + FPS_ANIMS + FPS_ANIMS
m_arAnims(SA_ATTACK).Loop = AL_PLAY_REWIND
ElseIf eShip = ST_PARTICLEBEAST Then
m_cx = g_Objects.Ship5(2).cx
m_cy = g_Objects.Ship5(2).cy
m_z = 2
m_fFloat = 0.01
m_AttackDelay = 3000 ' in ms.
m_Weapon = SW_PARTICLE
m_hitpoints = 100
m_bytScore = m_hitpoints * 2 ' score to give player
m_lExperience = m_hitpoints * 5 ' assign experience
m_frFace = ((UBound(g_Objects.Ship5) \ 2)) + 1 ' get facing_change
' // set animations
m_arAnims(SA_WARP).Start = 0
m_arAnims(SA_WARP).End = 0
m_arAnims(SA_WARP).speed = FPS_ANIMS
m_arAnims(SA_TURN).Start = 0
m_arAnims(SA_TURN).End = 0
m_arAnims(SA_TURN).speed = FPS_ANIMS
m_arAnims(SA_MOVE).Start = 0
m_arAnims(SA_MOVE).End = 0
m_arAnims(SA_MOVE).speed = FPS_ANIMS
m_arAnims(SA_DESTROYED).Start = 0
m_arAnims(SA_DESTROYED).End = 0
m_arAnims(SA_DESTROYED).speed = FPS_ANIMS
m_arAnims(SA_ATTACK).Start = 1
m_arAnims(SA_ATTACK).End = 5
m_arAnims(SA_ATTACK).speed = FPS_ANIMS + FPS_ANIMS + FPS_ANIMS
m_arAnims(SA_ATTACK).Loop = AL_NONE
'm_HitPoints = 15
End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Make ship attack
' /////////////////////////////////////////////////////////////
Private Sub _
Attack()
Static lDelay As Long
Dim sx As Integer, sy As Integer
Dim dx As Integer, dy As Integer
Dim bAttack As Boolean
Dim cn As Long
Dim i As Long
' update animation
'If m_bUpdateFrame Then
' m_CurFrame = m_CurFrame + 1
' If (m_CurFrame > m_arAnims(SA_ATTACK).End) Then _
' m_CurFrame = m_arAnims(SA_ATTACK).Start
' bAttack = True
'End If
' since the current animation is attack mode wait until it's done and attack
If (m_CurFrame >= m_arAnims(m_ShipAnim).End) Then bAttack = True
' do damage dependent on the armament
sx = GetX
sy = GetY
Select Case m_Weapon
Case SW_LASER
If (bAttack And _
lDelay < GetTicks) Then
' set weapon delay
lDelay = GetTicks + m_AttackDelay '(m_Weapon * 350) + 150
bAttack = False
' set source
dx = nGetRnd(10, 25)
dy = nGetRnd(10, 25)
dx = dx + GetX
dy = dy + GetY
Call CreateLaserCut(sx, sy, m_z, dx, dy, 15, 15, m_Weapon, m_myIndex)
' PLAY SFX
Call DSPlaySound(g_dsSfx(SFX_NORMALASER), False, (GetX - wx), SFX_VOLUMEFAR)
End If
Case SW_GREENLASER
If (bAttack And _
lDelay < GetTicks) Then
' set weapon delay
lDelay = GetTicks + m_AttackDelay '(m_Weapon * 350) + 150
bAttack = False
' set source
Call CreateLaserCut(sx, sy, m_z, m_dx, m_dy, 15, 15, m_Weapon, m_myIndex)
' PLAY SOUND
Call DSPlaySound(g_dsSfx(nGetRnd(SFX_GREENLASER1, SFX_GREENLASER2)), False, (GetX - wx), SFX_VOLUMEFAR)
End If
Case SW_INTERCEPTOR
If ( _
lDelay < GetTicks) Then
' check if interceptor limit has been exceeded
If (m_bytInterceptors >= MAX_INTERCEPTORS) Then Exit Sub
' set weapon delay
lDelay = GetTicks + m_AttackDelay '(m_Weapon * 350) - nGetRnd(150, 800)
bAttack = False
' check for empty enemy class
Do While (cn < MAX_ENEMIES)
If (Not CShip(cn).GetVisible) Then
Call CShip(cn).CreateShip(Me.GetX, Me.GetY, ST_INTERCEPTOR1)
For i = 0 To MAX_INTERCEPTORS
If (m_arChild(i) = 0) Then
m_arChild(i) = cn ' save child index
Exit For
End If
Next
m_bytInterceptors = m_bytInterceptors + 1 ' increment interc. created counter
CShip(cn).SetOwner = m_myIndex ' tell the child that we're its' mother (uhm, weird a?) ;)
Exit Do
End If
cn = cn + 1
Loop
' PLAY FLY SOUND
Call DSPlaySound(g_dsSfx(nGetRnd(SFX_INTERCEPT1, SFX_INTERCEPT2)), False, (GetX - wx), SFX_VOLUMEFAR)
End If
Case SW_GREENPUS
'...
Case SW_PARTICLE
If (bAttack And _
lDelay < GetTicks) Then
' set weapon delay
lDelay = GetTicks + m_AttackDelay 'nGetRnd(2000, 4000)
bAttack = False
Call CreateParticleExplosion(GetX() - 20, m_y + 199)
Call CreateParticleLaser(GetX() - 36, GetY(), m_myIndex)
'...
' PLAY BEAM PREPARATION SOUND
End If
Case SW_MISSILES
If (bAttack And _
lDelay < GetTicks) Then
' set weapon delay
lDelay = GetTicks + m_AttackDelay '3500 '(m_Weapon * 350) + 150
bAttack = False
' hit a bunker
If (m_EnemyIndex <> 255) Then
Call CreateMissile(sx, sy, m_z, m_dx, m_dy, 10, 10, CBunker(m_EnemyIndex).GetPos, m_myIndex)
Else ' hit Earth
Call CreateMissile(sx, sy, m_z, m_dx, m_dy, 20, 20, BP_VERYFAR, m_myIndex)
End If
End If
Case Else: '...
End Select
End Sub
' /////////////////////////////////////////////////////////////
' //// Set enemy target spot dependant on it's kind
' /////////////////////////////////////////////////////////////
Private Sub _
GetTarget(dx As Integer, dy As Integer)
Dim cn As Long
Dim fAngle As Single
Select Case m_Type
Case ST_INTERCEPTOR1, ST_LRSNEAKY, ST_SEVENTHFOX, _
ST_CARRIER1
If (CBattleStation.GetVisible And nGetRnd(0, 1000) > 700) Then
dx = CBattleStation.GetX + nGetRnd(-15, 15)
dy = CBattleStation.GetY + nGetRnd(-15, 15)
m_Target = EO_BATTLESTATION
Else
dx = (nGetRnd(-10, g_cxEarth) + g_xEarth)
dy = (nGetRnd(0, g_cyEarth - 100) + g_yEarth)
m_Target = EO_EARTH
End If
Case ST_PARTICLEBEAST
dx = nGetRnd(25, g_cxEarth - 25) + g_xEarth
dy = (nGetRnd(90, g_cyEarth - 100) + g_yEarth)
m_Target = EO_EARTH
Case ST_LRCLOSETERROR
' get a random enemy bunker as a target
m_EnemyIndex = nGetRnd(0, MAX_BUNKERS)
' if bunker is already dead then choose the first found
If (Not CBunker(m_EnemyIndex).GetVisible) Then
For cn = 0 To MAX_BUNKERS
If (CBunker(cn).GetVisible) Then
m_EnemyIndex = cn
Exit For
End If
m_EnemyIndex = 255
Next
End If
' if no-operating bunker was found '{!}NOT COMPLETED
If (m_EnemyIndex = 255) Then
dx = (nGetRnd(50, g_cxEarth - 50) + g_xEarth)
dy = (nGetRnd(50, g_cyEarth - 50) + g_yEarth)
m_Target = EO_EARTH
Else
dx = CBunker(m_EnemyIndex).GetX
dy = CBunker(m_EnemyIndex).GetY
m_Target = EO_MOONBUNKER
End If
Case Else
Debug.Print "Error in ShipClass: GetTarget function"
End Select
' set animation frame
m_CurFrame = m_arAnims(SA_MOVE).Start
End Sub
' /////////////////////////////////////////////////////////////
' //// setup ship physics
' /////////////////////////////////////////////////////////////
Private Sub _
SetupPhysics()
Dim fAngle As Single
' calculate velocity
fAngle = GetAngle(m_x, m_y, m_dx, m_dy)
m_DestAngle = fAngle
m_xVel = m_MaxVel
m_yVel = m_MaxVel
If (m_Type = ST_PARTICLEBEAST) Then m_yVel = 0
'm_yVel = m_MaxVel
' setup rotation for interceptors
If (m_DestAngle > m_Angle) Then
m_Rotation = RO_LEFT
'm_Angle = m_Angle '- PI
Else
m_Rotation = RO_RIGHT
'm_Angle = m_Angle '+ PI
End If
End Sub
' /////////////////////////////////////////////////////////////
' //// Orientate ship
' /////////////////////////////////////////////////////////////
Private Sub _
FixFace()
'm_xVel = Cos(fAngle) * m_MaxVel
'm_yVel = Sin(fAngle) * m_MaxVel
' make ship faces the target
If (max(CInt(m_x), CInt(m_dx))) Then
m_Dir = SO_RIGHT
'm_xVel = -m_xVel
Else
m_Dir = SO_LEFT
End If
' fix y-velocity
'If (Max(CInt(m_y), CInt(m_dy))) Then m_yVel = -m_yVel
End Sub
' /////////////////////////////////////////////////////////////
' //// Kill an interceptor
' /////////////////////////////////////////////////////////////
Public Sub _
KillInterceptor(bytIndex As Byte)
Dim cn As Long
' clear index
For cn = 0 To MAX_INTERCEPTORS
If (m_arChild(cn) = bytIndex) Then
m_arChild(cn) = 0
Exit For
End If
Next