Симулятор мини-футбола 5х5

'freebasic
'Симулятор мини-футбола 5х5
CONST x00=50
CONST y00=114
' Время одного тайма в секундах
CONST halftime=180
' ширина поля
CONST deep=20
' длина поля
CONST wide=32
' зоны на поле
CONST q1=8
CONST q2=16
CONST q3=24
' мяч в массивах имеет индекс 0
CONST ball=0
 
' Здесь - процедуры нижнего уровня
' ...
' ...
 
' игрок продвигается к воротам противника
SUB advance(player AS LONG)
DIM d AS SINGLE,v AS SINGLE
info player,"advancing"
d=wide/4
IF NOT leftTeam(player) THEN d=-d
v=RND*deep+1
move(player,v,east(player)+d)
END SUB
 
' игрок отступает к своим воротам
SUB retreat(player AS LONG)
DIM d AS SINGLE,v AS SINGLE
info player,"retreating"
IF leftTeam(player) THEN d=(1-east(player))/4 ELSE d=(wide-east(player))/4
v=(RND*deep+1+down(p))/2
move(player,v,east(player)+d)
END SUB
 
' игрок пытается захватить мяч
SUB tackles(player AS LONG)
DIM d1 AS SINGLE, d2 AS SINGLE
move(player,down(ball),east(ball))
d1=distance(down(ball),east(ball),down(player),east(player))
d2=distance(down(ball),east(ball),down(withball),east(withball))
IF d1<d2 THEN
    withball=player:IF rnd>0.5 THEN dribble(player)
ELSE
    dribble(withball)
END IF
END SUB
 
' игрок атакует
SUB attack(player AS LONG)
IF player=withball THEN
    IF neargoal(player) THEN
        IF nearball(player) THEN shot(player) ELSE move(player,down(ball),east(ball))
    ELSE
        IF blocked(player) OR player=1 OR player=6 THEN pass(player) ELSE dribble(player)
    END IF
ELSE
   advance(player)
END IF
END SUB
 
' игрок защищается
SUB defend(player AS LONG)
IF nearball(player) OR rnd>0.75 THEN tackles(player) ELSE retreat(player)
END SUB
 
' собственно процесс игры
SUB playhalftime
tick0=TIMER
myplayer=0
kickoff
DO
    tick=TIMER
    ' выбрать игрока
    pick
    ' если команда игрока владеет мячом, то игрок атакует - иначе защищается
    IF leftTeam(myplayer)=leftTeam(withball) THEN attack(myplayer) ELSE defend(myplayer)
    ' ести забит гол, то поставить мяч и игроков на исходную позицию
    IF goal THEN kickoff
' повторять, пока не кончилось время тайма
LOOP WHILE INT(tick-tick0)<=halftime+1
END SUB
 
' основная программа
screenres 800,600,32,2
WIDTH INT(800/8),INT(600/16)
' выделить память под картинки
sprites=imagecreate(400,384)
mob=imagecreate(50,64)
' загрузить картинки спрайтов
BLOAD "gamespt.bmp",sprites
' цикл игры
DO
apage=0
init
' 1 тайм
half=1:playhalftime
' смена ворот
swapover
' 2 тайм
half=2:playhalftime
' выйти или повторить игру
gameover
LOOP