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

improved mountains heights #86

Browse Source
This commit is contained in:
pkali
2022-07-10 12:00:53 -04:00
parent 51975ccfbf
commit c28d243719
6 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
constants.asm
+1
View File
@@ -23,6 +23,7 @@ RoundsTable .by 10,20,30,40,50
flyDelayTable .by 255,150,75,35,1 flyDelayTable .by 255,150,75,35,1
seppukuTable .by 255, 45,25,15,9 seppukuTable .by 255, 45,25,15,9
mountainsDeltaTableH .by 0,1,3,5,7 mountainsDeltaTableH .by 0,1,3,5,7
mountainsDeltaTableL .by $1f, $7f, $ff, $7f, $ff
;------------------------------------------------ ;------------------------------------------------
LevelNameBeginL ; begins of level names LevelNameBeginL ; begins of level names
.by <NamesOfLevels,<(NamesOfLevels+10),<(NamesOfLevels+20) .by <NamesOfLevels,<(NamesOfLevels+10),<(NamesOfLevels+20)
definitions.asm
+1 -1
View File
@@ -3,7 +3,7 @@
screenheight = 200 screenheight = 200
screenBytes = 40 screenBytes = 40
screenwidth = screenBytes*8 ; Max screenwidth = 512!!! screenwidth = screenBytes*8 ; Max screenwidth = 512!!!
margin = 48 ;mountain drawing Y variable margin margin = 40 ;mountain drawing Y variable margin
display = $1010 ;screen takes $2K due to clearing routine display = $1010 ;screen takes $2K due to clearing routine
MaxPlayers = 6 MaxPlayers = 6
maxOptions = 8 ;number of all options maxOptions = 8 ;number of all options
grafproc.asm
+4 -1
View File
@@ -1028,6 +1028,8 @@ getrandomY ;getting random Y coordinate
sta ydraw sta ydraw
sta yfloat+1 sta yfloat+1
mva #0 yfloat ;yfloat equals to e.g. 140.0 mva #0 yfloat ;yfloat equals to e.g. 140.0
mva #screenheight-margin-5 yfloat+1
sta ydraw
; how to make nice looking mountains? ; how to make nice looking mountains?
; randomize points and join them with lines ; randomize points and join them with lines
@@ -1036,9 +1038,10 @@ getrandomY ;getting random Y coordinate
NextPart NextPart
lda random lda random
and mountainDeltaL
sta delta ; it is after the dot (xxx.delta) sta delta ; it is after the dot (xxx.delta)
lda random lda random
and mountainDelta ;(max delta) and mountainDeltaH ;(max delta)
sta delta+1 ; before the dot (delta+1.delta) sta delta+1 ; before the dot (delta+1.delta)
lda random lda random
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+4 -1
View File
@@ -127,7 +127,10 @@ OptionsFinished
;8th option (how aggressive are mountains) ;8th option (how aggressive are mountains)
ldy OptionsTable+7 ldy OptionsTable+7
lda mountainsDeltaTableH,y lda mountainsDeltaTableH,y
sta mountainDelta sta mountainDeltaH
lda mountainsDeltaTableL,y
sta mountainDeltaL
rts rts
;-------- ;--------
variables.asm
+2 -1
View File
@@ -15,7 +15,8 @@ TanksNames ; DO NOT ZERO - ticket #24
OptionsTable .by 0,1,2,2,0,1,3,2 OptionsTable .by 0,1,2,2,0,1,3,2
RoundsInTheGame .by 10 ;how many rounds in the current game RoundsInTheGame .by 10 ;how many rounds in the current game
seppukuVal .by 75 seppukuVal .by 75
mountainDelta .by 3 mountainDeltaH .by 3
mountainDeltaL .by $ff
;---------------------------------------------------- ;----------------------------------------------------
skilltable ; computer controlled players' skills (1-8), 0 - human (no cleaning, ticket #30) skilltable ; computer controlled players' skills (1-8), 0 - human (no cleaning, ticket #30)
.DS [MaxPlayers] .DS [MaxPlayers]