Support Forum / Форум поддержки

Code: Select all

'PegSolitare.txt v1.0 (ipad only)
'Classic peg puzzle game
'Coded by Dav, SEP/2017

'Note: Sorry, this is for ipad only right now.
'I'll finish making it 'all devices' later this
'week, maybe, if I have time....

'initialize program
randomize
option base 1
set toolbar off
get orientation ort
set orientation vertical
get screen size sw,sh
rw=sw/768!rh=sh/1024  'all device fix

sound=1
showjumps=1

'======
restart:
'======

graphics
graphics clear .2,.2,.2
set buttons custom

'draw background texture
draw alpha .3
draw font size 100 
draw color 0,0,0
'a litte background
for x=1 to sw step 61
   for y =1 to sh step 102
      draw text chr$(9619) at x,y
   next y
next x
draw alpha 1

'draw title...
shadow on
peg$=chr$(9439)&chr$(9428)&chr$(9430) 'peg emoji
draw color .3,.3,.3
draw font size 56
draw text peg$ at 295,25
draw color .5,.5,.5
draw text peg$ at 293,23
draw font size 44
draw text "SOLITARE" at 279,74
shadow off

'draw board background
fill color .4,.4,.4! fill rect 244,180 to 524,788
fill color .8,.8,.8 ! fill rect 264,200 to 504,770
fill color .4,.4,.4!fill rect 84,330 to 688,642
fill color .8,.8,.8!fill rect 104,346 to 668,622

'black ball, empty ball
x$=chr$(9899)!o$=chr$(9898)

'make an array for button data, 35 places
dim bv$(35)!for t=1 to 35!bv$(t)=x$!next t
'mark center as empty
bv$(17)=o$

gosub makebuttons

'===
main:
'===

selected=0
gosub drawboard
gosub checkifmovesleft

second:

do
  for t=1 to 33
    if button_pressed(str$(t)) then 

       'if first choice...
       if selected=0 then
          'only select an x$ pad
          if bv$(t)=x$ then
             selected=1 ! selbtn=t ! but(t)
             'show jump options
             if showjumps=1 then
                show=1!gosub checkandmove!show=0
             end if
             if sound=1 then
                notes set "120:sg7"!notes play
             end if
             goto second  'now get second choice
          end if

       else  'making second choice
          'only jump to blank pads
          if bv$(t)=o$ then
            gosub checkandmove
            goto main
          else
            'clear previous highlighted btn
            selected=0!gosub drawboard!selected=1
            'set new one now...
            selbtn=t!but(t)
             'show jump options
             if showjumps=1 then
                show=1!gosub checkandmove!show=0
             end if
            if sound=1 then
               notes set "120:sg7"!notes play
            end if
            goto second
          end if
       end if
    end if
  next t

  if button_pressed("restart") then goto restart
  if button_pressed("jumps") then
     if showjumps=1 then
        showjumps=0
     else 
        showjumps=1
     end if
     gosub makebuttons
  end if
  if button_pressed("quit") then
     set orientation ort ! end
  end if
  if button_pressed("sound") then
     if sound=1 then
        sound=0
     else 
        sound=1
     end if
     gosub makebuttons
  end if
  if button_pressed("quit") then
     set orientation ort ! end
  end if
until 0

end


end


'========
drawboard:
'========

for b=1 to 33
  but(b)
next b

return


'==========
makebuttons:
'==========

'make a restart button
set buttons custom
set buttons font size 36*rw
draw color 0,0,0
fill color 1,1,.8
button "restart" text "Restart" at 325*rw,900*rh

'make a quit button
draw color 0,0,0
fill color 1,.5,.5
button "quit" text "Quit" at 25*rw,25*rh

'make sound on/off button
if sound=0 then
   fill color .3,.3,.3
   button "sound" text "Sound=Off" at 25*rw,900*rh
else
   fill color .6,.6,.6
   button "sound" text "Sound=On" at 25*rw,900*rh
end if

'make show jump on/off button
if showjumps=0 then
   fill color .3,.3,.3
   button "jumps" text "Jumps=Off" at 550*rw,900*rh
else
   fill color .6,.6,.6
   button "jumps" text "Jumps=On" at 550*rw,900*rh
end if

return


'===============================
def but(n) 'draws puzzle buttons

draw color .8,.8,.8
set buttons font size 70*.rw

