BaselScript Interpreter

scene=1 name="puzzle nXn" cs=brown

section init

call menu=menu

end

menu menu

tile=title text = @select_puzzle_dimension

tile=item text="2x2" section=22

tile=item text="3x3" section=33

tile=item text="4x4" section=44

tile=item text="5x5" section=55

tile=item text="6x6" section=66

// tile=item text="7x7" section=77

tile=item text="<" section=back

end

section 22

#tiles_w=2

#tiles_h=2

call scene=2

end

section 33

#tiles_w=3

#tiles_h=3

call scene=2

end

section 44

#tiles_w=4

#tiles_h=4

call scene=2

end

section 55

#tiles_w=5

#tiles_h=5

call scene=2

end

section 66

#tiles_w=6

#tiles_h=6

call scene=2

end

section 77

#tiles_w=7

#tiles_h=7

call scene=2

end

section back

call script=13_0_games

end

end scene

========================================================================

scene=2 name="puzzle nXn" cs=brown

section init

if #_orientation == portrait

#form=port

else

#form=land

endif

#_scaling_mode="proportional"

#text0=@please_first

#text1=@please_second

#tt=#text0

#directory=#_directory_images_examples

#image="44.png"

split image=#image dimension=$concate(#tiles_w,"x",#tiles_h) directory=#directory

// after SPLIT we have 2 fields - #_image_width and #_image_height

#x_offset=(#_width_virtual-#_image_width)/2

if #_orientation == portrait

#y_offset=220

// #x_offset=(#_width_virtual-#_image_width)/2

#form=port

else

#y_offset=120

// #x_offset=(#_width_virtual-#_image_width)/2

#form=land

endif

// compute of tile width

#tile_width= #_image_width/#tiles_w

#tile_width=$math.truncate(#tile_width)

// compute of tile height

#tile_height= #_image_height/#tiles_h

#tile_height=$math.truncate(#tile_height)

// for select ot change tiles

#step=0

// compute count of tiles

#counter=#tiles_w*#tiles_h

clear form=#form

create tile=text name=title x=0 y=40 h=120 text=#tt gravity=center weight=bold style=italic s=38

// create form with tiles

for #index=0 step=1 to=#counter section= bb

// marker

create tile=rect name=rect x=0 y=0 w= 15 h= 15 bgcolor=red color=red visible=0

// mix the pieces

for #index=0 step=1 to=10 section=rand

draw form=#form

end section

---------------------------------------------------------------------------------------------------------------------------------------------

section rand

// get number of name for first piece

#s1=$math.random(1,#counter)

// get number of name for second piece

#s2=$math.random(1,#counter)

// exchange of text content for paar tiles

#t= $form.exchange_text(#form,#s1,#s2)

// example: #s1=1 #s2=3

// result:

// tile=image_tile name=1 ... text=3_1

// tile=image_tile name=3 ... text=1_1

end section

-----------------------------------------------------------------------------------------------------------------------------------------------------

section bb

// compute row-number

#_y= #index/#tiles_w

#_y= $math.truncate(#index/#tiles_w)

// compute column-number

#_x=#index-#_y*#tiles_w

// create tile name -> e.g. 1_1 2_1 3_1 etc.

#_y++

#_x++

#tile_name=$concate(#_x,"_",#_y)

// compute coordinate

#x= #x_offset+(#_x-1)*#tile_width

#y=#y_offset+(#_y-1)*#tile_height

#button_name=$concate("button_",#index)

// draw image tile

create tile=image_tile name=$value(#index) x=#x+2 y=#y+2 w=#tile_width-2 h=#tile_height-2 text=#tile_name

// draw button over image tile

create tile=button name=$value(#button_name) x=#x-1 y=#y-1 w=#tile_width h=#tile_height text=#index color=transparent bgcolor=transparent section=b

end

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

section b

// after touch over piece

#step=#step+1

// first touch, select first tile

if #step==1

#tile1= #_selected_button_text

#x_rect=$form.tile_x(#form,#tile1)

#y_rect=$form.tile_y(#form,#tile1)

#tt=#text1

set form=#form name=title text=#tt

set form=#form name=rect visible=1 x=#x_rect y=#y_rect

endif