Yabasic PS3 walking spirit/Bob demo from pokemon

[Rubber131186]

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

[Rubber131186]

file

[Hotshot]

  Rubber131186

YABASIC work on PS 3 

[Raizor]

Hi Rubber, welcome to DBF

This thread may be of interest to you.

Thanks for sharing your work.

[Shockwave]

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!

[Raizor]

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 looks like it will convert them.

[Rubber131186]

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.

[Shockwave]

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!

[Jim]

It's a text file with a binary icon glued on the front

Neat demo!

Code: [Select]

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


[Rubber131186]

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.

[Wenlock]

Why can't I download the PSV file?

Oh, wait it was hiding in a ZIP file!