if .selected = 1 then
   fill color 1,1,.9
else
   fill color .8,.8,.8
end if

if n=1 then button n text .bv$(n) at 264*.rw,210*.rh size 80*.rw,80*.rh
if n=2 then button n text .bv$(n) at 344*.rw,210*.rh size 80*.rw,80*.rh
if n=3 then button n text .bv$(n) at 424*.rw,210*.rh size 80*.rw,80*.rh
if n=4 then button n text .bv$(n) at 264*.rw,290*.rh size 80*.rw,80*.rh
if n=5 then button n text .bv$(n) at 344*.rw,290*.rh size 80*.rw,80*.rh
if n=6 then button n text .bv$(n) at 424*.rw,290*.rh size 80*.rw,80*.rh
if n=7 then button n text .bv$(n) at 104*.rw,370*.rh size 80*.rw,80*.rh
if n=8 then button n text .bv$(n) at 184*.rw,370*.rh size 80*.rw,80*.rh
if n=9 then button n text .bv$(n) at 264*.rw,370*.rh size 80*.rw,80*.rh
if n=10 then button n text .bv$(n) at 344*.rw,370*.rh size 80*.rw,80*.rh
if n=11 then button n text .bv$(n) at 424*.rw,370*.rh size 80*.rw,80*.rh
if n=12 then button n text .bv$(n) at 504*.rw,370*.rh size 80*.rw,80*.rh
if n=13 then button n text .bv$(n) at 584*.rw,370*.rh size 80*.rw,80*.rh
if n=14 then button n text .bv$(n) at 104*.rw,450*.rh size 80*.rw,80*.rh
if n=15 then button n text .bv$(n) at 184*.rw,450*.rh size 80*.rw,80*.rh
if n=16 then button n text .bv$(n) at 264*.rw,450*.rh size 80*.rw,80*.rh
if n=17 then button n text .bv$(n) at 344*.rw,450*.rh size 80*.rw,80*.rh
if n=18 then button n text .bv$(n) at 424*.rw,450*.rh size 80*.rw,80*.rh
if n=19 then button n text .bv$(n) at 504*.rw,450*.rh size 80*.rw,80*.rh
if n=20 then button n text .bv$(n) at 584*.rw,450*.rh size 80*.rw,80*.rh
if n=21 then button n text .bv$(n) at 104*.rw,530*.rh size 80*.rw,80*.rh
if n=22 then button n text .bv$(n) at 184*.rw,530*.rh size 80*.rw,80*.rh
if n=23 then button n text .bv$(n) at 264*.rw,530*.rh size 80*.rw,80*.rh
if n=24 then button n text .bv$(n) at 344*.rw,530*.rh size 80*.rw,80*.rh
if n=25 then button n text .bv$(n) at 424*.rw,530*.rh size 80*.rw,80*.rh
if n=26 then button n text .bv$(n) at 504*.rw,530*.rh size 80*.rw,80*.rh
if n=27 then button n text .bv$(n) at 584*.rw,530*.rh size 80*.rw,80*.rh
if n=28 then button n text .bv$(n) at 264*.rw,610*.rh size 80*.rw,80*.rh
if n=29 then button n text .bv$(n) at 344*.rw,610*.rh size 80*.rw,80*.rh
if n=30 then button n text .bv$(n) at 424*.rw,610*.rh size 80*.rw,80*.rh
if n=31 then button n text .bv$(n) at 264*.rw,690*.rh size 80*.rw,80*.rh
if n=32 then button n text .bv$(n) at 344*.rw,690*.rh size 80*.rw,80*.rh
if n=33 then button n text .bv$(n) at 424*.rw,690*.rh size 80*.rw,80*.rh

end def


'===========
checkandmove:
'===========
'selbtn = first selected button
't = the second selected button (destination)

'====== logic for btn 1
if selbtn=1 then
  'go from 1 to 4, jumping over 2,etc...
  if t=3 or show=1 or moves=1 then jump(1,2,3)
  if t=9 or show=1 or moves=1 then jump(1,4,9)
end if

'====== logic for btn 2
if selbtn=2 then
   if t=10 or show=1 or moves=1 then jump(2,5,10)
end if

'====== logic for btn 3
if selbtn=3 then
  if t=1 or show=1 or moves=1 then jump(3,2,1)
  if t=11 or show=1 or moves=1 then jump(3,6,11)
