implement main
open core

constants
    className = "com/visual-prolog/main".
    classVersion = "$JustDate:  $$Revision:  $".


class facts
kletki:(unsigned32 Nomer_kletki,unsigned8 Chto_v_kletke, integer X,integer Y,integer Imeet_koloriy,integer Kogda_poslediy_raz_hodilo).
pole:(integer X,integer Y).
t:integer:=0.

class facts
shiftix:(integer X).
shiftiy:(integer Y).

dobicha:(unsigned32 N,unsigned8 Chvk,integer X,integer Y).
trava:(unsigned32 N,unsigned8 Chvk,integer X,integer Y).
pusto:(integer X,integer Y).



class facts
-harakteristiki
harakteristiki_togo_chto_v_kletke:(unsigned8 Chto_v_kletke,
/*внимание! хищники всегда красные(0..39;199..239), травоядные синие(119..198), трава зелёная(40..118), а всякий рельеф (240..255)*/
integer Vrema_na_dvigenie_na_odu_kletku_vpered,
integer Virabativaemoe_ili_pogloschaemoe_kolichestvo_koloriy_za1tik,integer Maksimalniy_zapas_koloriy,integer Koloriynost_esli_ego_edat).


class predicates
r1: (inputStream)determ.
shag:().
shag_rab:()nondeterm.

ogladetsa:(integer X,integer Y)nondeterm(i,i).

ohota:(unsigned32 N,unsigned8 Chvk,integer X,integer Y,integer Ik,integer MaxKol)nondeterm(i,i,i,i,i,i).

vipas:(unsigned32 N,unsigned8 Chvk,integer X,integer Y,integer Ik,integer MaxKol)nondeterm(i,i,i,i,i,i).

poyti:(unsigned32 N,unsigned8 Chvk,integer X,integer Y,integer Ik)nondeterm(i,i,i,i,i).

smert:(unsigned32 N,unsigned8 Chvk,integer Ik)nondeterm(i,i,i).

viz:(integer X,integer Y,unsigned8 Tip,integer Koloriy)nondeterm(i,i,o,o) language stdcall as "viz".

zagruzka_pola:(unsigned32 Nomer_kletki,unsigned8 Chto_v_kletke, integer X,integer Y,
integer Imeet_koloriy)nondeterm(i,i,i,i,i) language stdcall as "zagruzka_pola".

zagruzka_harakteristik:()nondeterm () language stdcall as "zagruzka_harakteristik".


clauses
    classInfo(className, classVersion).


shiftix(-1).
shiftix(0).
shiftix(1).

shiftiy(-1).
shiftiy(0).
shiftiy(1).


%процедура выполняющая просчёт шага
shag():-

shag_rab(),
t:=t+1,!;
t:=t+1

.



ogladetsa(X,Y):-

(
retract(pusto(_,_)),fail;
retract(trava(_,_,_,_)),fail;
retract(dobicha(_,_,_,_)),fail
)
;
(%1111111

shiftix(Xshift),shiftix(Yshift),%нам надо перебрать все клетки в окрестности

(%xxxxxxxx

if((Xshift=Yshift) and (Yshift=0)),! then%кроме той на которой стоим
fail
else

(%22222

pole(X+Xshift,Y+Yshift),
(%aaaaaaaaaa

not(kletki(N1,Chvk1,X+Xshift,Y+Yshift,_,_)),
assert(pusto(X+Xshift,Y+Yshift));%значит запомним что там пусто

kletki(N1,Chvk1,X+Xshift,Y+Yshift,_,_),
(%33333

(Chvk1>=119,Chvk1<=198),%если там травоядное которыми питаются хищники
assert(dobicha(N1,Chvk1,X+Xshift,Y+Yshift));%значит запомним что там добыча
(Chvk1>=40,Chvk1<=118),%если там трава
assert(trava(N1,Chvk1,X+Xshift,Y+Yshift))%значит запомним что там трава

)%33333

)%aaaaaaaaaaa
)%22222

end if
)%xxxxxxxx
,
fail
)%11111111
;
succeed()
.


