Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 21:34:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Great Laser. #110

Browse Source
This commit is contained in:
Pecusx
2022-07-16 20:15:18 +02:00
parent bc0148eb0f
commit 6b0d8aa287
2 changed files with 28 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+28 -10
View File
@@ -701,7 +701,6 @@ DiggerCharacter
mva #1 color mva #1 color
mwa LaserCoordinate xdraw mwa LaserCoordinate xdraw
mwa LaserCoordinate+2 ydraw mwa LaserCoordinate+2 ydraw
jsr plot
mva #0 HitFlag mva #0 HitFlag
jsr CheckCollisionWithTank jsr CheckCollisionWithTank
lda HitFlag lda HitFlag
@@ -1455,15 +1454,16 @@ RandomizeOffensiveText
jsr DisplayOffensiveTextNr jsr DisplayOffensiveTextNr
ldx TankNr ldx TankNr
lda ActiveWeapon,x lda ActiveWeapon,x
cmp #ind_Laser__________ ; laser cmp #ind_Laser__________ ; laser
bne NotStrongShoot bne NotStrongShoot
mva #0 color ; Laser: very strong - invisible - shot for laser beam end coordinates
lda #7 mva #0 color
sta Force lda #7
sta Force+1 sta Force
bne AfterStrongShoot sta Force+1
bne AfterStrongShoot
NotStrongShoot NotStrongShoot
lda ForceTableL,x lda ForceTableL,x
sta Force sta Force
@@ -2007,6 +2007,24 @@ StillUp
nowait nowait
lda HitFlag lda HitFlag
bne Hit bne Hit
; --- only for Laser
ldx TankNr
lda ActiveWeapon,x
cmp #ind_Laser__________ ; Laser
bne NoCheckEdgesForLaser
; If laser fires, edges of the screen finish "flying" and laser hits.
lda ytraj+2
bmi LaserHitEdge
cpw xtraj+1 #screenwidth+1
bcc LaserNoHitEdge
LaserHitEdge
mwa xdraw XHit
mwa ydraw YHit
mva #$ff HitFlag ; screen edgs like ground (only for Laser)
jmp EndOfFlight
LaserNoHitEdge
; ------------------
NoCheckEdgesForLaser
cpw ytraj+1 #screenheight+1 cpw ytraj+1 #screenheight+1
bcc YTrayLowerThanScreenHeight bcc YTrayLowerThanScreenHeight