Книга знаний

Играем в Жизнь

Правила игры

Дизайн

Он сказал: "Поехали", и махнул рукой

var Mode;
     var true, false;
     var Table;

     procedure OnClose()
          if Mode = true then
               Mode = false;
               Table = createobject("table");
               Table.SourceTable(Table);
               Table.PutSection("Height|Width");
               Table.Protection(true);
               Table.Show("game ""Life""");
               returnstatus(false);
          endif;
     endprocedure

     procedure OnOpen()
          true = 1;
          false = 0;
          Mode = true;
          Form.Close();
     endprocedure

// объявляем глобальную переменную
     var GlSeed;

     function Random(MaxValue)
          GlSeed = GlSeed * 1103515245 + 12345;
          return ((GlSeed / 65536) % 32768) % MaxValue + 1;
     endfunction

     // добавляем в процедуру OnOpen
     GlSeed = _getperformancecounter();

     var tabTemp;

     tabTemp = createobject("valuetable");
     for x = 1 to 40 do
          tabTemp.NewColumn("K" + string(x), "number", 1, 0);
     enddo;
     for x = 1 to 17 do
          tabTemp.NewLine();
     enddo;

     var Life, Period;
 //и инициализируем:
     Life = 0;
     Period = 0;

     var flLoad, flSave, flBegin, flNext, flRandom, flFinish;

//установим им значения на начало игры:

     flLoad = true;
     flSave = false;
     flBegin = false;
     flNext = false;
     flRandom = true;
     flFinish = false;

     procedure RefreshTable()
          Table.Area("R3C9").TextColor(?(flSave = true, 0, 8421504));
          Table.Area("R3C16").TextColor(?(flBegin = true, 0, 8421504));
          Table.Area("R3C22").TextColor(?(flNext = true, 0, 8421504));
          Table.Area("R3C28").TextColor(?(flRandom = true, 0, 8421504));
          Table.Area("R3C36").TextColor(?(flFinish = true, 0, 8421504));
     endprocedure

     Table.Area("R22C7").Text = string(Life);
     Table.Area("R22C17").Text = string(Period);

Table.Show();

Раскраска

     procedure DrawTable(tabProg)
          for y = 1 to 17 do
               for x = 1 to 40 do
                    Address = "R" + string(4 + y) + "C" + string(1 + x);
                    Table.Area(Address).BackGroundColor(
                                        ?(tabProg.GetValue(y, x) = true, 16711680, 16777215));
               enddo;
          enddo;
          RefreshTable();
     endprocedure

Ловушка

var Hook;

Hook = 1;

     procedure SheetCellProcessing(Value, Flag, tabProg, Address)
          Flag = false;
     endprocedure;

     Text = tabProg.Area(Address).Text;
     if emptyvalue(Text) = false then
          message("Пнули кнопку управления");
     else
          message("Пнули ячейку мира");
     endif;

Color = tabProg.Area(Address).BackGroundColor();

     if Color = 16711680 then
          // Здесь буду действия связанные с убийством.
     else
          // Здесь наоборот, с рождением.
     endif;

     if doquerybox("You really want to kill a life?", 4) = 6 then
          Life = Life - 1;
          if Life = 0 then
               flSave = false;
               flBegin = false;
          endif;
          Color = 16777215;
     endif;

     if doquerybox("You really want to create a life?", 4) = 6 then
          Life = Life + 1;
          if Life = 1 then
               flSave = true;
               flBegin = true;
          endif;
          Color = 16711680;
     endif;

     tabProg.Area(Address).BackGroundColor(Color);
     RefreshTable();

     if flNext = false then
          // Здесь размещен код по созданию/убийству организмов
          // на игровом поле.
     endif;

Панель управления

     Color = tabProg.Area(Address).TextColor();
     if Color = 0 then
     endif;

     if Text = "Load" then
          // здесь будем считывать файл сохраненки игры.
     elsif Text = "Save" then
          // а здесь сохранять.
     elsif Text = "Begin" then
          // please "Start" for begin game.
     elsif Text = "Next" then
          // смена поколений.
     elsif Text = "Random" then
          // генерим первое, случайно разумеется
     elsif Text = "Finish" then
          // устроим армагедончик барашкам.
     endif;

Random

     procedure FillRandom(Percent)
          vtRand = createobject("valuetable");
          tabTemp.Unload(vtRand);
          Life = false;
          for y = 1 to 17 do
               for x = 1 to 40 do
                    Value = Random(100);
                    if Value <= Percent then
                         vtRand.SetValue(y, x, true);
                         Life = Life + true;
                    endif;
               enddo;
          enddo;
          if Life > false then
               flSave = true;
               flBegin = true;
          endif;
          DrawTable(vtRand);
     endprocedure

     // в блок глобальных переменных
     var tabTemp;

     // в процедуру OnOpen
     for x = 1 to 17 do
          tabTemp.NewLine();
          tabTemp.NewColumn("K" + string(x), "number", 1, 0);
     enddo;
     for x = 18 to 40 do
          tabTemp.NewColumn("K" + string(x), "number", 1, 0);
     enddo;

     x = 1;
     y = 1;
     Make = true;
     while Make = true do
          Value = Random(100);
          if Value <= Percent then
               vtRand.SetValue(y, x, true);
               Life = Life + true;
          endif;
          x = x + 1;
          if x = 41 then
               y = y + 1;
               x = 1;
               if y = 18 then
                    Make = false;
               endif;
          endif;
     enddo;

     vlPopulation = createobject("valuelist");
     vlPopulation.AddValue(10, "Seldom");
     vlPopulation.AddValue(20, "Less seldom");
     vlPopulation.AddValue(30, "Normally");
     vlPopulation.AddValue(40, "Less densely");
     vlPopulation.AddValue(50, "Densely");
     if vlPopulation.ChooseValue(Value, , , , 1) = true then
          FillRandom(Value);
     endif;

