Author Topic: Magic24 Game  (Read 1768 times)

0 Members and 1 Guest are viewing this topic.

Aaron

  • Guest
Magic24 Game
« on: March 19, 2014, 02:53:37 PM »
Hi,

here is a puzzle game,  Magic24.

To solve this puzzle you must have this contruction:

01 02 03 04 05
06 07 08 09 10
11 12 13 14 15
16 17 18 19 20
21 22 23 24

Code: [Select]
Include "ss.inc"
OpenWindow 320,320,1
fo= LoadFont "gfxmagic/bne2.ttf",28,1

Dim xm, ym, ibx, iax, ras, bDir as sys
Dim x1, y1, z1, a, skey as sys
Dim Map(64), Buf(26) as sys

num = LoadImage "gfxmagic/blocks.png",25
wav1= LoadWav "gfxmagic/clic.wav"
wav2= LoadWav "gfxmagic/attention.wav"

Sub MoveBloc()
iF ras=0 Then Exit Sub
iF bDir=1
   DrawImage num,x1,y1,iax
   x1 +=2
   z1 +=2
   iF z1=64
      ras=0
      z1 =0
      x1 = x1/64
      y1 = y1/64
      ibx = y1*5 + x1
      Map(ibx) =iax
   End iF
ElseiF bDir=2
   DrawImage num,x1,y1,iax
   x1 -=2
   z1 +=2
   iF z1 =64
      ras=0
      z1 =0
      x1 = x1/64
      y1 = y1/64
      ibx = y1*5 + x1
      Map(ibx) =iax
   End iF
ElseiF bDir=3
   DrawImage num,x1,y1,iax
   y1 -=2
   z1 +=2
   iF z1 =64
      ras=0
      z1 =0
      x1 = x1/64
      y1 = y1/64
      ibx = y1*5 + x1
      Map(ibx) =iax
    End iF
ElseiF bDir=4
    DrawImage num,x1,y1,iax
    y1 +=2
    z1 +=2
    iF z1 =64
       ras=0
       z1 =0
       x1 = x1/64
       y1 = y1/64
       ibx = y1*5 + x1
       Map(ibx) =iax
    End iF
End iF
End Sub

Sub IsBloc()
    iF ras >0 Then Exit Sub
    xm = xMouse() /64
    ym = yMouse() /64
    ibx = ym*5 + xm
    iF MouseButton()=1
       iax = Map(ibx)
       iF iax=0 Then Exit Sub
       iF Map(ibx+1) =0
          Ras =1
  bDir =1
          Map(ibx) =0
          x1 = xm*64
  y1 = ym*64
          PlayWav wav1
       ElseiF Map(ibx-1) =0 and xm >0
          ras =1
  bDir=2
          Map(ibx) =0
          x1 = xm*64
  y1 = ym*64
          PlayWav wav1
       ElseiF Map(ibx-5) =0 and ym >0
          Ras =1
  bDir=3
          Map(ibx) =0
          x1 = xm*64
  y1 = ym*64
          PlayWav wav1
       ElseiF Map(ibx+5) =0
          ras =1
  bDir=4
          Map(ibx) =0
          x1 = xm*64
  y1 = ym*64
          PlayWav wav1
       End iF
    End iF
End Sub

Sub ShowMap()
    Long px, py, pz, pa
    For py=0 To 4
    For px=0 To 4
        pa = py*5 + px
        pz = Map(pa)
        DrawImage num,px*64,py*64,pz
    Next
    Next
End Sub

Function Buffer(long rd) as long
Long ix=0
While ix <24
iF Buf(ix)=rd
   Return 1
End iF
ix +=1
Wend
ix =0
While ix <24
iF Buf(ix) =0 
   Buf(ix) = rd
   Exit Function
End iF
ix +=1
Wend
End Function

Sub Start()
    Long pa, px, pz
    For pa=0 To 64
        Map(pa)=255
    Next
    ras=0
    z1=0
    a=0
    For pa=0 To 24
        Buf(pa) =0
        Map(pa) =0
    Next
    While px <24
        pa = Rnd(1,24)
        pz = Buffer(pa)
        iF pz <> 1 
           Map(px) = pa
           px +=1
        End iF
    Wend
End Sub

Sub Ready()
    iF a=1 Then Exit Sub
    For ix=0 To 23
        iF Map(ix) <> ix+1 Then Exit Sub
    Next
    PlayWav wav2
    a=1
End Sub

Start()

While Key(27)=0
Cls 0,0,0
ShowMap
IsBloc
MoveBloc
Ready
iF a=1
   DrawText fo,60,100," YOU GOT IT ",RGB(255,255,255)
   DrawText fo,34,140,"PRESS SPACE BAR",RGB(255,255,255)
End iF
Redraw
Wait 5
iF Key(32) and sKey=0
   Start()
   sKey=1
End iF
iF Key(32)=0 then sKey=0
Wend
CloseWindow

.