xboxscene.org forums

Author Topic: Anyone Interested In Sobokan?  (Read 364 times)

flattspott

  • Archived User
  • Hero Member
  • *
  • Posts: 1220
Anyone Interested In Sobokan?
« on: June 25, 2004, 08:21:00 PM »

It's a puzzle game where you have to move some blocks around. Lokks doable.  <
Logged

Yuyu

  • Archived User
  • Hero Member
  • *
  • Posts: 908
Anyone Interested In Sobokan?
« Reply #1 on: June 25, 2004, 09:16:00 PM »

I was actually just looking at a version on source forge that has the puzzle files in xml format and everything, I hope you could do it, that game is awsome...
 <
Logged

flattspott

  • Archived User
  • Hero Member
  • *
  • Posts: 1220
Anyone Interested In Sobokan?
« Reply #2 on: June 25, 2004, 10:28:00 PM »

Well the source Im basing this off of is from planetsoucrecode.
Originally the level stuff was like:
CODE
If Level = 15 Then
LevelData(1) = "XXXXXXXXXXXXXXXXXXXX"
LevelData(2) = "XXXXXXXXXXXXXXXXXXXX"
LevelData(3) = "XXXXXVVVVVVVVXXXXXXX"
LevelData(4) = "XXXXXV   V  VXXXXXXX"
LevelData(5) = "XXXXXV  L   VXXXXXXX"
LevelData(6) = "XXXVVV VL   VVVVXXXX"
LevelData(7) = "XXXV  L  VVL   VXXXX"
LevelData(8) = "XXXV  V   L V LVXXXX"
LevelData(9) = "XXXV  V      L VVVVX"
LevelData(10) = "XXXVV VVVVLVV     VX"
LevelData(11) = "XXXV LVFFFFFV V   VX"
LevelData(12) = "XXXV  LFFffF LV VVVX"
LevelData(13) = "XXVV  VFFFFFV   VXXX"
LevelData(14) = "XXV   VVV VVVVVVVXXX"
LevelData(15) = "XXV LL  V  VXXXXXXXX"
LevelData(16) = "XXV  V     VXXXXXXXX"
LevelData(17) = "XXVVVVVV   VXXXXXXXX"
LevelData(18) = "XXXXXXXVVVVVXXXXXXXX"
LevelData(19) = "XXXXXXXXXXXXXXXXXXXX"
LevelData(20) = "XXXXXXXXXXXXXXXXXXXX"
LevelData(21) = "149"
End If


I changed it to an XML form. All 20 levels  <
Logged

Yuyu

  • Archived User
  • Hero Member
  • *
  • Posts: 908
Anyone Interested In Sobokan?
« Reply #3 on: June 25, 2004, 11:58:00 PM »

This is the one I was talking about HERE


This post has been edited by Yuyu: Jun 26 2004, 07:08 AM <
Logged

chilin_dude

  • Archived User
  • Hero Member
  • *
  • Posts: 3068
Anyone Interested In Sobokan?
« Reply #4 on: June 26, 2004, 12:00:00 AM »

wink.gif
I LOVE sokoban, me and my friends actually have ultimate competitions for cash on it....
PLEASE port it  smile.gif
Logged

flattspott

  • Archived User
  • Hero Member
  • *
  • Posts: 1220
Anyone Interested In Sobokan?
« Reply #5 on: June 26, 2004, 04:48:00 PM »

So I got that SokoSolve app. Pretty cool

I've been testing some gosub's for just displaying the boards. I ran into a small problem though. Not all boards have the same number of rows and columns.

So if if one puzzle is 10x10 and I use 36x36 tiles you'll see the whole thing. Where as if it's 20x20 with 36x36 tiles it'll get cutoff the screen.

I did come up with a solution to it. You can rescale the puzzle board at runtime. Make a big one smaller or a small one bigger if you need or want to.

And to top it off the whole board gets centered onscreen to regardless of the row and column count's.

Here's some of the magic:
CODE
:CenterCoordinates
Set ScreenCenterX %((ScreenWidth-(Columns*TileSize))/2)%
Set ScreenCenterY %((ScreenHeight-(Rows*TileSize))/2)%
Return

:ScreenSize
Set ScreenLeft 0
Set ScreenTop 0
Set ScreenWidth 640
Set ScreenHeight 480
Return
 <
Logged

geniusalz

  • Archived User
  • Hero Member
  • *
  • Posts: 1635
Anyone Interested In Sobokan?
« Reply #6 on: June 26, 2004, 05:50:00 PM »

QUOTE (flattspott @ Jun 27 2004, 03:37 AM)
So I got that SokoSolve app. Pretty cool

I've been testing some gosub's for just displaying the boards. I ran into a small problem though. Not all boards have the same number of rows and columns.

So if if one puzzle is 10x10 and I use 36x36 tiles you'll see the whole thing. Where as if it's 20x20 with 36x36 tiles it'll get cutoff the screen.

I did come up with a solution to it. You can rescale the puzzle board at runtime. Make a big one smaller or a small one bigger if you need or want to.

And to top it off the whole board gets centered onscreen to regardless of the row and column count's.

Here's some of the magic:
CODE
:CenterCoordinates
Set ScreenCenterX %((ScreenWidth-(Columns*TileSize))/2)%
Set ScreenCenterY %((ScreenHeight-(Rows*TileSize))/2)%
Return

:ScreenSize
Set ScreenLeft 0
Set ScreenTop 0
Set ScreenWidth 640
Set ScreenHeight 480
Return

Cool, you could also make it auto-fit-to-screen (if it already isn't)  <
Logged

flattspott

  • Archived User
  • Hero Member
  • *
  • Posts: 1220
Anyone Interested In Sobokan?
« Reply #7 on: June 26, 2004, 05:54:00 PM »

Yeah, like get the column and row counts then size the tiles accordingly beforehand.
 <
Logged

chilin_dude

  • Archived User
  • Hero Member
  • *
  • Posts: 3068
Anyone Interested In Sobokan?
« Reply #8 on: September 18, 2004, 04:13:00 AM »

Still planning on releasing this?  <
Logged