end if

'====== logic for btn 4
if selbtn=4 then
  if t=6 or show=1 or moves=1 then jump(4,5,6)
  if t=16 or show=1 or moves=1 then jump(4,9,16)
end if

'====== logic for btn 5
if selbtn=5 then
  if t=17 or show=1 or moves=1 then jump(5,10,17)
end if

'====== logic for btn 6
if selbtn=6 then
  if t=4 or show=1 or moves=1 then jump(6,5,4)
  if t=18 or show=1 or moves=1 then jump(6,11,18)
end if

'====== logic for btn 7
if selbtn=7 then
  if t=9 or show=1 or moves=1 then jump(7,8,9)
  if t=21 or show=1 or moves=1 then jump(7,14,21)
end if

'====== logic for btn 8
if selbtn=8 then
  if t=10 or show=1 or moves=1 then jump(8,9,10)
  if t=22 or show=1 or moves=1 then jump(8,15,22)
end if

'====== logic for btn 9
if selbtn=9 then
  if t=1 or show=1 or moves=1 then jump(9,4,1)
  if t=11 or show=1 or moves=1 then jump(9,10,11)
  if t=7 or show=1 or moves=1 then jump(9,8,7)
  if t=23 or show=1 or moves=1 then jump(9,16,23)
end if

'====== logic for btn 10
if selbtn=10 then
  if t=8 or show=1 or moves=1 then jump(10,9,8)
  if t=2 or show=1 or moves=1 then jump(10,5,2)
  if t=12 or show=1 or moves=1 then jump(10,11,12)
  if t=24 or show=1 or moves=1 then jump(10,17,24)
end if

'====== logic for btn 11
if selbtn=11 then
  if t=13 or show=1 or moves=1 then jump(11,12,13)
  if t=3 or show=1 or moves=1 then jump(11,6,3)
  if t=9 or show=1 or moves=1 then jump(11,10,9)
  if t=25 or show=1 or moves=1 then jump(11,18,25)
end if

'====== logic for btn 12
if selbtn=12 then
  if t=10 or show=1 or moves=1 then jump(12,11,10)
  if t=26 or show=1 or moves=1 then jump(12,19,26)
end if

'====== logic for btn 13
if selbtn=13 then
  if t=11 or show=1 or moves=1 then jump(13,12,11)
  if t=27 or show=1 or moves=1 then jump(13,20,27)
end if

'====== logic for btn 14
if selbtn=14 then
  if t=16 or show=1 or moves=1 then jump(14,15,16)
end if

'====== logic for btn 15
if selbtn=15 then
  if t=17 or show=1 or moves=1 then jump(15,16,17)
end if

'====== logic for btn 16
if selbtn=16 then
  if t=14 or show=1 or moves=1 then jump(16,15,14)
  if t=4 or show=1 or moves=1 then jump(16,9,4)
  if t=18 or show=1 or moves=1 then jump(16,17,18)
  if t=28 or show=1 or moves=1 then jump(16,23,28)
end if

'====== logic for btn 17
if selbtn=17 then
  if t=19 or show=1 or moves=1 then jump(17,18,19)
  if t=15 or show=1 or moves=1 then jump(17,16,15)
  if t=5 or show=1 or moves=1 then jump(17,10,5)
  if t=29 or show=1 or moves=1 then jump(17,24,29)
end if

'====== logic for btn 18
if selbtn=18 then
  if t=20 or show=1 or moves=1 then jump(18,19,20)
  if t=16 or show=1 or moves=1 then jump(18,17,16)
  if t=6 or show=1 or moves=1 then jump(18,11,6)
  if t=30 or show=1 or moves=1 then jump(18,25,30)
end if

'====== logic for btn 19
if selbtn=19 then
  if t=17 or show=1 or moves=1 then jump(19,18,17)
end if

'====== logic for btn 20
if selbtn=20 then
  if t=18 or show=1 or moves=1 then jump(20,19,18)
end if

'====== logic for btn 21
if selbtn=21 then
  if t=23 or show=1 or moves=1 then jump(21,22,23)
  if t=7 or show=1 or moves=1 then jump(21,14,7)
end if

'====== logic for btn 22
if selbtn=22 then
  if t=24 or show=1 or moves=1 then jump(22,23,24)
  if t=8 or show=1 or moves=1 then jump(22,15,8)
