; p> AT: = TG [I]. DAIAGE; p> CTP: = TG [I]. DAIZWET; p> tg [i]. Done; p> IF CT <> 0 THEN p> BEGIN p> tg [i]. Init (x, y, at, CTP); p> tg [i]. Show; p> END; p> END; p> UNTIL I> = G; p> end; p> {****************************************** *****************} p> procedure trod; p> begin p> if (z mod 365) = 0 then {Happy New Year!} p> begin p> t: = 0; p> for i: = 1 to g do p> begin p> at: = tg [i]. Daiage; p> if (tmin <= at) AND (AT <= tmax) then t: = t +1; p> end; p> t: = (t div 2); p> x: = 0; p> if t> 0 then p> begin p> FOR I: = 1 TO T DO p> begin p> J: = RANDOM (TP); p> x: = x + j; p> end; p> for y: = g+ 1 to g+ 1 + x do p> begin p> tg [y]. Init ((random (630) +5), (random (462) +18), 0, ct); p> tg [y]. Show; p> if y> 4100 then break; p> end; p> g: = g+ 1 + x; p> if g> 4000 then p> begin p> key: = true; p> end; p> end p> else p> begin p> end; p> end; p> end; p> {****************************************** *****************} p> procedure hnew; p> begin p> I: = 0; p> REPEAT p> I: = I +1; p> begin p> x: = hr [i]. Getx; p> y: = hr [i]. Gety; p> At: = hr [I]. DAIAGE; p> CTp: = hr [I]. DAIZWET; p> if (z mod 365) = 0 then p> BEGIN p> at: = at +1; {Happy New Year!} p> hr [I]. INIT (X, Y, At, CTp); p> END; p> if at> w then {Old?} p> begin p> hr [i]. Done; p> hr [i]. Init (0,0,0,0); p> for j: = i +1 to m do p> begin p> x1: = hr [j]. Getx; p> y1: = hr [j]. Gety; p> at1: = hr [j]. Daiage; p> ct1: = hr [j]. Daizwet; p> hr [j]. Done; p> hr [j-1]. Init (x1, y1, at1, ct1); p> hr [j-1]. Show; p> end; p> hr [m]. INIT (0,0,0,0); p> m: = m-1; p> I: = I-1; p> CONTINUE; p> end; p> x: = hr [i]. Getx; p> y: = hr [i]. Gety; p> x: = x + (random (3) -1); p> y: = y + (random (3) -1); p> if x <5 then x: = 6; if x> 635 then x: = 634; if y <17 then y: = 18; p> if y> 480 then y: = 479; p> AT: = hr [I]. DAIAGE; p> CTp: = hr [I]. DAIZWET; p> hr [i]. Done; p> IF CTp <> 0 THEN p> BEGIN p> hr [i]. Init (x, y, at, CTp); p> hr [i]. Show; p> END; p> END; p> UNTIL I> = m; p> end; p> {****************************************** ****************} p> procedure hrod; p> begin p> if (z mod 365) = 0 then {Happy New Year!} p> begin p> t: = 0; p> for i: = 1 to m do p> begin p> at: = hr [i]. Daiage; p> if (hmin <= at) AND (AT <= hmax) then t: = t +1; p> end; p> t: = (t div 2); p> if t> 0 then p> begin p> x: = 0; p> FOR I: = 1 TO T DO p> begin p> J: = RANDOM (hP); p> x: = x + j; p> end; p> for y: = m +1 to m +1 + x do p> begin p> hr [y]. Init ((random (630) +5), (random (462) +18), 0, ch); p> hr [y]. Show; p> end; p> m: = m +1 + x; p> if (m> 1000) or (m <= 0) then p> begin p> key: = true; p> end; p> end; p> end; p> end; p> {****************************************** *****************} p> procedure dead; {хижаки їдять в радіусі 1 піксель} p> begin p> for i: = 1 to m do p> begin p> x: = hr [i]. Getx; p> y: = hr [i]. Gety; p> j: = 0; p> repeat p> j: = j +1; p> x1: = tg [j]. Getx; p> y1: = tg [j]. Gety; p> if ((x = x1) and (y = y1)) or ((x = x1) and (y = y1-1)) or ((x = x1) p> and (y = y1 +1)) or ((x...
