Prince of Persia

Code: Select all

[template info]
enter_and_exit_dir = left-right
enter_and_exit_num = 0-0
one_way_passage    = false

[basic tile layout]
line_  =   0123456789
line_0 = 0 __________
line_1 = 1 ##########
line_2 = 2 ##########

[test]
position = 0, 0

[script]
var
  r, c, p, start : byte;
  gap : byte;
  fake_floor_middle, fake_floor_top : byte;
  spike_bottom, spike_top : byte;
  guard_top : byte;
  door_top : byte;
begin
  ////*** jump making ***///
  // select gap: 0 to 4
  gap   := RandomInt(0, 4);
  //gap := 2;
  start := RandomInt(1, 4); 
  //start := 1;

  fake_floor_top := RandomInt(0, 1);
  //fake_floor_top := 1;
  fake_floor_middle := RandomInt(0, 1);
  //fake_floor_middle := 1;
  spike_bottom := RandomInt(0, 1);
  //spike_bottom := 1;
  spike_top := RandomInt(0, 1);
  //spike_top := 1;
  guard_top := RandomInt(0, 1);
  //guard_top := 1;
  door_top := RandomInt(0, 1);
  //door_top := 1;

  for c := start to start + gap - 1 do begin
    if fake_floor_top = 1 then begin
      SetTile(0, c, '~');
    end
    else begin
      SetTile(0, c, '.');
    end;
    
    if fake_floor_middle = 1 then begin
      SetTile(1, c, '~');
    end
    else begin
      SetTile(1, c, '.');
    end;
    
    if spike_bottom = 1 then begin
      SetTile(2, c, '+');
    end
    else begin
      SetTile(2, c, '_');
    end;
  end;
  
  if spike_top = 1 then begin
    if RandomInt(0, 1) = 0 then begin
      SetTile(0, start + gap, '+');
    end
    else begin
      SetTile(0, start + gap + 1, '+');
    end;
  end;

  ////*** guard making ***///
  if guard_top = 1 then begin
    if (start + gap + 4 <= 9) then begin
      SetTile(0, start + gap + 4, '&');
    end;

    if RandomInt(0, 1) = 1 then begin    
      if (start + gap + 4 <= 8) then begin
        SetTile(0, start + gap + 5, '.'); 
        SetTile(1, start + gap + 5, '.'); 
        SetTile(2, start + gap + 5, '+'); 
      end;
    end;
  end;

  ////*** door making ***///
  if door_top = 1 then begin
    SetTile(0, start - 1,       'A');
    SetTile(0, start + gap,     '1');
    SetTile(0, start + gap + 1, 'A');
  end;

  (*
  for c := 0 to 9 do begin
    if GetTile(0, c) = '_' then begin
      SetTile(0, c, 'h');
    end;
  end;
  *)
end.