10 cls:mg%=0:mi%=0:dol%=1000:pob%=0:por%=0
20 for i%=1 to 10
50 gelload str$(I%),str$(I%)+".png"
60 next i%
80 spritegel "9","9":x%=5:y%=40
90 drawgel "1",0,0
100 drawgel "2",40,20
110 drawgel "3",40,100
120 drawgel "4",40,180
130 drawgel "5",40,260
131 uok%=0:dok%=0:fok%=0
140 spritemove "9",x%,y%
141 if down(0) then dok%=1:goto 140
150 if dok%=1 then dok%=0:mg%=mg%+1
151 if up(0) then uok%=1:goto 140
160 if uok%=1 then uok%=0:mg%=mg%-1
170 if mg%>3 then mg%=0
180 if mg%<0 then mg%=3
190 if mg%=0 then y%=40
200 if mg%=1 then y%=120
210 if mg%=2 then y%=200
220 if mg%=3 then y%=280
221 if fire(0) and mg%=0 then fok%=1:goto 140
230 if fok%=1 then fok%=0:goto 290
340 if fire(0) and mg%=1 then goto 680
250 if fire(0) and mg%=2 then goto 750
260 if fire(0) and mg%=3 then end
270 repaint
280 goto 140
290 setfont 1:cls:stavka%=0:y2%=200:chi%=0
291 drawgel "1",0,0
300 drawgel "6",19,140
310 drawgel "7",120,190
320 drawgel "10",120,230
330 drawgel "8",120,270
340 sl%=rand(1,100)
350 drawstring "Ваш счет: "+str$(dol%),60,10
360 drawstring "Угадайте случайное число от 1",5,50
370 drawstring "до 10. В случе победы получаете ",5,70
380 drawstring "2 раза больше денег чем ставки.",5,90
390 drawstring "Победы/Поражение: "+str$(pob%)+"/"+str$(por%),29,150
400 drawstring "Ставка: ",45,200
410 drawstring str$(stavka%),130,195
420 drawstring "Число: ",45,240
421 if chi%>0 then drawstring str$(chi%),130,235
430 spritemove "9",x%,y2%:sleep 40
440 if down(0) then mi%=mi%+1
450 if up(0) then mi%=mi%-1
460 if mi%>2 then mi%=0
470 if mi%<0 then mi%=2
480 if mi%=0 then y2%=200
490 if mi%=1 then y2%=240
500 if mi%=2 then y2%=280
510 if fire(0) and mi%=0 then goto 560
520 if fire(0) and mi%=1 then goto 580
530 if fire(0) and mi%=2 then goto 600
540 repaint
550 goto 430
560 input "Сделайте ставку!",stavka%:repaint
570 goto 291
580 input "Введите число ",chi%
590 goto 291
600 if stavka%>0 and chi%>0 then goto 620
610 if stavka%<1 then goto 350
611 if chi%<1 then goto 350
620 if chi%=sl% then goto 640
630 if chi%<sl% or chi%>sl% then goto 660
640 dol%=dol%+stavka%*2:pob%=pob%+1
650 goto 290
660 dol%=dol%-stavka%:por%=por%+1
670 goto 290
680 DRAWGEL "1",0,0: setfont 1
690 drawstring " Askalite,  тебе большое спасибо! ",40,60
700 drawstring "Дай вам бог здоровье!!!",5,85
710 drawstring " 3-назад",170,270
720 repaint
730 if gameb(0) then goto 80
740 goto 730
750 DRAWGEL "1",0,0:setfont 1
760 drawstring "Разработчик: KingDOSYA.",5,60:drawstring"Версия: v.1.0",5,60:drawstring"Оф. сайт: dosya.imob.su",5,60
780 drawstring "9-назад",170,270:repaint
790 if gameb(0) then goto 80
800 goto 790
810 end