Begin

     procedure Move()
     endprocedure

     flBegin = false;
     flNext = true;
     flRandom = false;
     flFinish = true;
     Move();

     procedure Finish()
     endprocedure

     Period = Period + 1;
     tabRand = createobject("valuetable");
     tabTemp.Unload(tabRand);
     Life = false;
     for y = 1 to 17 do
          for x = 1 to 40 do
               // здесь будем решать жить следующей клетке или не жить
          enddo;
     enddo;
     if Life > false then
          DrawTable(tabRand);
     else
          Finish();
     endif;

Недокументированная функция template

     //*******************************************
     function One()
          return "one";
     endfunction

     //*******************************************
     function Two()
          return "two";
     endfunction

     //*******************************************
     procedure Print(What)
          Answer = "";
          if What = "One" then
               Answer = One();
          elsif What = "Two" then
               Answer = Two();
          endif;
          message(Answer);
     endprocedure

     Print("Two");

     //*******************************************
     function One()
          return "one";
     endfunction

     //*******************************************
     function Two()
          return "two";
     endfunction

     //*******************************************
     procedure Print(What)
          Answer = template("[" + What + "()]");
          message(Answer);
     endprocedure

     Print("Two");

     "[" + What + "()]"

     "[Two()]"

     "two"

     ?(Coordinate = Border, OppositeBorder, Coordinate + Offset);

     var vtOffset;

     vtOffset = createobject("valuetable");
     vtOffset.NewColumn("Idiom", "string");
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + ?(y = 1, 17, y - 1)) +
                       |""C"" + string(1 + ?(x = 1, 40, x - 1))).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + ?(y = 1, 17, y - 1)) +
                       |""C"" + string(1 + x)).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + ?(y = 1, 17, y - 1)) +
                       |""C"" + string(1 + ?(x = 40, 1, x + 1))).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + y) +
                       |""C"" + string(1 + ?(x = 40, 1, x + 1))).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + ?(y = 17, 1, y + 1)) +
                       |""C"" + string(1 + ?(x = 40, 1, x + 1))).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + ?(y = 17, 1, y + 1)) +
                       |""C"" + string(1 + x)).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + ?(y = 17, 1, y + 1)) +
                       |""C"" + string(1 + ?(x = 1, 40, x - 1))).BackGroundColor()]";
     vtOffset.NewLine();
     vtOffset.Idiom = "[Table.Area(""R"" + string(4 + y) +
                       |""C"" + string(1 + ?(x = 1, 40, x - 1))).BackGroundColor()]";

     Neighbor = false;
     vtOffset.SelectLines();
     while vtOffset.GetLine() > false do
          Color = template(vtOffset.Idiom);
          if Color = "16711680" then
               Neighbor = Neighbor + 1;
          endif;
     enddo;

     Color = Table.Area("R" + string(4 + y) + "C" + string(1 + x))
                                                     .BackGroundColor();

     if Color = 16711680 then
          Chip = true;
          if ((Neighbor < 2) or (Neighbor > 3)) then
               Chip = false;
          endif;
     else
          Chip = false;
          if Neighbor = 3 then
               Chip = true;
          endif;
     endif;

     Life = Life + Chip;
     tabRand.SetValue(y, x, Chip);

Finish

     procedure Finish()
          flSave = false;
          flBegin = false;
          flNext = false;
          flRandom = true;
          flFinish = false;
          Life = false;
          Period = false;
          DrawTable(tabTemp);
     endprocedure

Save & Load

     if fs.SelectFile(1, File, Path, "Select file for saved game.",
                      "Saved file (*.sav)|*.sav", "sav") > 0 then
          vtSave = createobject("valuetable");
          tabTemp.Unload(vtSave);
          for y = 1 to 17 do
               for x = 1 to 40 do
                    Color = Table.Area("R" + string(4 + y) + "C" +
                                       string(1 + x)).BackGroundColor();
                    if Color = 16711680 then
                         vtSave.SetValue(y, x, true);
                    endif;
               enddo;
          enddo;
          vtSave.NewLine();
          vtSave.K1 = Life;
          vtSave.K2 = Period;
          valuetofile(Path + File, vtSave, false);
     endif;

     if fs.SelectFile(0, File, Path, "Select file with saved for load.",
                      "Saved file (*.sav)|*.sav", "sav") > 0 then
          vtLoad = createobject("valuetable");
          tabTemp.Unload(vtLoad);
          valuefromfile(Path + File, vtLoad, false);
          Life = vtLoad.GetValue(18, 1);
          Period = vtLoad.GetValue(18, 2);
          if Life > 0 then
               flSave = true;
               if Period > 0 then
                    flBegin = false;
                    flNext = true;
               else
                    flBegin = true;
                    flNext = false;
               endif;
               flRandom = false;
               flFinish = true;
               DrawTable(vtLoad);
          else
               Finish();
          endif;
     endif;

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2025 | Mista.ru