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

And more bytes :)

Browse Source
This commit is contained in:
Pecusx
2023-08-25 09:03:21 +02:00
parent 43301541ae
commit c121d08c23
3 changed files with 16 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ai.asm
+16 -18
View File
@@ -20,6 +20,16 @@ AIRoutines
.word Spoiler-1 ;Spoiler
.word Cyborg-1 ;Cyborg
.word Unknown-1 ;Unknown
;----------------
PurchaseAIRoutines
.word MoronPurchase-1
.word ShooterPurchase-1 ;ShooterPurchase
.word PoolsharkPurchase-1 ;PoolsharkPurchase
.word TosserPurchase-1 ;TosserPurchase
.word TosserPurchase-1 ;ChooserPurchase
.word CyborgPurchase-1 ;SpoilerPurchase
.word CyborgPurchase-1 ;CyborgPurchase
.word TosserPurchase-1 ;UnknownPurchase
;----------------------------------------------
.proc ArtificialIntelligence ;
@@ -29,10 +39,9 @@ AIRoutines
;----------------------------------------------
asl
tay
:2 dey ;credit KK
lda AIRoutines+1,y
lda AIRoutines-1,y ; -1 and -2 because AI players are numbered from 1 not from 0 (Human)
pha
lda AIRoutines,y
lda AIRoutines-2,y
pha
; it's no necessary - PrepareAIShoot is next proc :)
; jsr PrepareAIShoot
@@ -845,6 +854,7 @@ skipThisPlayer
TankHit
rts
.endp
;----------------------------------------------
.proc PurchaseAI ;
; A - skill of the TankNr
@@ -853,25 +863,13 @@ TankHit
;----------------------------------------------
asl
tax
:2 dex ;credit KK
lda PurchaseAIRoutines+1,x
lda PurchaseAIRoutines-1,x ; -1 and -2 because AI players are numbered from 1 not from 0 (Human)
pha
lda PurchaseAIRoutines,x
lda PurchaseAIRoutines-2,x
pha
rts
; rts ; MoronPurchase has rts :)
.endp
;----------------
PurchaseAIRoutines
.word MoronPurchase-1
.word ShooterPurchase-1 ;ShooterPurchase
.word PoolsharkPurchase-1 ;PoolsharkPurchase
.word TosserPurchase-1 ;TosserPurchase
.word TosserPurchase-1 ;ChooserPurchase
.word CyborgPurchase-1 ;SpoilerPurchase
.word CyborgPurchase-1 ;CyborgPurchase
.word TosserPurchase-1 ;UnknownPurchase
;----------------------------------------------
.proc MoronPurchase
;Moron buys nothing