hvdosdev2019

README.md

@@ -1,6 +1,5 @@
-# Snakes
-This game was written to the occasion of elections in 1998. Game is for three players where each player represetns one party leader. The target is to overreach your rivals and to survive.
+# Hadi
+Remake původní hry z roku 1998 pro soutěž #hvdosdev2019 (high-voltage.cz)´.
 
 ![hadi.png](doc/hadi.png)
 
-Enjoy the game.

src/HADI.PAS

@@ -131,25 +131,25 @@ begin
   bar(maxx+100,miny+140,getmaxx-5,miny+140+10);
   setcolor(lightblue);
   str(scklaus,score);
-  outtextxy(maxx+20,miny+140,'Klaus: ... '+score);
+  outtextxy(maxx+20,miny+140,'Fiala:  ... '+score);
   setcolor(black);
   bar(maxx+100,miny+160,getmaxx-5,miny+160+10);
   setcolor(green);
   str(sclux,score);
-  outtextxy(maxx+20,miny+160,'Lux:   ... '+score);
+  outtextxy(maxx+20,miny+160,'Pospisil: . '+score);
   setcolor(black);
   bar(maxx+100,miny+180,getmaxx-5,miny+180+10);
   str(sczeman,score);
   setcolor(red);
-  outtextxy(maxx+20,miny+180,'Zeman: ... '+score);
+  outtextxy(maxx+20,miny+180,'Bartos: ... '+score);
   setcolor(darkgray);
   outtextxy(maxx+10,miny+300,'Ovladani:');
   setcolor(lightblue);
-  outtextxy(maxx+20,miny+325,'Klaus: ... z,x');
+  outtextxy(maxx+20,miny+325,'Fiala:  ... z,x');
   setcolor(green);
-  outtextxy(maxx+20,miny+340,'Lux:   ... n,m');
+  outtextxy(maxx+20,miny+340,'Pospisil: . n,m');
   setcolor(red);
-  outtextxy(maxx+20,miny+355,'Zeman: ... sipky');
+  outtextxy(maxx+20,miny+355,'Bartos: ... sipky');
   setcolor(white);
   outtextxy(maxx+20,miny+390,'ESC => Konec');
   if players=0 then begin
@@ -281,14 +281,15 @@ begin
   outtextxy(270,100,'H A D I');
   outtextxy(270,110,'=======');
   setcolor(darkgray);
-  outtextxy(30,150,'Tato hra byla napsana ku prilezitosti parlamentnich voleb v cervnu 1998.');
+  outtextxy(30,150,'Remake puvodni hry z roku 1998 pro soutez #hvdosdev2019 (high-voltage.cz)');
+  outtextxy(30,170,'                     by berk76 (c) 1998, 2019');
   outtextxy(30,220,'Souperi: (barva,ovladani)');
   setcolor(lightblue);
-  outtextxy(220,250,'Vaclav Klaus: ... z,x');
+  outtextxy(220,250,'Petr Fiala:    ... z,x');
   setcolor(green);
-  outtextxy(220,265,'Josef Lux:    ... n,m');
+  outtextxy(220,265,'Jiri Pospisil: ... n,m');
   setcolor(red);
-  outtextxy(220,280,'Milos Zeman:  ... sipky');
+  outtextxy(220,280,'Ivan Bartos:   ... sipky');
   setcolor(darkgray);
   outtextxy(70,320,'... uder do nejake klavesy pro zahajeni hadobijeckeho dne ...');
   ch:=readkey;
@@ -318,13 +319,13 @@ begin
   score:=scklaus+sclux+sczeman;
   setcolor(lightblue);
   str(scklaus,xx);
-  outtextxy(130,400-round(10+scklaus/score*300),'Vaclav Klaus ('+xx+')');
+  outtextxy(130,400-round(10+scklaus/score*300),'Petr Fiala ('+xx+')');
   setcolor(green);
   str(sclux,xx);
-  outtextxy(290,400-round(10+sclux/score*300),'Josef Lux ('+xx+')');
+  outtextxy(290,400-round(10+sclux/score*300),'Jiri Pospisil ('+xx+')');
   setcolor(red);
   str(sczeman,xx);
-  outtextxy(430,400-round(10+sczeman/score*300),'Milos Zeman ('+xx+')');
+  outtextxy(430,400-round(10+sczeman/score*300),'Ivan Bartos ('+xx+')');
   setcolor(darkgray);
   outtextxy(125,450,'... N => nova hra (cokoli jineho pro odchod) ...');
   ch:=readkey;