poyti(N,Chvk,X,Y,Ik):-
(%111111
math::randomInit(t),


(
pusto(Xd,Yd),%проверим есть ли незанятые клетки
retract(pusto(Xd,Yd)),%даже если не удастся буду пытатся уже на других
(
Test=math::random(2),%а идти хочеся?
Test=1,%ну а если удалось
retract(kletki(N,_,_,_,_,_)),%значит там где я был меня не будет
assert(kletki(N,Chvk,Xd,Yd,Ik,t)),!%и перейду на новое место
)
,
fail,!
)
;


(
trava(N1,Chvk1,Xd,Yd),%проверим есть ли клетки с травой
retract(trava(N1,Chvk1,Xd,Yd)),%даже если не удастся буду пытатся уже на других
(
Test=math::random(2),%или может потраве?
Test=1,%ну а если удалось

retract(kletki(N,_,_,_,_,_)),

kletki(N1,Chvk1,Xd,Yd,Kolx,Lt1),
assert(kletki(N1,Chvk1,X,Y,Kolx,Lt1)),%на той клетке где стояли мы теперь то что было там куда мы шли

retract(kletki(N1,_,_,_,_,_)),
assert(kletki(N,Chvk,Xd,Yd,Ik,t)),!%вот мы и перешли
)
,
fail,!
)
,
retract(kletki(N,_,_,_,_,_)),
assert(kletki(N,Chvk,X,Y,Ik,t)),

succeed()%в крайнем случае просто ничего не будем менять

)%111111
.



ohota(N,Chvk,X,Y,Ik,MaxKol):-

math::randomInit(t),


ogladetsa(X,Y);
(%111111

(%222222222222

dobicha(N1,Chvk1,Xd,Yd),
(%333333333
retract(dobicha(N1,Chvk1,Xd,Yd)),%даже если не удастся буду пытатся уже на других

Test=math::random(2),%а удалась ли охота
Test=1,%ну а если удалось
retract(kletki(N1,_,_,_,_,_)),%значит сожру

harakteristiki_togo_chto_v_kletke(Chvk1,_,_,_,Koloriynost),%аш вот стока
retract(kletki(N,_,_,_,_,_)),%когда приду к добыче
(
Maxkol<Ik+Koloriynost,
Kol1=MaxKol,!;%а шо нэ зъим то панадкусываю
Kol1=Ik+Koloriynost
)
,
assert(kletki(N,Chvk,Xd,Yd,Kol1,t))%и останусь там стоять
)%33333333
%,
%fail
)%222222222222
,!;

poyti(N,Chvk,X,Y,Ik)%ну а если совсем непруха на охоте то просто перейду на свободную клетку
)%111111

.


vipas(N,Chvk,X,Y,Ik,MaxKol):-

%math::randomInit(X),
(%111111

ogladetsa(X,Y),!,

Test=math::random(2),%как насчёт поесть?
(
trava(N1,Chvk1,Xd,Yd),
retract(trava(N1,Chvk1,Xd,Yd)),%даже если не удастся буду пытатся уже на других
Test=1,%ну а если удалось
retract(kletki(N1,_,_,_,_,_)),%значит жуём траву

harakteristiki_togo_chto_v_kletke(Chvk1,_,_,_,Koloriynost),%аш вот стока
retract(kletki(N,_,_,_,_,_)),%пучка больше нет
(
Maxkol<Ik+Koloriynost,
Kol1=MaxKol,!;%а шо нэ зъим то панадкусываю
Kol1=Ik+Koloriynost
)
,
assert(kletki(N,Chvk,Xd,Yd,Kol1,t))%и останусь там стоять


)
,
fail,!;

poyti(N,Chvk,X,Y,Ik)%ну если жрать неахота то прогуляюсь


)%111111
.


smert(N,Chvk,Ik):-

not((Chvk>=40,Chvk<=118)/*;(Chvk>=240,Chvk<=255)*/),%если не трава
Ik<=0,%а не пора ли сдохнуть от голода
retract(kletki(N,_,_,_,_,_)),!%ну вот и дохни

.



%shag_rab(N):-
%not(kletki(N,_,_,_,_,_)),!
%.

shag_rab():-

%math::randomInit(123),%инициализировать рандом

kletki(N,Chvk,X,Y,Kol,Lt),
harakteristiki_togo_chto_v_kletke(Chvk,Vndn1kv,Kzt,MaxKol,_),%загрузили содержимое клетки и его характеристики

