share/hedgewars/Data/Scripts/Multiplayer/ShoppaMap.lua
author nemo
Sun, 23 Feb 2014 10:06:58 -0500
changeset 10150 fa5c83fd0ad9
parent 10036 3be36d2fdca6
child 10172 7cfd1a9356b5
permissions -rw-r--r--
Allow lua drawn maps (shoppamap, tunnels, diagonal maze etc) to generate previews.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     1
ObjectList = {}
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     2
PointsBuffer = ''  -- A string to accumulate points in
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     3
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     4
-- Overall padding for roping freedom
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     5
Padding = 430
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     6
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     7
function AddPoint(x, y, width, erase)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     8
 PointsBuffer = PointsBuffer .. string.char(band(x,0xff00) / 256 , band(x,0xff) , band(y,0xff00) / 256 , band(y,0xff))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
     9
 if width then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    10
     width = bor(width,0x80)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    11
     if erase then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    12
         width = bor(width,0x40)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    13
     end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    14
     PointsBuffer = PointsBuffer .. string.char(width)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    15
 else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    16
     PointsBuffer = PointsBuffer .. string.char(0)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    17
 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    18
 if #PointsBuffer > 245 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    19
     ParseCommand('draw '..PointsBuffer)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    20
     PointsBuffer = ''
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    21
 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    22
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    23
function FlushPoints()
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    24
 if #PointsBuffer > 0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    25
     ParseCommand('draw '..PointsBuffer)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    26
     PointsBuffer = ''
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    27
 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    28
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    29
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    30
-- This could probably use less points and more precision
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    31
-- 700x700 for object space
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    32
function DrawStar(x, y, d, f)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    33
-- default scale is 700x700 or so
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
    34
    local s = 700
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
    35
    local i = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
    36
    local j = 0
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    37
    if not(d == 1) then s = div(s,d) end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    38
    if NoOverlap(x,y,s,s) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    39
        AddCollision(x,y,s,s)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    40
        if not(d == 1) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    41
            i = 6-d
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    42
            j = math.min(div(5,d),1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    43
            -- centre
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    44
            AddPoint(x,y,div(20,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    45
            -- arms
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    46
            AddPoint(x-div(325,d),y-f*div(108,d),2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    47
            AddPoint(x+div(325,d),y-f*div(108,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    48
            AddPoint(x-div(205,d),y+f*div(270,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    49
            AddPoint(x,y-f*div(345,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    50
            AddPoint(x+div(205,d),y+f*div(270,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    51
            AddPoint(x-div(325,d),y-f*div(108,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    52
            if d < 4 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    53
            -- fill in arm 1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    54
            AddPoint(x-div(275,d),y-f*div(92,d),i)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    55
            AddPoint(x-div(50,d),y-f*div(92,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    56
            AddPoint(x-div(105,d),y+f*div(25,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    57
            AddPoint(x-div(250,d),y-f*div(80,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    58
            AddPoint(x-div(115,d),y-f*div(70,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    59
            AddPoint(x-div(130,d),y-f*div(25,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    60
            AddPoint(x-div(175,d),y-f*div(60,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    61
            -- fill in arm 2
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    62
            AddPoint(x+div(275,d),y-f*div(92,d),i)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    63
            AddPoint(x+div(50,d),y-f*div(92,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    64
            AddPoint(x+div(105,d),y+f*div(25,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    65
            AddPoint(x+div(250,d),y-f*div(80,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    66
            AddPoint(x+div(115,d),y-f*div(70,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    67
            AddPoint(x+div(130,d),y-f*div(25,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    68
            AddPoint(x+div(175,d),y-f*div(60,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    69
            -- fill in arm 3
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    70
            AddPoint(x-div(175,d),y+f*div(230,d),i)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    71
            AddPoint(x-div(110,d),y+f*div(60,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    72
            AddPoint(x,y+f*div(120,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    73
            AddPoint(x-div(155,d),y+f*div(215,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    74
            AddPoint(x-div(105,d),y+f*div(95,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    75
            AddPoint(x-div(60,d),y+f*div(130,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    76
            AddPoint(x-div(85,d),y+f*div(155,d),j)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    77
            -- fill in arm 4
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    78
            AddPoint(x,y-f*div(300,d),3)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    79
            AddPoint(x+div(50,d),y-f*div(125,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    80
            AddPoint(x-div(50,d),y-f*div(125,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    81
            AddPoint(x,y-f*div(270,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    82
            AddPoint(x-div(40,d),y-f*div(160,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    83
            AddPoint(x+div(40,d),y-f*div(160,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    84
            AddPoint(x,y-f*div(195,d),j)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    85
            -- fill in arm 5
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    86
            AddPoint(x+div(175,d),y+f*div(230,d),i)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    87
            AddPoint(x+div(110,d),y+f*div(60,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    88
            AddPoint(x,y+f*div(120,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    89
            AddPoint(x+div(155,d),y+f*div(215,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    90
            AddPoint(x+div(105,d),y+f*div(95,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    91
            AddPoint(x+div(60,d),y+f*div(130,d))
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    92
            AddPoint(x+div(85,d),y+f*div(155,d),j)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    93
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    94
        else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    95
            -- centre
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    96
            AddPoint(x,y,20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    97
            -- arms
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    98
            AddPoint(x-325,y-f*108,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
    99
            AddPoint(x+325,y-f*108)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   100
            AddPoint(x-205,y+f*270)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   101
            AddPoint(x,y-f*345)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   102
            AddPoint(x+205,y+f*270)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   103
            AddPoint(x-325,y-f*108)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   104
            -- fill in arm 1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   105
            AddPoint(x-275,y-f*92,4)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   106
            AddPoint(x-50,y-f*92)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   107
            AddPoint(x-105,y+f*25)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   108
            AddPoint(x-250,y-f*80)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   109
            AddPoint(x-115,y-f*70)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   110
            AddPoint(x-130,y-f*25)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   111
            AddPoint(x-175,y-f*60)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   112
            -- fill in arm 2
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   113
            AddPoint(x+275,y-f*92,4)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   114
            AddPoint(x+50,y-f*92)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   115
            AddPoint(x+105,y+f*25)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   116
            AddPoint(x+250,y-f*80)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   117
            AddPoint(x+115,y-f*70)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   118
            AddPoint(x+130,y-f*25)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   119
            AddPoint(x+175,y-f*60)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   120
            -- fill in arm 3
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   121
            AddPoint(x-175,y+f*230,4)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   122
            AddPoint(x-110,y+f*60)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   123
            AddPoint(x-10,y+f*120)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   124
            AddPoint(x-155,y+f*215)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   125
            AddPoint(x-105,y+f*95)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   126
            AddPoint(x-60,y+f*130)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   127
            AddPoint(x-85,y+f*155,5)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   128
            -- fill in arm 4
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   129
            AddPoint(x,y-f*300,3)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   130
            AddPoint(x+50,y-f*125)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   131
            AddPoint(x-50,y-f*125)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   132
            AddPoint(x,y-f*270)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   133
            AddPoint(x-40,y-f*160)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   134
            AddPoint(x+40,y-f*160)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   135
            AddPoint(x,y-f*195,5)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   136
            -- fill in arm 5
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   137
            AddPoint(x+175,y+f*230,4)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   138
            AddPoint(x+110,y+f*60)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   139
            AddPoint(x+10,y+f*120)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   140
            AddPoint(x+155,y+f*215)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   141
            AddPoint(x+105,y+f*95)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   142
            AddPoint(x+60,y+f*130)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   143
            AddPoint(x+85,y+f*155,5)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   144
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   145
        return true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   146
    else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   147
        return false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   148
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   149
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   150
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   151
-- well. this was easy
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   152
function DrawCircle(x, y, w)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   153
    if NoOverlap(x,y,w*10+6,w*10+6) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   154
        AddCollision(x,y,w*10+6,w*10+6)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   155
        AddPoint(x,y,w)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   156
        return true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   157
    else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   158
        return false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   159
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   160
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   161
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   162
function DrawCrescent(x, y, w, s)
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   163
    local b = div(w*(GetRandom(4)+1)*10+6,6)
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   164
    
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   165
    if NoOverlap(x,y,w*10+6,w*10+6) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   166
        AddCollision(x,y,w*10+6,w*10+6)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   167
        AddPoint(x,y,w)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   168
        if s then -- side
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   169
            if GetRandom(1) == 0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   170
                b = b*-1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   171
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   172
            AddPoint(x-b,y,w,true)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   173
        else -- top
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   174
            AddPoint(x,y-b,w,true)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   175
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   176
        return true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   177
    else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   178
        return false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   179
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   180
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   181
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   182
function DrawCones(x,w,h,c)
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   183
    local i = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   184
    local y = 2048-h
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   185
    local hw = div(w,2)
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   186
    if NoOverlap(x+div(w*c,2),y+div(h,2),w*c,h) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   187
        AddCollision(x+div(w*c,2),y+div(h,2),w*c,h)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   188
        x = x + hw
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   189
        for i = 1,c do -- I'm guessing outlining is slightly more efficient than fanning at 16px brush
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   190
            AddPoint(x,y,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   191
            AddPoint(x-hw+8,2048)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   192
            AddPoint(x+hw-8,2048)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   193
            AddPoint(x,y)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   194
            for j = x-hw+25,x+hw,34 do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   195
                AddPoint(x,y+30,3)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   196
                AddPoint(j,2048)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   197
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   198
            if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   199
                AddPoint(x,y-20,8)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   200
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   201
            x = x + w
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   202
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   203
    else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   204
        return false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   205
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   206
    
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   207
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   208
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   209
function DrawPlateau(x,y,l,t,b)
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   210
    local bo = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   211
    local to = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   212
    local bSucc = false
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   213
    local tSucc = false
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   214
    if NoOverlapXY(x-28,y-28,x+l+28,y+l+28) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   215
        AddPoint(x,y,5)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   216
        AddPoint(x+l,y)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   217
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   218
        to = GetRandom(6)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   219
        if not(to==0) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   220
            if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   221
                to = div(l,to)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   222
            else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   223
                to = l-div(l,to)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   224
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   225
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   226
        if t>0 and NoOverlapXY(x+to-28,y-t-28,x+to+28,y+28) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   227
            AddPoint(x+to,y-t,5)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   228
            AddPoint(x+to,y)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   229
            if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   230
                AddPoint(x+to,y-t+75,20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   231
            else -- square off
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   232
                AddPoint(x+to-20,y-t,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   233
                AddPoint(x+to-20,y-t-20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   234
                AddPoint(x+to+20,y-t-20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   235
                AddPoint(x+to+20,y-t)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   236
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   237
            tSucc = true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   238
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   239
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   240
        if to > 120 and GetRandom(2)==0 then -- left bumper
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   241
            AddPoint(x+15,y-20,9)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   242
        else -- square off
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   243
            --AddPoint(x-50,y,2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   244
            AddPoint(x,y+20,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   245
            AddPoint(x-20,y+20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   246
            AddPoint(x-20,y-20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   247
            AddPoint(x,y-20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   248
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   249
        if to < (l-120) and GetRandom(2)==0 then -- right bumper
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   250
            AddPoint(x+l-15,y-20,9)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   251
        else -- square off
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   252
            --AddPoint(x+l+50,y,2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   253
            AddPoint(x+l,y+20,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   254
            AddPoint(x+l+20,y+20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   255
            AddPoint(x+l+20,y-20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   256
            AddPoint(x+l,y-20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   257
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   258
        bo = GetRandom(6)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   259
        if not(bo == 0) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   260
            if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   261
                bo = div(l,bo)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   262
            else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   263
                bo = l-div(l,bo)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   264
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   265
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   266
        -- still consider a success even if we can't place this one.  Might need to return more than true/false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   267
        if b>0 and NoOverlapXY(x+bo-28,y-28,x+bo+28,y+b+28) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   268
            AddPoint(x+bo,y,5)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   269
            AddPoint(x+bo,y+b)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   270
            if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   271
                AddPoint(x+bo,y+b-75,20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   272
            else -- square off
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   273
                AddPoint(x+bo-20,y+b,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   274
                AddPoint(x+bo-20,y+b+20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   275
                AddPoint(x+bo+20,y+b+20)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   276
                AddPoint(x+bo+20,y+b)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   277
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   278
            bSucc = true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   279
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   280
        if bSucc then AddCollisionXY(x+bo-28,y-28,x+bo+28,y+b+28) end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   281
        if tSucc then AddCollisionXY(x+to-28,y-t-28,x+to+28,y+28) end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   282
        AddCollisionXY(x-28,y-28,x+l+28,y+28) 
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   283
        return true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   284
    else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   285
        return false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   286
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   287
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   288
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   289
function AddCollision(x,y,w,h)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   290
    table.insert(ObjectList,{x-div(w+Padding,2),
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   291
                             y-div(h+Padding,2),
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   292
                             x+div(w+Padding,2),
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   293
                             y+div(h+Padding,2)})
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   294
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   295
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   296
function AddCollisionXY(x,y,x2,y2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   297
    table.insert(ObjectList,{x-div(Padding,2),
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   298
                             y-div(Padding,2),
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   299
                             x2+div(Padding,2),
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   300
                             y2+div(Padding,2)})
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   301
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   302
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   303
-- bounding box check
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   304
function NoOverlap(x,y,w,h)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   305
    w = w
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   306
    h = h
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   307
    x = x-div(w,2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   308
    y = y-div(h,2)
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   309
    return NoOverlapXY(x,y,x+w,y+h)
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   310
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   311
function NoOverlapXY(x,y,x2,y2)
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   312
    local i = 1
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   313
    local l = table.getn(ObjectList)
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   314
    local ox = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   315
    local oy = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   316
    local ox2 = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   317
    local oy2 = 0
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   318
    while i<=l do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   319
        ox = ObjectList[i][1]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   320
        oy = ObjectList[i][2]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   321
        ox2 = ObjectList[i][3]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   322
        oy2 = ObjectList[i][4]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   323
         --   WriteLnToConsole(ox..' '..oy..' '..ox2..' '..oy2..' - '..x..' '..y..' '..x2..' '..y2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   324
        --if (math.abs(ox + ox2 -x - x2) <= (ox2 - ox + x2 - x)) and (math.abs(oy + oy2 - y - y2) <= (oy - oy2 + y - y2)) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   325
        if x < ox2 and ox < x2 and y < oy2 and oy < y2 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   326
            return false
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   327
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   328
        i=i+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   329
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   330
    return true
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   331
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   332
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   333
function dbg()
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   334
    local i = 1
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   335
    local l = table.getn(ObjectList)
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   336
    local ox = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   337
    local oy = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   338
    local ox2 = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   339
    local oy2 = 0
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   340
    while i<=l do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   341
        ox = ObjectList[i][1]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   342
        oy = ObjectList[i][2]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   343
        ox2 = ObjectList[i][3]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   344
        oy2 = ObjectList[i][4]
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   345
        AddPoint(ox,oy,1)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   346
        AddPoint(ox2,oy)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   347
        AddPoint(ox2,oy2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   348
        AddPoint(ox,oy2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   349
        AddPoint(ox,oy)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   350
        AddPoint(ox2,oy2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   351
        i=i+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   352
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   353
end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   354
10150
fa5c83fd0ad9 Allow lua drawn maps (shoppamap, tunnels, diagonal maze etc) to generate previews.
nemo
parents: 10036
diff changeset
   355
function onPreviewInit()
fa5c83fd0ad9 Allow lua drawn maps (shoppamap, tunnels, diagonal maze etc) to generate previews.
nemo
parents: 10036
diff changeset
   356
onGameInit()
fa5c83fd0ad9 Allow lua drawn maps (shoppamap, tunnels, diagonal maze etc) to generate previews.
nemo
parents: 10036
diff changeset
   357
end
fa5c83fd0ad9 Allow lua drawn maps (shoppamap, tunnels, diagonal maze etc) to generate previews.
nemo
parents: 10036
diff changeset
   358
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   359
function onGameInit()
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   360
    MapGen = 2
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   361
    TemplateFilter = 0
9257
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   362
    local TotGen = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   363
    local Tries = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   364
    local i = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   365
    local l = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   366
    local x = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   367
    local y = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   368
    local w = 0
e89e1ab7f62b I should have specified locals
nemo
parents: 8981
diff changeset
   369
    local h = 0 
10036
3be36d2fdca6 use new API for changing GameFlags
sheepluva
parents: 9387
diff changeset
   370
    EnableGameFlags(gfShoppaBorder)
3be36d2fdca6 use new API for changing GameFlags
sheepluva
parents: 9387
diff changeset
   371
    if not GetGameFlag(gfBottomBorder) and GetRandom(2) == 0 then
8980
37f4cdd9cd2c don't draw a border if there's already a bottom border, avoid placing objects over gaps in the floor
nemo
parents: 8975
diff changeset
   372
        AddPoint(-50,2010,7)
37f4cdd9cd2c don't draw a border if there's already a bottom border, avoid placing objects over gaps in the floor
nemo
parents: 8975
diff changeset
   373
        AddPoint(4150,2010)
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   374
        for i = 0,GetRandom(3) do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   375
            x = GetRandom(4096)
8980
37f4cdd9cd2c don't draw a border if there's already a bottom border, avoid placing objects over gaps in the floor
nemo
parents: 8975
diff changeset
   376
            w = GetRandom(40)+10
37f4cdd9cd2c don't draw a border if there's already a bottom border, avoid placing objects over gaps in the floor
nemo
parents: 8975
diff changeset
   377
            AddPoint(x,2200,w,true)
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   378
            AddPoint(x,1900)
8981
6213f45b5ead use less collision space for the holes
nemo
parents: 8980
diff changeset
   379
            table.insert(ObjectList,{x-div(w*9,2),
6213f45b5ead use less collision space for the holes
nemo
parents: 8980
diff changeset
   380
                                     2010-div(100,2),
6213f45b5ead use less collision space for the holes
nemo
parents: 8980
diff changeset
   381
                                     x+div(w*9,2),
6213f45b5ead use less collision space for the holes
nemo
parents: 8980
diff changeset
   382
                                     2010+div(100,2)})
8975
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   383
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   384
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   385
        
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   386
    if GetRandom(2) == 0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   387
        l = GetRandom(3)+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   388
        w = GetRandom(200)+200
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   389
        h = GetRandom(350)+200
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   390
        x = GetRandom(4096-w*l)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   391
        DrawCones(x,w,h,l)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   392
        --if DrawCones(x,w,h,l) then TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   393
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   394
    if GetRandom(2) == 0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   395
        for i = 1,GetRandom(5)+1 do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   396
            w = GetRandom(35)+15
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   397
            x = GetRandom(4096-w*12)+w
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   398
	    if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   399
		y = 2048-GetRandom(w*10+6)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   400
	    else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   401
	    	y = 2048
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   402
	    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   403
           -- if AddPoint(x,y,w) then TotGetn = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   404
           DrawCircle(x,y,w)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   405
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   406
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   407
    if GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   408
        x = GetRandom(3300)+350
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   409
        y = GetRandom(1300)+350
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   410
        if DrawStar(x,y, 1, 1+GetRandom(2)*-2) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   411
            TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   412
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   413
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   414
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   415
    while (TotGen < 6) and (Tries < 100) do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   416
        l = GetRandom(1000-Tries*10)+300
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   417
        x = GetRandom(3900-l)+100
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   418
        y = GetRandom(1900)+100
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   419
        if GetRandom(2)==0 then b = GetRandom(800)+300
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   420
        else b = 0 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   421
        if GetRandom(2)==0 then t = GetRandom(800)+300
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   422
        else t = 0 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   423
        if y-t < 50 then t = y - 50 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   424
        if t < 200 then t = 0 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   425
        if DrawPlateau(x,y,l,t,b) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   426
            TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   427
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   428
        Tries = Tries + 1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   429
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   430
    Tries = 0
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   431
    while (TotGen < 17) and (Tries < 1000) do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   432
        if Tries < 500 and GetRandom(2)==0 then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   433
            x = GetRandom(3300)+350
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   434
            y = GetRandom(1300)+350
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   435
            if DrawStar(x,y, 1, 1+GetRandom(2)*-2) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   436
                TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   437
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   438
        else
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   439
            if Tries > 500 then d = GetRandom(2)+3
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   440
            else d = GetRandom(3)+2 end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   441
            x = GetRandom(4000-div(700,d))+div(700,d*2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   442
            y = GetRandom(1300-div(700,d))+div(700,d*2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   443
            if DrawStar(x,y, d, 1+GetRandom(2)*-2) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   444
                TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   445
            end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   446
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   447
        w = GetRandom(35-div(Tries,29))+15
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   448
        x = GetRandom(4050-w*20)+w*10
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   449
        y = GetRandom(2000-w*20)+w*10
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   450
        if DrawCircle(x,y,w) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   451
            TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   452
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   453
        w = GetRandom(35-div(Tries,29))+5
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   454
        x = GetRandom(4050-w*20)+w*10
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   455
        y = GetRandom(2000-w*20)+w*10
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   456
        if DrawCrescent(x,y,w,GetRandom(2)==0) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   457
            TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   458
        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   459
        Tries = Tries + 1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   460
    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   461
--    Padding = div(Padding,2)
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   462
--    Tries = 0
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   463
--    while (TotGen < 21) and (Tries < 10000) do
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   464
--        r = GetRandom(20-div(Tries,223))+5
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   465
--        x = GetRandom(4050-r*20)+r*10
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   466
--        y = GetRandom(2000-r*20)+r*10
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   467
--        if DrawCircle(x,y,r) then
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   468
--            TotGen = TotGen+1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   469
--        end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   470
--        Tries = Tries + 1
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   471
--    end
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   472
    --dbg()
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   473
    FlushPoints()
188a71ceda72 Add shoppamap lua as mikade requested. also add 50% chance of bottom border w/ holes as he requested. Also disable land objects in shoppa scheme, since that's more common way to play it.
nemo
parents:
diff changeset
   474
end