| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:51:35 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=3937482401ce45cc946181abbcd41a799b854ef070491b7cb1a63707197d9ab9a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22uadXqJQP8mY2vD4jJpyr1EVBbhrX54B4%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc6e08b9b8c1c9-BLR
Bouncing Marbles - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Bouncing Marbles by TheBaykun.
- ' Yet another physics demonstration.
- ' Tilt to move the marbles.
- ' Tap to move Marble A.
- BallGrinder = 1 '0: Off, 1: On.
- ax=25
- ay=50
- aa=0
- ab=0
- bx=75
- by=35
- ba=0
- bb=0
- cx=125
- cy=75
- ca=0
- cb=0
- ACCELCALIBRATE
- LOCKORIENTATION
- IF ballgrinder=1 THEN
- PRINT "Ball Grinder: Not as painful as it sounds. ------>"
- ENDIF
- g=1
- WHILE g=1
- BEGINDRAW
- COLOR 0,0,0
- CIRCLE ax,ay,26
- CIRCLE bx,by,26
- CIRCLE cx,cy,26
- IF Touch>=1 THEN
- ax=TouchX
- ay=TouchY
- ab=0
- aa=0
- ENDIF
- IF ab>0 THEN
- ab=ab-0.2
- ENDIF
- IF ab<0 THEN
- ab=ab+0.2
- ENDIF
- IF bb>0 THEN
- bb=bb-0.2
- ENDIF
- IF bb<0 THEN
- bb=bb+0.2
- ENDIF
- IF cb>0 THEN
- cb=cb-0.2
- ENDIF
- IF cb<0 THEN
- cb=cb+0.2
- ENDIF
- ab=ab+(AccelX)
- IF ab>20 THEN
- ab=20
- ENDIF
- IF ab<-20 THEN
- ab=-20
- ENDIF
- ax=ax+ab
- IF ax<=25 THEN
- ab=2-ab
- ENDIF
- IF ax>=ScreenWidth-25 THEN
- ab=-2+(ballgrinder*4)-ab
- ENDIF
- IF ax>=ScreenWidth+25 THEN
- ax=25
- ENDIF
- IF ax<=-25 THEN
- ax=ScreenWidth-25
- ENDIF
- bb=bb+(AccelX)
- IF bb>20 THEN
- bb=20
- ENDIF
- IF bb<-20 THEN
- bb=-20
- ENDIF
- bx=bx+bb
- IF bx<=25 THEN
- bb=2-bb
- ENDIF
- IF bx>=ScreenWidth-25 THEN
- bb=-2+(ballgrinder*4)-bb
- ENDIF
- IF bx>=ScreenWidth+25 THEN
- bx=25
- ENDIF
- IF bx<=-25 THEN
- bx=ScreenWidth-25
- ENDIF
- cb=cb+(AccelX)
- IF cb>20 THEN
- cb=20
- ENDIF
- IF cb<-20 THEN
- cb=-20
- ENDIF
- cx=cx+cb
- IF cx<=25 THEN
- cb=2-cb
- ENDIF
- IF cx>=ScreenWidth-25 THEN
- cb=-2+(ballgrinder*4)-cb
- ENDIF
- IF cx>=ScreenWidth+25 THEN
- cx=25
- ENDIF
- IF cx<=-25 THEN
- cx=ScreenWidth-25
- ENDIF
- IF ay<ScreenHeight-25 THEN
- aa=aa+1
- ENDIF
- IF ay>=ScreenHeight-25 AND aa>0 THEN
- aa=2-aa
- ENDIF
- IF aa<>0 THEN
- ay=ay+aa
- ENDIF
- IF ay>ScreenHeight-25 THEN
- ay=ScreenHeight-25
- ENDIF
- IF ScreenHeight=ay+25 THEN
- IF aa=0 OR aa=1 THEN
- aa=-15
- ENDIF
- ENDIF
- IF by<ScreenHeight-25 THEN
- ba=ba+1
- ENDIF
- IF by>=ScreenHeight-25 AND ba>0 THEN
- ba=2-ba
- ENDIF
- IF ba<>0 THEN
- by=by+ba
- ENDIF
- IF by>ScreenHeight-25 THEN
- by=ScreenHeight-25
- ENDIF
- IF ScreenHeight=by+25 THEN
- IF ba=0 OR ba=1 THEN
- ba=-20
- ENDIF
- ENDIF
- IF cy<ScreenHeight-25 THEN
- ca=ca+1
- ENDIF
- IF cy>=ScreenHeight-25 AND ca>0 THEN
- ca=2-ca
- ENDIF
- IF ca<>0 THEN
- cy=cy+ca
- ENDIF
- IF cy>ScreenHeight-25 THEN
- cy=ScreenHeight-25
- ENDIF
- IF ScreenHeight=cy+25 THEN
- IF ca=0 OR ca=1 THEN
- ca=-15
- ENDIF
- ENDIF
- 'CLS gfx
- IF ballgrinder=1 THEN
- COLOR 200,200,200
- LINE ScreenWidth,0,ScreenWidth,ScreenHeight,5
- COLOR 100,100,100
- LINE ScreenWidth-5,0,ScreenWidth-5,ScreenHeight,5
- ENDIF
- COLOR 255,0,0
- CIRCLE ax,ay,25
- COLOR 0,255,0
- CIRCLE bx,by,25
- COLOR 0,0,255
- CIRCLE cx,cy,25
- COLOR 0,0,0
- DRAWTEXT "A",ax,ay
- DRAWTEXT "B",bx,by
- DRAWTEXT "C",cx,cy
- ENDDRAW
- SLEEP 0.01
- WEND
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Swapzone.io Glitch (Working)⭐⭐
Java | 3 sec ago | 0.10 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 3 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ H
JavaScript | 4 sec ago | 0.24 KB
-
⭐✅ MAKE $2000 INSTANTLY ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 12 sec ago | 0.24 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 15 sec ago | 0.10 KB
-
⭐⭐Exchange Exploit⭐⭐ M
JavaScript | 15 sec ago | 0.24 KB
-
⭐ Free Crypto Method ✅ NEVER SEEN BEFORE ⭐⭐⭐
JavaScript | 21 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $900 INSTANTLY⭐⭐
Java | 26 sec ago | 0.10 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