Kol1=Kol+Kzt,

(%111111111111111

not(smert(N,Chvk,Kol1)),

Vndn1kv>0,%эта хрень в клетке ходить умеет?
math::abs(t-Lt)>=Vndn1kv,%а ей сейчас пора ходить?
%then

(%222222222222
(
(Chvk>=0,Chvk<=39);
(Chvk>=199,Chvk<=239)
),%если хищник
ohota(N,Chvk,X,Y,Kol1,MaxKol),!;%попробуем поохотиться

(Chvk>=119,Chvk<=198),%если там травоядное
vipas(N,Chvk,X,Y,Kol1,MaxKol),!%попробуем попастись

)%222222222222
)%111111111111
,
fail;
succeed()
.
%конец процедуры выполняющей просчёт шага
%math::random(2)=1,


%процедура выводящая графику на отрисовку
viz(X,Y,Tip,Koloriy):-
%Strout=0x01990199
kletki(NomK,Tip,X,Y,Kol,_),

harakteristiki_togo_chto_v_kletke(Tip,_,_,MaxKol,_),

Koloriy=math::round(Kol/(Maxkol/240)),!;

pole(X,Y),
Tip=255,
Koloriy=0,!;

Tip=255,
Koloriy=0,
X<0,
Y<0,
shag(),!;

Tip=255,
Koloriy=0
.
% конец процедуры выводящей графику на отрисовку

%проседура грузящая поле на котором живут клетки
zagruzka_pola(N,ChVK,X,Y,Ik):-

harakteristiki_togo_chto_v_kletke(Chvk,_,_,MaxKol,_),

Ikr=math::round((Maxkol/240)*Ik),

assert(kletki(N,ChVK,X,Y,Ikr,0)),
assert(pole(X,Y)),
!;
assert(pole(X,Y))
.
%конец проседуры грузящей поле на котором живут клетки


%проседура грузящая характеристики для каждого встечающегося в начальных данных цвета из файла "harakteristiki.txt"
zagruzka_harakteristik():-

%console::init(),
StandartInput=stdio::getInputStream(),

In=inputStream_file::openFile8("harakteristiki.txt"),
r1(In),
%file::save("harakteristikiPr.txt",harakteristiki,false())
math::randomInit(123456789)
.

r1(In):-In:endOfStream(),!.

r1(In):-
S=In:readLine(),

string::fronttoken(S,Sa,Sr),
string::fronttoken(Sr,Sa1t,Sr1),

(
Sa1t="-",
string::fronttoken(Sr1,St,Sr1x),
Sa1=string::concat(Sa1t,St),!;
Sa1=Sa1t,
Sr1x=Sr1
)
,

string::fronttoken(Sr1x,Sa2t,Sr2),

(
Sa2t="-",
string::fronttoken(Sr2,St1,Sr2x),
Sa2=string::concat(Sa2t,St1),!;
Sa2=Sa2t,
Sr2x=Sr2
)
,

string::fronttoken(Sr2x,Sa3t,Sr3),

(
Sa3t="-",
string::fronttoken(Sr3,St4,Sr3x),
Sa3=string::concat(Sa3t,St4),!;
Sa3=Sa3t,
Sr3x=Sr3
)
,

string::fronttoken(Sr3x,Sa4t,Sr4),

(
Sa4t="-",
string::fronttoken(Sr3,St2,Sr4x),
Sa4=string::concat(Sa4t,St2),!;
Sa4=Sa4t,
Sr4x=Sr4
)
,



assert(harakteristiki_togo_chto_v_kletke(math::tryToUnsigned(Sa),math::tryToInteger(Sa1),math::tryToInteger(Sa2),math::tryToInteger(Sa3),
math::tryToInteger(Sa4))),

r1(In)

.
%конец проседуры грузящей характеристики


clauses
    run():-
        console::init(),

     zagruzka_harakteristik(),
zagruzka_pola(1,1,0,0,240),
zagruzka_pola(2,130,0,1,240),
zagruzka_pola(3,255,1,0,240),
zagruzka_pola(4,255,1,1,240),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(-1,-1,_,_),
viz(0,0,_,_),
viz(0,1,_,_),
viz(1,1,_,_),
!;
        succeed(). % place your own code here
end implement main

goal
    mainExe::run(main::run).