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

New tank shape (only for robotanks),.

Browse Source
This commit is contained in:
Pecusx
2022-11-26 20:41:50 +01:00
parent 42cc896ec5
commit ee9d6b7ce9
7 changed files with 12 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
artwork/tanksv3.fnt
BIN
View File
Binary file not shown.
constants_top.asm
+4 -2
View File
@@ -7,8 +7,10 @@ TankColoursTable .BYTE $58,$2a,$96,$ca,$7a,$ed
;TanksPMOrder .BYTE 4,3,1,5,0,2 ; 0-3 = P0-P3 , 4 = M0+M1 , 5 = M2+M3 ;TanksPMOrder .BYTE 4,3,1,5,0,2 ; 0-3 = P0-P3 , 4 = M0+M1 , 5 = M2+M3
TankStatusColoursTable .BYTE $74,$c4,$24,$e4,$54,$94 ; Adam's order TankStatusColoursTable .BYTE $74,$c4,$24,$e4,$54,$94 ; Adam's order
TanksPMOrder .BYTE 4,3,1,5,0,2 ; 0-3 = P0-P3 , 4 = M0+M1 , 5 = M2+M3 TanksPMOrder .BYTE 4,3,1,5,0,2 ; 0-3 = P0-P3 , 4 = M0+M1 , 5 = M2+M3
TankShapesTable .BYTE char_tank1___________,char_tank2___________,char_tank3___________ TankShapesTable .BYTE char_tank1___________
.BYTE char_tank1___________,char_tank2___________,char_tank3___________ .BYTE char_tank2___________
.BYTE char_tank3___________
.BYTE char_tank4___________
dliColorsBack dliColorsBack
:10 .by $02,$00 :10 .by $02,$00
dliColorsFore dliColorsFore
definitions.asm
+2 -1
View File
@@ -37,7 +37,8 @@ char_sandhog_________ = $0c
char_sandhog_offset = char_sandhog_________ - char_digger__________ char_sandhog_offset = char_sandhog_________ - char_digger__________
char_tank1___________ = $20 char_tank1___________ = $20
char_tank2___________ = $24 char_tank2___________ = $24
char_tank3___________ = $28 char_tank3___________ = $2c
char_tank4___________ = $28 ; robotank shape
;Weapon prices (*10 on screen) ;Weapon prices (*10 on screen)
price_Baby_Missile___ = 0 ;_00 price_Baby_Missile___ = 0 ;_00
scorch.asm
+1 -1
View File
@@ -1972,7 +1972,7 @@ noingame
icl 'artwork/talk.asm' icl 'artwork/talk.asm'
;---------------------------------------------- ;----------------------------------------------
TankFont TankFont
ins 'artwork/tanksv3.fnt',+0,352 ; 44 characters only ins 'artwork/tanksv3.fnt',+0,384 ; 48 characters only
;---------------------------------------------- ;----------------------------------------------
font4x4 font4x4
ins 'artwork/font4x4s.bmp',+62 ins 'artwork/font4x4s.bmp',+62
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+5 -9
View File
@@ -1120,7 +1120,6 @@ NoArrowDown
sta difficultyLevel sta difficultyLevel
lda digits+1,x lda digits+1,x
sta NameScreen2+7 sta NameScreen2+7
jsr HighlightLevel ; setting choosen level of the opponent (Moron, etc)
; clear tank name editor field - not necessary ; clear tank name editor field - not necessary
; ldx #8 ; ldx #8
@@ -1154,12 +1153,9 @@ LastNameChar
beq @+ beq @+
iny iny
@ sty PositionInName @ sty PositionInName
; lda NameAdr,y
; ora #$80 ; place cursor on the end
; sta NameAdr,y
CheckKeys CheckKeys
jsr HighlightLevel ; setting choosen level of the opponent (Moron, etc)
ldx TankNr ldx TankNr
lda JoyNumber,x lda JoyNumber,x
tay tay
@@ -1247,7 +1243,6 @@ ChangeOfLevelUp ; change difficulty level of computer opponent
bne DoNotLoopLevelUp bne DoNotLoopLevelUp
mva #$0 DifficultyLevel mva #$0 DifficultyLevel
DoNotLoopLevelUp DoNotLoopLevelUp
jsr HighlightLevel
jmp CheckKeys jmp CheckKeys
;---- ;----
ChangeOfLevelDown ChangeOfLevelDown
@@ -1255,7 +1250,6 @@ ChangeOfLevelDown
bpl DoNotLoopLevelDown bpl DoNotLoopLevelDown
mva #$8 DifficultyLevel mva #$8 DifficultyLevel
DoNotLoopLevelDown DoNotLoopLevelDown
jsr HighlightLevel
jmp CheckKeys jmp CheckKeys
;---- ;----
ChangeOfLevel3Up ChangeOfLevel3Up
@@ -1267,7 +1261,6 @@ ChangeOfLevel3Up
sbb DifficultyLevel #9 sbb DifficultyLevel #9
DoNotLoopLevel3Up DoNotLoopLevel3Up
jsr HighlightLevel
jmp CheckKeys jmp CheckKeys
;---- ;----
ChangeOfLevel3Down ChangeOfLevel3Down
@@ -1275,7 +1268,6 @@ ChangeOfLevel3Down
bpl @+ bpl @+
adb DifficultyLevel #9 adb DifficultyLevel #9
@ @
jsr HighlightLevel
jmp CheckKeys jmp CheckKeys
;---- ;----
ChangeOfShapeUp ChangeOfShapeUp
@@ -1307,6 +1299,10 @@ ShortJoyPress
ldx tanknr ldx tanknr
lda DifficultyLevel lda DifficultyLevel
sta skilltable,x sta skilltable,x
beq NotRobot
lda #$03 ; shape for robotanks
sta TankShape,x
NotRobot
; storing name of the tank in the right space ; storing name of the tank in the right space
; (without cursor!) ; (without cursor!)
ldy #$00 ldy #$00