Код: Выделить всё
screen 12
cls
randomize timer
keyup$ = chr$(0) + chr$(72)
keydown$=chr$(0) + chr$(80)
keyleft$=chr$(0) + chr$(75)
keyright$=chr$(0) +chr$(77)
keyent$=chr$(13)
keyesc$=chr$(27)
dim x1ch(20),x2ch(20)
dim y1ch(20),y2ch(20)
dim x1komp(20),x2komp(20)
dim y1komp(20),y2komp(20)
dim x1(20),x2(20),y1(20),y2(20),u(20),w(20)
fomin:
cls
color 4,8
locate 10,35,0
print "start"
locate 12,35,0
print "Pravila"
locate 14,35,0
print "Exit"
curpos =1
draw "c4 bm270,142 r43 d19 l43 u19"
do
prkey$=inkey$
select case prkey$
case keyent$
if curpos =1 then
gosub start
gosub fomin
elseif curpos = 2 then
gosub rules
gosub fomin
else
goto 1
end if
case keyup$
gosub movecursorup
if (curpos >1) then
curpos=curpos -1
else
curpos =4
end if
case keydown$
gosub movecursordown
if(curpos<4) then
curpos =curpos+1
else
curpos=1
end if
case keyesc$
goto 1
end select
loop until ((prkey$=keyent$) or (prkey$= keyesc$))
return
1
end
movecursorup:
select case curpos
case 1
draw "c1 bm270,142 r43 d19 l43 u19"
case 2
draw "c1 bm270,173 r59 d19 l59 u19"
draw "c4 bm270,142 r43 d19 l43 u19"
case 3
draw "c1 bm270,204 r43 d19 l43 u19"
draw "c4 bm270,173 r59 d19 l59 u19"
case 4
draw "c4 bm270,204 r43 d19 l43 u19"
end select
return
movecursordown:
select case curpos
case 1
draw "c1 bm270,142 r43 d19 l43 u19"
draw "c4 bm270,173 r59 d19 l59 u19"
case 2
draw "c1 bm270,173 r59 d19 l59 u19"
draw "c4 bm270,204 r43 d19 l43 u19"
case 3
draw "c1 bm270,204 r43 d19 l43 u19"
case 4
draw "c4 bm270,142 r43 d19 l43 u19"
end select
return
rules:
cls
print "PRAVILA"
print "igra 'NA DOROGKAH' "
print "Igraut dvoe. Imeetsa neskolko dorogek.Na kagdoi dorogke nahoditsa odinakovoe kolichestvo fishek"
print "Hod sostoit v tom, chto igrok peredvigaet fishky na ne bolee chem maksimalniy hod"
print "Hodi delaut poocheredno do teh por,"
print "poka igroky chei hod seichas ne kyda peredvinyt fishky na lyboi dorogke"
print "Pobeditelem schitaetsa igrok, sdelavshii poslednii hod."
print" "
print "Dlya peremeshenia kursora v menu ispolzuyt strelki vverh i vniz"
print "dlya vibora punkta menu ispolzuyt klavishu ENTER"
print "Dlya peremeshenia fishki v igre ispolzuyt strelki vlevo ,vpravo,vniz,vverh"
print "chtoby sdelat hod nado nagat ENTER"
delay 35
return
start:
cls
n=2
m=7
p=2
gosub pole
print "Hotite izmenit nastroiki?"
do
print "1-da,0-net"
input rp
loop until (rp=1) or (rp=0)
if rp=0 then
gosub hod
else
gosub gamech
end if
return
gamech:
do
print "vvedite chislo dorogek:"
input nn
loop until (nn>0) and (nn<6)
n=int(nn)
do
print "vvedite chislo fishek:"
input mm
loop until (mm>2) and (mm<11)
m=int(mm)
do
print "vvedite maksimalnii hod:"
input pp
loop until (pp>0) and (pp<5) and (pp<=m)
p=int(pp)
gosub hod
return
pole:
for j=1 to n step 1
y1[j]=170+20*j
y2[j]=180+20*j
for i=1 to m step 1
x1[i]=250+20*i
x2[i]=260+20*i
line (x1[i],y1[j])-(x2[i],y2[j]),6,bf
next i
next j
for h=1 to n
x1ch[h]=270
y1ch[h]=170+h*20
x2ch[h]=280
y2ch[h]=180+h*20
line(x1ch[h],y1ch[h])-(x2ch[h],y2ch[h]),2,bf
next h
for k=1 to n
x1comp[k]=270+20*(m-1)
x2comp[k]=280+20*(m-1)
y1comp[k]=170+k*20
y2comp[k]=180+k*20
line(x1comp[k],y1comp[k])-(x2comp[k],y2comp[k]),19,bf
next k
return
hod:
print"kto budet hodit pervim?"
do
print"1-chelovek,0-computer"
input z
loop until (z=1) or (z=0)
gosub game1
return
game1:
cls
for i=1 to n
u[i]=m-2
next i
gosub pole
if z =1 then
gosub hodchelovek
else
gosub hodkomp1
end if
return