Dark Bit Factory & Gravity
PROGRAMMING => Other languages => Yabasic => Topic started by: Rubber131186 on August 31, 2012
-
hi i am new here tonight, i messed about loads with Yabasic on the ps2 and on the ps3 over the years i am not very good but i wrote all my programs on the ps2 with controller then using the ps3 adapter i moved all my saves to the ps3 any ways i wrote this walking man demo in about 2004 its a spirit of the guy from pokemon that you walk around the screen with full animation. The file is a ps3 ps2 exported save
should be in a folder called
PS3-EXPORT-PSV-BESCES-5000857414C4B5F4D414E.PSV
only works with the Yabasic demo disc
-
file
-
:hi: Rubber131186
YABASIC work on PS 3 ???
-
Hi Rubber, welcome to DBF :)
This thread (http://www.dbfinteractive.com/forum/index.php?topic=214.0) may be of interest to you.
Thanks for sharing your work.
-
Shame that the Emulator doesn't load PSV files, it loads PSU's though - Is there any way of converting this? :)
And welcome to the forum!
-
Shame that the Emulator doesn't load PSV files, it loads PSU's though - Is there any way of converting this? :)
And welcome to the forum!
This (http://www.ps2savetools.com/faq.php?show=1&id_cat=9) looks like it will convert them.
-
thanks for the warm welcome guys. I was never a member of any Yabasic sites. But used to print loads of code out in school from the old Yabasic forums site in 2004 i remember seeing Jimshaw Mr shockwave any many others. Got loads of code and lots typed up written by others like 2d flight routine, mars attack, tanks written by tappi there all on my ps3 but can only export them in .pvs
dose any one still have a working old ps3 with ps2 play back and the Yabasic demo disc?
Or could someone convert my .psv file to a more user friendly file.
-
thanks for the warm welcome guys. I was never a member of any Yabasic sites. But used to print loads of code out in school from the old Yabasic forums site in 2004 i remember seeing Jimshaw Mr shockwave any many others. Got loads of code and lots typed up written by others like 2d flight routine, mars attack, tanks written by tappi there all on my ps3 but can only export them in .pvs
dose any one still have a working old ps3 with ps2 play back and the Yabasic demo disc?
Or could someone convert my .psv file to a more user friendly file.
Glad to hear that you're having fun with the listings from the Yabasic Forums :) If it wasn't for that site then it's fair to say that this one would never have been started.
I tried to use the tool Raizor suggested above to convert your .psv file but it doesn't support the format.. There must be something else out there though!
-
It's a text file with a binary icon glued on the front :)
Neat demo!
open window 640,512
s=2
pic=8
squaresize=2.5
label loop
gosub new_screen
gosub back_ground
gosub controller
gosub animation
goto loop
label animation
a=a+s
if a>40 a=0
if b=0 and pic=1 goto pic1
if b=0 and pic=2 goto pic2
if b=0 and pic=7 goto pic7
if b=0 and pic=8 goto pic8
return
label down
rem down
if and(c,64)<>0 pic=1 : b=1
if a<10 gosub pic1
if a>=10 and a<=20 gosub pic10
if a>=20 and a<=30 gosub pic1
if a>=30 and a<=40 gosub pic9
return
label up
rem up
if and(c,16)<>0 pic=2 : b=1
if a<10 gosub pic2
if a>=10 and a<=20 gosub pic6
if a>=20 and a<=30 gosub pic2
if a>=30 and a<=40 gosub pic5
return
label left
rem left
if and(c,128)<>0 pic=7 : b=1
if a<10 gosub pic4
if a>=10 and a<=20 gosub pic7
if a>=20 and a<=30 gosub pic4
if a>=30 and a<=40 gosub pic7
return
label right
rem right
if and(c,32)<>0 pic=8 : b=1
if a<10 gosub pic8
if a>=10 and a<=20 gosub pic3
if a>=20 and a<=30 gosub pic8
if a>=30 and a<=40 gosub pic3
return
label new_screen
setdispbuf buf
buf=1-buf
setdrawbuf buf
return
label back_ground
rr=0 : gg=100 : bb=0
setrgb 1,rr,gg,bb
setrgb 2,rr,gg,bb
setrgb 3,rr,gg,bb
gtriangle 0,512 to 0,0 to 640,512
gtriangle 640,512 to 640,0 to 0,0
return
label controller
b=0
c=peek("port1")
if and(c,16) <>0 then py=py-s : b=b+16 fi
if and(c,64) <>0 then py=py+s : b=b+64 fi
if and(c,128) <>0 then px=px-s : b=b+128 fi
if and(c,32) <>0 then px=px+s : b=b+32 fi
if and(c,48) =48 b=b+48
if and(c,96) =96 b=b+96
if and(c,192) =192 b=b+192
if and(c,144) =144 b=b+144
if b=16 gosub up
if b=64 gosub down
if b=128 gosub left
if b=32 gosub right
if b=96 gosub right
if b=192 gosub right
if b=384 gosub left
if b=288 gosub left
if c<>32768 then s=2 fi
if and(c,32768)<>0 then s=3 fi
return
label pic1
restore pic1
rem front standing still
gridHeight = 16
gridWidth = 14
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,0,0,255
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3 4
rem | | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,0,1,2,2,2,1,1,2,2,2,1,0,0 rem -4
data 0,0,1,2,2,1,1,1,1,2,2,1,0,0 rem -5
data 0,1,1,1,1,3,3,3,3,1,1,1,1,0 rem -6
data 1,3,1,3,3,3,3,3,3,3,3,1,3,1 rem -7
data 1,3,3,3,3,1,3,3,1,3,3,3,3,1 rem -8
data 0,1,1,3,3,1,3,3,1,3,3,1,1,0 rem -9
data 0,0,1,1,3,3,3,3,3,3,1,1,0,0 rem -10
data 0,1,1,3,3,1,1,1,1,3,3,1,1,0 rem -11
data 1,3,3,1,2,3,3,3,3,2,1,3,3,1 rem -12
data 1,3,3,1,2,2,2,2,2,2,1,3,3,1 rem -13
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0 rem -14
data 0,0,1,2,2,1,1,1,1,2,2,1,0,0 rem -15
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0 rem -16
return
label pic2
restore pic2
rem back standing still
gridHeight = 16
gridWidth = 14
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,0,0,255
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =5 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3 4
rem | | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -4
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -5
data 0,1,1,1,2,2,2,2,2,2,1,1,1,0 rem -6
data 1,3,1,1,1,1,1,1,1,1,1,1,3,1 rem -7
data 1,3,3,1,1,1,1,1,1,1,1,3,3,1 rem -8
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0 rem -9
data 0,0,1,2,2,1,1,1,1,2,2,1,0,0 rem -10
data 0,1,2,1,1,5,5,5,5,1,1,2,1,0 rem -11
data 1,3,1,2,1,5,5,5,5,1,2,1,3,1 rem -12
data 1,3,1,1,1,5,5,5,5,1,1,1,3,1 rem -13
data 0,1,1,1,1,1,1,1,1,1,1,1,1,0 rem -14
data 0,0,1,2,2,1,0,0,1,2,2,1,0,0 rem -15
data 0,0,0,1,1,1,0,0,1,1,1,0,0,0 rem -16
return
label pic3
restore pic3
rem walk right
gridHeight = 15
gridWidth = 13
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3
rem | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0 rem -3
data 0,1,1,2,2,2,2,2,2,2,1,1,0 rem -4
data 1,2,2,2,2,2,2,2,2,2,1,1,1 rem -5
data 0,1,1,2,2,2,1,1,1,1,1,1,1 rem -6
data 0,1,1,1,1,1,1,3,3,1,3,1,0 rem -7
data 0,0,1,1,3,3,1,3,3,1,3,1,0 rem -8
data 0,0,0,1,3,3,3,3,3,3,3,1,0 rem -9
data 0,0,0,1,1,1,3,3,3,3,1,0,0 rem -10
data 0,0,1,4,1,1,3,1,1,1,0,0,0 rem -11
data 0,0,1,1,3,3,1,2,2,1,1,1,0 rem -12
data 0,1,2,1,3,3,1,2,1,1,2,2,1 rem -13
data 0,1,2,2,1,1,0,1,1,2,2,1,0 rem -14
data 0,0,1,1,0,0,0,0,1,1,1,0,0 rem -15
return
label pic4
restore pic4
rem walk left
gridHeight = 15
gridWidth = 13
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3
rem | | | | | | | | | | | | |
data 0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,1,1,2,2,2,2,2,2,2,1,1,0 rem -4
data 1,1,1,2,2,2,2,2,2,2,2,2,1 rem -5
data 1,1,1,1,1,1,1,2,2,2,1,1,0 rem -6
data 0,1,3,1,3,3,1,1,1,1,1,1,0 rem -7
data 0,1,3,1,3,3,1,3,3,1,1,0,0 rem -8
data 0,1,3,3,3,3,3,3,3,1,0,0,0 rem -9
data 0,0,1,3,3,3,3,1,1,1,0,0,0 rem -10
data 0,0,0,1,1,1,3,1,1,4,1,0,0 rem -11
data 0,1,1,1,2,2,1,3,3,1,1,0,0 rem -12
data 1,2,2,1,1,2,1,3,3,1,2,1,0 rem -13
data 0,1,2,2,1,1,0,1,1,2,2,1,0 rem -14
data 0,0,1,1,1,0,0,0,0,1,1,0,0 rem -15
return
label pic5
rem walk up hl / fr
restore pic5
gridHeight = 16
gridWidth = 14
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3 4
rem | | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -4
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -5
data 0,1,1,1,2,2,2,2,2,2,1,1,1,0 rem -6
data 1,3,1,1,1,1,1,1,1,1,1,1,3,1 rem -7
data 1,3,3,1,1,1,1,1,1,1,1,3,3,1 rem -8
data 0,1,1,1,1,1,1,1,1,1,1,1,1,1 rem -9
data 0,0,1,1,2,1,1,1,1,2,2,1,3,1 rem -10
data 0,1,3,3,1,4,4,4,4,1,1,1,1,0 rem -11
data 0,1,3,3,1,4,4,4,4,1,1,1,0,0 rem -12
data 0,0,1,1,1,4,4,4,4,1,1,0,0,0 rem -13
data 0,0,0,0,1,1,1,1,1,1,1,0,0,0 rem -14
data 0,0,0,0,0,0,0,1,1,2,1,0,0,0 rem -15
data 0,0,0,0,0,0,0,1,1,1,0,0,0,0 rem -16
return
label pic6
rem walk up hr / fl
restore pic6
gridHeight = 16
gridWidth = 14
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3 4
rem | | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -4
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -5
data 0,1,1,1,2,2,2,2,2,2,1,1,1,0 rem -6
data 1,3,1,1,1,1,1,1,1,1,1,1,3,1 rem -7
data 1,3,3,1,1,1,1,1,1,1,1,3,3,1 rem -8
data 1,1,1,1,1,1,1,1,1,1,1,1,1,0 rem -9
data 1,3,1,2,2,1,1,1,1,2,1,1,0,0 rem -10
data 0,1,1,1,1,4,4,4,4,1,3,3,1,0 rem -11
data 0,0,1,1,1,4,4,4,4,1,3,3,1,0 rem -12
data 0,0,0,1,1,4,4,4,4,1,1,1,0,0 rem -13
data 0,0,0,1,1,1,1,1,1,1,0,0,0,0 rem -14
data 0,0,0,1,2,1,1,0,0,0,0,0,0,0 rem -15
data 0,0,0,0,1,1,1,0,0,0,0,0,0,0 rem -16
return
label pic7
restore pic7
rem face l
gridHeight = 16
gridWidth = 13
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3
rem | | | | | | | | | | | | |
data 0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,1,1,2,2,2,2,2,2,2,1,1,0 rem -4
data 1,1,1,2,2,2,2,2,2,2,2,2,1 rem -5
data 1,1,1,1,1,1,1,2,2,2,1,1,0 rem -6
data 0,1,3,1,3,3,1,1,1,1,1,1,0 rem -7
data 0,1,3,1,3,3,1,3,3,1,1,0,0 rem -8
data 0,1,3,3,3,3,3,3,3,1,0,0,0 rem -9
data 0,0,1,3,3,3,3,1,1,1,0,0,0 rem -10
data 0,0,0,1,1,1,1,1,4,4,1,0,0 rem -11
data 0,0,0,1,2,1,1,1,4,4,1,0,0 rem -12
data 0,0,0,0,1,3,3,1,4,4,1,0,0 rem -13
data 0,0,0,1,1,3,3,1,1,1,0,0,0 rem -14
data 0,0,1,2,2,1,1,2,1,0,0,0,0 rem -15
data 0,0,0,1,1,1,1,1,0,0,0,0,0 rem -16
return
label pic8
restore pic8
rem face r
gridHeight = 16
gridWidth = 13
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =4 then setrgb 1,150,50,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3
rem | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0 rem -3
data 0,1,1,2,2,2,2,2,2,2,1,1,0 rem -4
data 1,2,2,2,2,2,2,2,2,2,1,1,1 rem -5
data 0,1,1,2,2,2,1,1,1,1,1,1,1 rem -6
data 0,1,1,1,1,1,1,3,3,1,3,1,0 rem -7
data 0,0,1,1,3,3,1,3,3,1,3,1,0 rem -8
data 0,0,0,1,3,3,3,3,3,3,3,1,0 rem -9
data 0,0,0,1,1,1,3,3,3,3,1,0,0 rem -10
data 0,0,1,4,4,1,1,1,1,1,0,0,0 rem -11
data 0,0,1,4,4,1,1,1,2,1,0,0,0 rem -12
data 0,0,1,4,4,1,3,3,1,0,0,0,0 rem -13
data 0,0,0,1,1,1,3,3,1,1,0,0,0 rem -14
data 0,0,0,0,1,2,1,1,2,2,1,0,0 rem -15
data 0,0,0,0,0,1,1,1,1,1,0,0,0 rem -16
return
label pic9
restore pic9
rem hand l foot r
gridHeight = 15
gridWidth = 14
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3 4
rem | | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,0,1,2,2,2,1,1,2,2,2,1,0,0 rem -4
data 0,0,1,2,2,1,1,1,1,2,2,1,0,0 rem -5
data 0,1,1,1,1,3,3,3,3,1,1,1,1,0 rem -6
data 1,3,1,3,3,3,3,3,3,3,3,1,3,1 rem -7
data 1,3,3,3,3,1,3,3,1,3,3,3,3,1 rem -8
data 0,1,1,3,3,1,3,3,1,3,3,1,1,1 rem -9
data 0,1,1,1,3,3,3,3,3,3,1,1,3,1 rem -10
data 0,1,2,1,1,1,1,1,1,1,2,1,1,0 rem -11
data 0,0,1,3,3,1,2,2,2,2,1,1,0,0 rem -12
data 0,0,1,3,3,1,2,2,1,1,1,0,0,0 rem -13
data 0,0,0,1,1,1,1,1,2,2,1,0,0,0 rem -14
data 0,0,0,0,0,0,0,0,1,1,0,0,0,0 rem -15
return
label pic10
restore pic10
rem hand r foot l
gridHeight = 15
gridWidth = 14
dim grid(gridHeight, gridWidth)
for h = 1 to gridHeight
for w = 1 to gridWidth
read grid(h, w)
next
next
scry = py
for h = 1 to gridHeight
scrx = px
for w = 1 to gridWidth
if grid(h, w) =1 then setrgb 1,0,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =2 then setrgb 1,255,0,0
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
if grid(h, w) =3 then setrgb 1,255,100,100
fill rectangle scrx, scry to scrx+squaresize, scry+squaresize fi
scrx = scrx + squaresize
next
scry = scry + squaresize
next
rem 1 1 1 1 1
rem 1 2 3 4 5 6 7 8 9 0 1 2 3 4
rem | | | | | | | | | | | | | |
data 0,0,0,0,1,1,1,1,1,1,0,0,0,0 rem -1
data 0,0,0,1,2,2,2,2,2,2,1,0,0,0 rem -2
data 0,0,1,2,2,2,2,2,2,2,2,1,0,0 rem -3
data 0,0,1,2,2,2,1,1,2,2,2,1,0,0 rem -4
data 0,0,1,2,2,1,1,1,1,2,2,1,0,0 rem -5
data 0,1,1,1,1,3,3,3,3,1,1,1,1,0 rem -6
data 1,3,1,3,3,3,3,3,3,3,3,1,3,1 rem -7
data 1,3,3,3,3,1,3,3,1,3,3,3,3,1 rem -8
data 1,1,1,3,3,1,3,3,1,3,3,1,1,0 rem -9
data 1,3,1,1,3,3,3,3,3,3,3,1,1,0 rem -10
data 0,1,1,2,1,1,1,1,1,1,1,2,1,0 rem -11
data 0,0,1,1,2,2,2,2,1,3,3,1,0,0 rem -12
data 0,0,0,1,1,1,2,2,1,3,3,1,0,0 rem -13
data 0,0,0,1,2,2,1,1,1,1,1,0,0,0 rem -14
data 0,0,0,0,1,1,0,0,0,0,0,0,0,0 rem -15
return
-
thanks Jim i am impressed you managed to get the code from a .psv file. If any one runs this change the squaresize from 2.5 to to 2 it looked ok 2.5 on a ps2 on a crt tv but on a ps3 on a hd lcd its better set to 2 if i remember right square makes him run.
-
Why can't I download the PSV file?
Oh, wait it was hiding in a ZIP file!