end if

'====== logic for btn 23
if selbtn=23 then
  if t=25 or show=1 or moves=1 then jump(23,24,25)
  if t=21 or show=1 or moves=1 then jump(23,22,21)
  if t=9 or show=1 or moves=1 then jump(23,16,9)
  if t=31 or show=1 or moves=1 then jump(23,28,31)
end if

'====== logic for btn 24
if selbtn=24 then
  if t=26 or show=1 or moves=1 then jump(24,25,26)
  if t=22 or show=1 or moves=1 then jump(24,23,22)
  if t=10 or show=1 or moves=1 then jump(24,17,10)
  if t=32 or show=1 or moves=1 then jump(24,29,32)
end if

'====== logic for btn 25
if selbtn=25 then
  if t=27 or show=1 or moves=1 then jump(25,26,27)
  if t=23 or show=1 or moves=1 then jump(25,24,23)
  if t=11 or show=1 or moves=1 then jump(25,18,11)
  if t=33 or show=1 or moves=1 then jump(25,30,33)
end if

'====== logic for btn 26
if selbtn=26 then
  if t=24 or show=1 or moves=1 then jump(26,25,24)
  if t=12 or show=1 or moves=1 then jump(26,19,12)
end if

'====== logic for btn 27
if selbtn=27 then
  if t=25 or show=1 or moves=1 then jump(27,26,25)
  if t=13 or show=1 or moves=1 then jump(27,20,13)
end if

'====== logic for btn 28
if selbtn=28 then
  if t=30 or show=1 or moves=1 then jump(28,29,30)
  if t=16 or show=1 or moves=1 then jump(28,23,16)
end if

'====== logic for btn 29
if selbtn=29 then
  if t=17 or show=1 or moves=1 then jump(29,24,17)
end if

'====== logic for btn 30
if selbtn=30 then
  if t=28 or show=1 or moves=1 then jump(30,29,28)
  if t=18 or show=1 or moves=1 then jump(30,25,18)
end if

'====== logic for btn 31
if selbtn=31 then
  if t=33 or show=1 or moves=1 then jump(31,32,33)
  if t=23 or show=1 or moves=1 then jump(31,28,23)
end if

'====== logic for btn 32
if selbtn=32 then
  if t=24 or show=1 or moves=1 then jump(32,29,24)
end if

'====== logic for btn 33
if selbtn=33 then
  if t=25 or show=1 or moves=1 then jump(33,30,25)
  if t=31 or show=1 or moves=1 then jump(33,32,31)
end if

return


'===============
checkifmovesleft:
'===============

moves=1 'check move flag on
movesleft=0
for selbtn=1 to 33 'checl all buttons
   gosub checkandmove
next selbtn
moves=0 'turn off flag

'if no moves left, game over
if movesleft= 0 then 
    'count how many left
    bc=0
    for b=1 to 33
      if bv$(b)=x$ then bc=bc+1
    next b
    'show number
    set buttons font size 36*rw
    draw color 1,1,1
    fill color 0,0,1
    if bc>1 then
       tx$=str$(bc)&" left. Not bad."
    else
       tx$=str$(bc)&" left. Awesome!"
    end if
    tl=text_width(tx$)
    button "over" text tx$ at 260*rw,(sh/2-100)*rh
    'notes set "111:h(d3fa)(dga#)(dfa)"
    'notes play ! pause 3
    button "over" delete
    goto restart
end if

return


def jump(s,j,d)
  'This little function reduced code size 40%.
  'Does the jump if possible, and alters button array data.
  'If show flag on, just highlight button instead.
  'If moves flag on, see if move possible, but dont move.
  's=first selected button
  'j=button to jump over
  'd=destination button
    if .moves=1 then
       if .bv$(s)=.x$ and .bv$(j)=.x$ and .bv$(d)=.o$ then
          .movesleft=1 ! return
       end if
    end if
    if .bv$(j)=.x$ then
       if .show=1 then
         if .bv$(d)=.o$ then but(d)
       end if
       if .show=0 and .moves=0 then
         .bv$(s)=.o$!.bv$(j)=.o$!.bv$(d)=.x$
         if .sound=1 then
            notes set "120:sa6"!notes play
         end if
       end if
    end if
end def