starred/scorch_src
1
0
Fork 0
Code Issues 37 Packages Projects Releases 10 Wiki Activity

WIP: Proper selection of weapons with Tab key

Browse Source
This commit is contained in:
Pecusx
2022-08-29 09:42:05 +02:00
parent 39835d5f50
commit cc07bd52f2
4 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ai.asm
+4 -4
View File
@@ -262,10 +262,10 @@ EnoughEnergy
; first check check if any is in use ; first check check if any is in use
lda ActiveDefenceWeapon,x lda ActiveDefenceWeapon,x
bne DefensiveInUse bne DefensiveInUse
ldy #ind_Nuclear_Winter_+1 ;the last defensive weapon ldy #last_defensive_____+1 ;the last defensive weapon
@ @
dey dey
cpy #ind_Battery________ ;first defensive weapon (White Flag nad Battery - never use) cpy #ind_Battery________ ;first defensive weapon (White Flag and Battery - never use)
beq NoUseDefensive beq NoUseDefensive
lda (temp),y ; has address of TanksWeaponsTable lda (temp),y ; has address of TanksWeaponsTable
beq @- beq @-
@@ -297,10 +297,10 @@ DefensiveInUse
; first check check if any is in use ; first check check if any is in use
lda ActiveDefenceWeapon,x lda ActiveDefenceWeapon,x
bne DefensiveInUse bne DefensiveInUse
ldy #ind_Nuclear_Winter_+1 ;the last defensive weapon ldy #last_defensive_____+1 ;the last defensive weapon
@ @
dey dey
cpy #ind_Battery________ ;first defensive weapon (White Flag nad Battery - never use) cpy #ind_Battery________ ;first defensive weapon (White Flag and Battery - never use)
beq NoUseDefensive beq NoUseDefensive
lda (temp),y ; has address of TanksWeaponsTable lda (temp),y ; has address of TanksWeaponsTable
beq @- beq @-
grafproc.asm
+3 -2
View File
@@ -1100,8 +1100,9 @@ ParachutePresent
; check energy of parachute ; check energy of parachute
lda ShieldEnergy,x lda ShieldEnergy,x
bne OneTimeParachute bne OneTimeParachute
mva #0 Parachute lda #$00
mva #0 ActiveDefenceWeapon,x ; deactivate defence sta Parachute
sta ActiveDefenceWeapon,x ; deactivate defence
OneTimeParachute OneTimeParachute
lda Parachute lda Parachute
ora #2 ; we set bit nr 1 (nr 0 means that parachute is present) ora #2 ; we set bit nr 1 (nr 0 means that parachute is present)
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+13 -7
View File
@@ -1433,12 +1433,14 @@ CTRLPressedLeft
pressedTAB pressedTAB
mva #sfx_purchase sfx_effect mva #sfx_purchase sfx_effect
ldx TankNr ldx TankNr
inc ActiveWeapon,x
lda ActiveWeapon,x lda ActiveWeapon,x
cmp #$30 ; number of offensive weapons cmp #last_offensive_____ ; the last possible offensive weapon
bne @+ bne ?notlasttofirst
lda #0 lda #first_offensive____ ; #0
sta ActiveWeapon,x sta ActiveWeapon,x
beq @+ ; allways = 0
?notlasttofirst
inc ActiveWeapon,x
@ @
lda ActiveWeapon,x lda ActiveWeapon,x
jsr HowManyBullets ; and we have qty of owned shells. Ufff.... jsr HowManyBullets ; and we have qty of owned shells. Ufff....
@@ -1448,10 +1450,14 @@ pressedTAB
CTRLpressedTAB CTRLpressedTAB
ldx TankNr ldx TankNr
dec ActiveWeapon,x lda ActiveWeapon,x
bpl @+ cmp #first_offensive____ ; #0
lda #$2f ; the last possible offensive weapon bne ?notfirsttolast
lda #last_offensive_____ ; the last possible offensive weapon
sta ActiveWeapon,x sta ActiveWeapon,x
bne @+ ; allways <> 0
?notfirsttolast
dec ActiveWeapon,x
@ @
lda ActiveWeapon,x lda ActiveWeapon,x
jsr HowManyBullets ; and we have qty of owned shells. Ufff.... jsr HowManyBullets ; and we have qty of owned shells. Ufff....