share/hedgewars/Data/Scripts/Multiplayer/Tunnels.lua
changeset 7791 b937274608ba
parent 7785 9b5dceaea976
child 10153 28e53573fdd2
equal deleted inserted replaced
7790:040fc517fece 7791:b937274608ba
    29     for i = 200,2000,600 do
    29     for i = 200,2000,600 do
    30         AddPoint(1,i,63)
    30         AddPoint(1,i,63)
    31         AddPoint(4000,i)
    31         AddPoint(4000,i)
    32     end
    32     end
    33 
    33 
    34         side = 0
    34     side = 0
    35     for i = 0,GetRandom(15)+30 do
    35     for i = 0,GetRandom(15)+25 do
    36         size = GetRandom(15)+3
    36         if side > 3 then 
       
    37             size = GetRandom(4)+4
       
    38         else
       
    39             size = GetRandom(12)+4
       
    40         end
    37         --side = GetRandom(4)
    41         --side = GetRandom(4)
    38         dx = div(size,4)
    42         dx = div(size,4)
    39         maxshift = dx
    43         maxshift = dx
    40         dy = dx
    44         dy = dx
    41         if side == 0 then
    45         if side == 0 then
    42             x = 0
    46             x = 0
    43             y = GetRandom(2048)
    47             y = GetRandom(2048-size*4)+size*2
    44             dy = 0
    48             dy = 0
    45         elseif side == 1 then
    49         elseif side == 1 then
    46             x = GetRandom(4096)
    50             x = GetRandom(4096-size*4)+size*2
    47             y = 0
    51             y = 0
    48             dx = 0
    52             dx = 0
    49         elseif side == 2 then
    53         elseif side == 2 then
    50             x = 4096
    54             x = 4096
    51             y = GetRandom(2048)
    55             y = GetRandom(2048-size*4)+size*2
    52             dx = -dx
    56             dx = -dx
    53             dy = 0
    57             dy = 0
    54         elseif side == 3 then
    58         elseif side == 3 then
    55             x = GetRandom(4096)
    59             x = GetRandom(4096-size*4)+size*2
    56             y = 2048
    60             y = 2048
    57             dx = 0
    61             dx = 0
    58             dy = -dy
    62             dy = -dy
    59         elseif side == 4 then
    63         elseif side > 3 then
    60             x = GetRandom(2500)+500
    64             x = GetRandom(2500)+500
    61             y = GetRandom(1250)+250
    65             y = GetRandom(1250)+250
    62             dx = GetRandom(maxshift*2)-maxshift
    66             dx = GetRandom(maxshift*2)-maxshift
    63             dy = GetRandom(maxshift*2)-maxshift
    67             dy = GetRandom(maxshift*2)-maxshift
    64         end
    68         end
    65         length = GetRandom(500)+500
    69         length = GetRandom(500-size*25)+600
    66         while (length > 0) and (x > -300) and (y > -300) and (x < 4400) and (y < 2400) do
    70         while (length > 0) and (x > -300) and (y > -300) and (x < 4400) and (y < 2400) do
    67             length = length - 1
    71             length = length - 1
    68             AddPoint(x,y,size,true)
    72             AddPoint(x,y,size,true)
    69             x = x + dx
    73             x = x + dx
    70             y = y + dy
    74             y = y + dy
    71             if GetRandom(4) == 0 then
    75             if GetRandom(8) == 0 then
    72                 shift = GetRandom(10)-5
    76                 shift = GetRandom(10)-5
    73                 if (shift > 0) and (dx < maxshift) then
    77                 if (shift > 0) and (dx < maxshift) then
    74                     dx = dx + shift
    78                     dx = dx + shift
    75                 elseif (shift < 0) and (dx > -maxshift) then
    79                 elseif (shift < 0) and (dx > -maxshift) then
    76                     dx = dx + shift
    80                     dx = dx + shift
    81                 elseif (shift < 0) and (dy > -maxshift) then
    85                 elseif (shift < 0) and (dy > -maxshift) then
    82                     dy = dy + shift
    86                     dy = dy + shift
    83                 end
    87                 end
    84             end
    88             end
    85         end
    89         end
    86         if side < 5 then
    90         if side < 6 then
    87             side = side + 1
    91             side = side + 1
    88         else 
    92         else 
    89             side = 0
    93             side = 0
    90         end
    94         end
    91     end
    95     end