| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:15:41 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=bb8518532f8bfbdc0d048d0cd10f8ca2348637a9019c9f4e15d98b2ff528d813a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22zEsMq8_ykmDNw81MwZ7nt4cTnvn-SbWS%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc39756b3bf470-BLR
movePlayerDownOrScrollUp - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure movePlayerDownOrScrollUp();
- // player moving down
- begin
- if viewRowEnd = mapEnd then begin
- // at bottom of map so don't scroll screen up
- // and move normally
- player.yPos := player.yPos + player.yVel;
- Exit;
- end;
- if player.ty < VIEW_THRESHOLD_B then begin
- // don't scroll yet, not low enough down the screen
- // move normally
- player.yPos := player.yPos + player.yVel;
- Exit;
- end;
- vic_waitForRaster(IRQ_BLANK_LINE);
- // change scroll reg by y-vel (max 2 per frame)
- Inc(scrollY,2);//abs8(player.yVel.b1));
- if scrollY >= 8 then begin
- // wrap around and do hardscroll
- scrollY := scrollY and 7;
- asm
- .for(var y = VIEW_ROW_OFFSET+1; y < SCREEN_HEIGHT; y++) {
- ldx #MAP_WIDTH-1
- !:
- lda SCREEN0_ADDRESS + (y + 0) * SCREEN_WIDTH,x
- sta SCREEN0_ADDRESS + (y - 1) * SCREEN_WIDTH,x
- lda COLOR_ADDRESS + (y + 0) * SCREEN_WIDTH,x
- sta COLOR_ADDRESS + (y - 1) * SCREEN_WIDTH,x
- dex
- bpl !-
- }
- end;
- // move view down in map
- Inc(viewRowStart);
- Inc(viewRowEnd);
- // fill bottom row with level data
- addressPntr1 := levelRowOffset[viewRowEnd];
- addressPntr2 := screenRowOffset[SCREEN_HEIGHT-1];
- asm
- clc
- lda addressPntr2 + 0
- adc #<(COLOR_ADDRESS-SCREEN0_ADDRESS)
- sta addressPntr3 + 0
- lda addressPntr2 + 1
- adc #>(COLOR_ADDRESS-SCREEN0_ADDRESS)
- sta addressPntr3 + 1
- ldy #MAP_WIDTH-1
- !:
- lda (addressPntr1),y
- // store level char for color attrib later
- pha
- sta (addressPntr2),y
- // restore level char for color attrib
- pla
- tax
- lda charAttribs,x
- sta (addressPntr3),y
- dey
- bpl !-
- end;
- end;
- // vic_set_scrolly(scrollY);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 3 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ E
JavaScript | 4 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ O
JavaScript | 15 sec ago | 0.24 KB
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 17 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 8
JavaScript | 26 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 26 sec ago | 0.24 KB
-
⭐ ✅ Free Products Method ✅ ✅ NEVER SEEN BEFOR...
JavaScript | 35 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ C
JavaScript | 37 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
