Monster = {name = 'Monster', health = 100, image = 'gfx/weiwen/circle.png', scalex = 1, scaley = 1, atk = 1, def = 1, spd = 5, x = 0, y = 0, ang = 0, imgang = 0, exp = 5, money = 50, type = 'monster', loot = {}}
MONSTERS = {}
local t = 0

CONFIG.MONSTERS = {
     {
          name = 'Exeggutor', health = 600, image = 'gfx/weiwen/pokemon/103.png', scalex = 2, scaley = 2, r = 136, g = 224, b = 32,
          atk = 4.9, def = 4.5, spd = 6, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0,
          exp = 1200, money = 600, loot = {{chance = 5000, id = 102}, {chance = 50, id = 221}}, spawn1 = {102, 113}, spawn2 = {150, 150},
          spc = {1000, function(self)
               radiusmsg("Exeggutor casts heal!", self.x, self.y)
               parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
          end},
     },
     {
          name = 'Venusaur', health = 809, image = 'gfx/weiwen/pokemon/3.png', scalex = 2, scaley = 2, r = 136, g = 224, b = 32,
          atk = 1.0, def = 4.0, spd = 6, atkspd = 6, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0,
          exp = 1500, money = 2000, loot = {{chance = 600, id = 255}, {chance = 2, id = 324}}, spawn1 = {200, 97}, spawn2 = {239, 149},
          spc = {1000, function(self)
               radiusmsg("Venusaur casts heal!", self.x, self.y)
               parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 100 50 130")
          end},
     },
     {
          name = 'Tentacruel', health = 250, image = 'gfx/weiwen/pokemon/73.png', scalex = 2, scaley = 2, r = 136, g = 224, b = 32,
          atk = 2.9, def = 1.4, spd = 6, atkspd = 3, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0,
          exp = 500, money = 100, loot = {{chance = 600, id = 225}, {chance = 50, id = 221}}, spawn1 = {200, 97}, spawn2 = {239, 149},
     },
     {
          name = 'Vileplume', health = 300, image = 'gfx/weiwen/pokemon/45.png', scalex = 2, scaley = 2, r = 136, g = 224, b = 32,
          atk = 0.01, def = 2.1, spd = 6, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0,
          exp = 500, money = 500, loot = {{chance = 5000, id = 102}, {chance = 50, id = 221}}, spawn1 = {128, 45}, spawn2 = {155, 11},
          spc = {1000, function(self)
               radiusmsg("Vileplume casts heal!", self.x, self.y)
               parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
          end},
     },
     {
          name = 'Machop', health = 150, image = 'gfx/weiwen/pokemon/66.png', scalex = 4, scaley = 4, r = 0, g = 0, b = 0,
          atk = 5.00, def = 3.1, spd = 6, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0,
          exp = 500, money = 200, loot = {{chance = 5000, id = 102}, {chance = 50, id = 221}}, spawn1 = {0, 100}, spawn2 = {150, 150},
     },
     {
          name = 'Charmander', health = 110, image = 'gfx/weiwen/pokemon/4.png', scalex = 2, scaley = 2,
          atk = 2.2, def = 1.8, spd = 6, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10,
          exp = 150, money = 300, loot = {{chance = 5000, id = 100}, {chance = 50, id = 222}}, spawn1 = {0, 100}, spawn2 = {150, 150},
          spc = {1000, function(self, target)
               radiusmsg("Charmander uses ember!", self.x, self.y)
               parse('explosion ' .. self.x .. ' ' .. self.y .. ' 96 40')
               parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 64 255 128 0')
               parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 96 255 255 0')
          end},
     },
     {
          name = 'Squirtle', health = 120, image = 'gfx/weiwen/pokemon/7.png', scalex = 2, scaley = 2,
          atk = 1.7, def = 2.3, spd = 6, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10,
          exp = 150, money = 300, loot = {{chance = 5000, id = 101}, {chance = 50, id = 223}}, spawn1 = {0, 100}, spawn2 = {150, 150},
          spc = {1000, function(self)
               radiusmsg("Squirtle uses watergun!", self.x, self.y)
               parse('explosion ' .. self.x .. ' ' .. self.y .. ' 96 40')
               parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 96 255 255 255')
               parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 75 96 128 128 255')
          end},
     },
     {
          name = 'Caterpie', health = 100, image = 'gfx/weiwen/pokemon/10.png', scalex = 1.5, scaley = 1.5, r = 104, g = 152, b = 40,
          atk = 1.1, def = 1.2, spd = 7, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, spawn1 = {61, 9}, spawn2 = {150, 150},
          exp = 200, money = 300, loot = {{chance = 8000, id = 1}},
     },
     {
          name = 'Weedle', health = 100, image = 'gfx/weiwen/pokemon/13.png', scalex = 1.5, scaley = 1.5, r = 104, g = 152, b = 40,
          atk = 1.2, def = 1.1, spd = 7, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 200, money = 300, loot = {{chance = 8000, id = 1}},
     },
     {
          name = 'Pidgey', health = 200, image = 'gfx/weiwen/pokemon/16.png', scalex = 2, scaley = 2,
          atk = 1.2, def = 1.2, spd = 10, atkspd = 7, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 200, money = 300, loot = {},
          spc = {500, function(self)
               radiusmsg("Pidgey uses sand attack!", self.x, self.y)
               parse('flashposition ' .. self.x .. ' ' .. self.y .. ' 100')
          end},
     },
     {
          name = 'Ratata', health = 130, image = 'gfx/weiwen/pokemon/19.png', scalex = 1.5, scaley = 1.5,
          atk = 1.5, def = 1.5, spd = 9, atkspd = 5, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 200, money = 100, loot = {{chance = 8000, id = 4}},
     },
     {
          name = 'Spearow', health = 100, image = 'gfx/weiwen/pokemon/21.png', scalex = 2, scaley = 2,
          atk = 1.4, def = 1.0, spd = 10, atkspd = 7, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 100, money = 100, loot = {},
          spc = {2500, function(self, id, dist)
               if not self.agility then
                    radiusmsg("Spearow uses agility!", self.x, self.y)
                    parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 155 255 155")
                    radiussound("weapons/g_flash.wav", self.x, self.y)
                    self.spd = 10
                    self.agility = true
                    imagecolor(self.image, 155, 255, 155)
                    timer(5000, "CONFIG.MONSTERSKILLS.endAgility", self.id)
               elseif dist <= 32 then
                    self:hit(id, 10)
               end
          end},
     },
     {
          name = 'Ekans', health = 100, image = 'gfx/weiwen/pokemon/23.png', scalex = 2, scaley = 2,
          atk = 1.8, def = 1.2, spd = 7, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 200, money = 100, loot = {},
          spc = {500, function(self, id, dist)
               if dist <= 96 then
                    radiusmsg("Ekans uses poison sting!", self.x, self.y)
                    self:hit(id, 20)
               end
          end},
     },
     {
          name = 'Pikachu', health = 900, image = 'gfx/weiwen/pokemon/25.png', scalex = 2, scaley = 2,
          atk = 2.1, def = 2.1, spd = 7, atkspd = 7, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10, spawn1 = {0, 100}, spawn2 = {150, 150},
          exp = 500, money = 500, loot = {{chance = 5000, id = 103}, {chance = 50, id = 220}},
          spc = {500, function(self)
               radiusmsg("Pikachu uses thundershock!", self.x, self.y)
               parse('explosion ' .. self.x .. ' ' .. self.y .. ' 96 40')
               parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 96 255 255 0')
               parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 75 64 255 255 255')
          end},
     },
     {
          name = 'Sandshrew', health = 500, image = 'gfx/weiwen/pokemon/27.png', scalex = 2, scaley = 2,
          atk = 1.7, def = 2.1, spd = 7, atkspd = 7, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10, spawn1 = {165, 30}, spawn2 = {184, 48},
          exp = 320, money = 240, loot = {},
          spc = {1000, function(self)
               radiusmsg("Sandshrew uses sand attack!", self.x, self.y)
               parse('flashposition ' .. self.x .. ' ' .. self.y .. ' 100')
          end},
     },
     {
          name = 'NidoranF', health = 500, image = 'gfx/weiwen/pokemon/29.png', scalex = 2, scaley = 2,
          atk = 1.8, def = 1.2, spd = 7, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 100, money = 800, loot = {},
          spc = {750, function(self, id, dist)
               if dist <= 96 then
                    radiusmsg("NidoranF uses poison sting!", self.x, self.y)
                    self:hit(id, 20)
               end
          end},
     },
     {
          name = 'NidoranM', health = 500, image = 'gfx/weiwen/pokemon/32.png', scalex = 2, scaley = 2,
          atk = 1.8, def = 1.2, spd = 7, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 10, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 100, money = 800, loot = {},
          spc = {750, function(self, id, dist)
               if dist <= 96 then
                    radiusmsg("NidoranM uses horn attack!", self.x, self.y)
                    self:hit(id, 20)
               end
          end},
     },
     {
          name = 'Vulpix', health = 1000, image = 'gfx/weiwen/pokemon/37.png', scalex = 2, scaley = 2,
          atk = 2.2, def = 1.8, spd = 7, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0, spawn1 = {0, 100}, spawn2 = {150, 150},
          exp = 400, money = 1000, loot = {{chance = 5000, id = 104}},
          spc = {500, function(self, id, dist)
               radiusmsg("Vulpix uses flamethrower!", self.x, self.y)
               local x1, y1 = self.x, self.y
               local rot = math.atan2(player(id, 'y')-y1, player(id, 'x')-x1) + math.pi/2
               local x2, y2 = math.sin(rot), -math.cos(rot)
               local fire = image("gfx/sprites/spot.bmp", 0, 0, 1)
               imagepos(fire, x1+x2*64, y1+y2*64, math.deg(rot)+180)
               imagescale(fire, 1.5, 2)
               imagecolor(fire, 255, 64, 0)
               imageblend(fire, 1)
               timer(500, "freeimage", fire)
               parse('explosion ' .. x1+x2*100 .. ' ' .. y1+y2*100 .. ' 48 40')
               parse('explosion ' .. x1+x2*50 .. ' ' .. y1+y2*50 .. ' 32 40')
          end},
     },
     {
          name = 'Meowth', health = 2500, image = 'gfx/weiwen/pokemon/52.png', scalex = 2, scaley = 2,
          atk = 2.2, def = 2.2, spd = 10, atkspd = 6, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 1000, money = 1000, loot = {{chance = 1000, id = 230}},
     },
     {
          name = 'Mankey', health = 1000, image = 'gfx/weiwen/pokemon/56.png', scalex = 2, scaley = 2,
          atk = 2.5, def = 1.8, spd = 10, atkspd = 6, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 20, runat = 0, range = 48, spawn1 = {0, 100}, spawn2 = {150, 150},
          exp = 250, money = 200, loot = {{chance = 1000, id = 300},{chance = 1000, id = 301},{chance = 1000, id = 302},{chance = 1000, id = 303},{chance = 1000, id = 304},{chance = 1000, id = 305},{chance = 1000, id = 306}},
          spc = {1000, function(self, id, dist)
               if not self.rage then
                    radiusmsg("Mankey uses rage!", self.x, self.y)
                    parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 155 155")
                    radiussound("weapons/g_flash.wav", self.x, self.y)
                    self.def = 3.3
                    self.rage = true
                    imagecolor(self.image, 255, 155, 155)
                    timer(5000, "CONFIG.MONSTERSKILLS.endRage", self.id)
               elseif dist <= 96 then
                    radiusmsg("Mankey uses karate chop!", self.x, self.y)
                    self:hit(id, 20)
               end
          end},
     },
     {
          name = 'Abra', health = 100, image = 'gfx/weiwen/pokemon/63.png', scalex = 2, scaley = 2,
          atk = 0.6, def = 1.0, spd = 5, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 100, spawn1 = {0, 0}, spawn2 = {150, 150},
          exp = 100, money = 150, loot = {{chance = 5000, id = 105}},
          spc = {2500, function(self)
               radiusmsg("Abra uses teleport!", self.x, self.y)
               parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
               local dir = math.random(math.pi*2)
               if self:move(dir, 40) or self:move(dir, -40) then
                    parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
               end
          end},
     },
     {
          name = 'Gastly', health = 150, image = 'gfx/weiwen/pokemon/92.png', scalex = 2, scaley = 2, r = 64, g = 0, b = 64,
          atk = 1.2, def = 1.5, spd = 8, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 50, spawn1 = {0, 100}, spawn2 = {150, 150},
          exp = 300, money = 100, loot = {},
          spc = {1000, function(self, id, dist)
               if dist <= 64 and not PLAYERS[id].tmp.paralyse then
                    radiusmsg("Gastly uses lick!", self.x, self.y)
                    PLAYERS[id].tmp.paralyse = true
                    msg2(id, "You are paralysed.")
                    parse("effect \"colorsmoke\" " .. player(id, 'x') .. " " .. player(id, 'y') .. " 5 5 64 0 64")
                    timer(3000, "rem.paralyse", id)
               elseif dist <= 32 then
                    self:hit(id, 10)
               end
          end},
     },
     {
          name = 'Onix', health = 500, image = 'gfx/weiwen/pokemon/95.png', scalex = 3, scaley = 3, r = 144, g = 144, b = 144,
          atk = 2.8, def = 5.0, spd = 3, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 0, range = 64, spawn1 = {165, 30}, spawn2 = {184, 48},
          exp = 1000, money = 1000, loot = {{chance = 1000, id = 310},{chance = 1000, id = 311},{chance = 1000, id = 312},{chance = 1000, id = 313},{chance = 1000, id = 314},{chance = 1000, id = 315},{chance = 1000, id = 316}},
          spc = {1000, function(self)
               if not self.harden then
                    radiusmsg("Onix uses harden!", self.x, self.y)
                    parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 192 192 192")
                    radiussound("weapons/g_flash.wav", self.x, self.y)
                    self.def = 7.5
                    self.harden = true
                    imagecolor(self.image, 155, 155, 255)
                    timer(5000, "CONFIG.MONSTERSKILLS.endHarden", self.id)
               end
          end},
     },
     {
          name = 'Voltorb', health = 250, image = 'gfx/weiwen/pokemon/100.png', scalex = 2, scaley = 2, r = 144, g = 144, b = 144,
          atk = 2.3, def = 2.3, spd = 5, atkspd = 8, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, range = 48, spawn1 = {150, 150}, spawn2 = {150, 150},
          exp = 300, money = 530, loot = {{chance = 5000, id = 103}},
          spc = {1000, function(self)
               if self.health < 20 then
                    radiusmsg("Voltorb uses selfdestruct!", self.x, self.y)
                    parse('explosion ' .. self.x .. ' ' .. self.y .. ' 128 80')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 128 255 128 0')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 128 255 255 0')
                    self:destroy()
               else
                    radiusmsg("Voltorb uses thundershock!", self.x, self.y)
                    parse('explosion ' .. self.x .. ' ' .. self.y .. ' 96 40')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 96 255 255 0')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 75 64 255 255 255')
               end
          end},
     },
     {
          name = 'Exeggcute', health = 750, image = 'gfx/weiwen/pokemon/102.png', scalex = 2, scaley = 2,
          atk = 3.6, def = 3.0, spd = 5, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 100, spawn1 = {45, 28}, spawn2 = {8, 57},
          exp = 1500, money = 1500, loot = {{chance = 5000, id = 105}},
          spc = {2500, function(self)
               radiusmsg("Exeggute uses teleport!", self.x, self.y)
               parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
               local dir = math.random(math.pi*2)
               if self:move(dir, 40) or self:move(dir, -40) then
                    parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
               end
          end},
     },
     {
          name = 'Koffing', health = 300, image = 'gfx/weiwen/pokemon/109.png', scalex = 2, scaley = 2, r = 128, g = 128, b = 0,
          atk = 2.0, def = 1.7, spd = 4, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, range = 48, spawn1 = {0, 100}, spawn2 = {150, 150},
          exp = 300, money = 350, loot = {{chance = 5000, id = 106}},
          spc = {1000, function(self)
               if self.health < 20 then
                    radiusmsg("Koffing uses explosion!", self.x, self.y)
                    parse('explosion ' .. self.x .. ' ' .. self.y .. ' 128 40')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 128 255 128 0')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 128 255 255 0')
                    self:destroy()
               else
                    radiusmsg("Koffing uses poison fog!", self.x, self.y)
                    parse('explosion ' .. self.x .. ' ' .. self.y .. ' 96 40')
                    parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 100 96 128 128 0')
               end
          end},
     },
     {
          name = 'Diglett', health = 300, image = 'gfx/weiwen/pokemon/50.png', scalex = 2, scaley = 2,
          atk = 1.8, def = 2.0, spd = 3, atkspd = 3, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 100, spawn1 = {223, 2}, spawn2 = {222, 20},
          exp = 300, money = 300, loot = {{chance = 2000, id = 105}},
     },
     {
          name = 'Dugtrio', health = 400, image = 'gfx/weiwen/pokemon/51.png', scalex = 2, scaley = 2,
          atk = 2.6, def = 4.0, spd = 5, atkspd = 4.5, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 100, spawn1 = {202, 2}, spawn2 = {203, 21},
          exp = 900, money = 1000, loot = {{chance = 2000, id = 105}},
},
{
name = 'Dragon', health = 400, image = 'gfx/weiwen/pokemon/6.png', scalex = 3, scaley = 3,
atk = 10.0, def = 10.0, spd = 10, atkspd = 10, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 25, runat = 20, spawn1 = {0, 0}, spawn2 = {0, 0},
exp = 500, money = 1000, loot = {{chance = 1000, id = 332},{chance = 1000, id = 333},{chance = 1000, id = 334},{chance = 1000, id = 335},{chance = 1000, id = 336},{chance = 1000, id = 337},{chance = 1000, id = 338},{chance = 1000, id = 405}},
     },
     {
          name = 'Ronflex', health = 4000, image = 'gfx/weiwen/pokemon/143.png', scalex = 2, scaley = 2, r = 128, g = 128, b = 0,
          atk = 5.0, def = 5.7, spd = 1, atkspd = 1.5, x = 0, y = 0, ang = 0, imgang = 0, spawnchance = 10, runat = 15, range = 48, spawn1 = {171, 132}, spawn2 = {181, 118},
          exp = 6000, money = 3000, loot = {{chance = 5000, id = 143}},
          spc = {1000, function(self)
               if self.health < 20 then
               radiusmsg("Ronflex casts heal!", self.x, self.y)
               parse("effect \"colorsmoke\" " .. self.x .. " " .. self.y .. " 5 5 255 255 255")
               end
          end},
     },
}

CONFIG.MONSTERSKILLS = {
     endAgility = function(id)
          self = MONSTERS[tonumber(id)]
          self.spd = 10
          imagecolor(self.image, 255, 255, 255)
          self.agility = nil
     end,
     endRage = function(id)
          self = MONSTERS[tonumber(id)]
          self.atk = 2.2
          imagecolor(self.image, 255, 255, 255)
          self.rage = nil
     end,
     endHarden = function(id)
          self = MONSTERS[tonumber(id)]
          self.def = 5
          imagecolor(self.image, 255, 255, 255)
          self.harden = nil
     end,
}

addhook("attack", "MONSTERattack")
function MONSTERattack(id)
     if gettile(PLAYERS[id].x, PLAYERS[id].y).SAFE then
          return
     end
     if inarray({400, 401, 402, 403, 404}, PLAYERS[id].Equipment[7]) then
          message(id, "You may not attack on a horse.")
          return
     end
     local weapon, closest = player(id, 'weapontype')
     for _, m in ipairs(MONSTERS) do
          local x, y = player(id, 'x'), player(id, 'y')
          local dist = math.sqrt((m.x-x)^2+(m.y-y)^2)
          if dist <= (closest and closest[2] or (CONFIG.WEAPONRANGE[weapon] or CONFIG.WEAPONRANGE[50])) then
               local rot = player(id, 'rot')
               if math.abs(math.rad(rot) - math.atan2(y-m.y, x-m.x) + math.pi/2)%(2*math.pi) <= (CONFIG.WEAPONWIDTH[weapon] or CONFIG.WEAPONRANGE[50]) then
                    closest = {m, dist}
               end
          end
     end
     if closest then
          closest[1]:damage(id, math.ceil(20*((PLAYERS[id].Level+50)*PLAYERS[id].tmp.atk/closest[1].def)/math.random(60, 140)), weapon)
     end
end

addhook("ms100", "MONSTERms100")
function MONSTERms100()
     t = t + 1
     if t % 100 == 0 then
          while #MONSTERS < CONFIG.MAXMONSTERS do
               local rand
               repeat
                    rand = math.random(#CONFIG.MONSTERS)
               until math.random(0, 100) < CONFIG.MONSTERS[rand].spawnchance
               local m = deepcopy(CONFIG.MONSTERS[rand])
               local x, y, tilex, tiley
               repeat
                    if m.spawn1 then
                         tilex, tiley = math.random(m.spawn1[1], m.spawn2[1]), math.random(m.spawn1[2], m.spawn2[2])
                    else
                         tilex, tiley = math.random(map'xsize'), math.random(map'ysize')
                    end
               until not gettile(tilex, tiley).SAFE and not gettile(tilex, tiley).PVP and tile(tilex, tiley, "walkable") and tile(tilex, tiley, "frame") ~= 34
               m.x, m.y = math.floor(tilex*32+16), math.floor(tiley*32+16)
               Monster:new(m)
          end
     end
     for _, m in ipairs(MONSTERS) do
          if t % m.atkspd == 0 then
               m.target = nil
               local closest
               for _, p in ipairs(table.shuffle(player(0, 'table'))) do
                    if player(p, 'health') > 0 and not gettile(PLAYERS[p].x, PLAYERS[p].y).SAFE then
                         local dist = math.sqrt((player(p, 'x')-m.x)^2 + (player(p, 'y')-m.y)^2)
                         if dist < 400 then
                              if not closest or dist < closest[2] then
                                   closest = {p, dist}
                              end
                         end
                    end
               end
               if closest then
                    local dist = closest[2]
                    if dist < 400 then
                         m.target = closest[1]
                         if m.spc and math.random(10000) <= m.spc[1] then
                              m.spc[2](m, m.target, dist)
                         elseif dist <= (m.range or 32) then
                              m:hit(m.target, 10)
                         end
                    end
               end
          end
          m.imgang = math.sin(t/2.5*math.pi) * 15
          if m.target and player(m.target, 'exists') and player(m.target, 'health') > 0 and not gettile(PLAYERS[m.target].x, PLAYERS[m.target].y).SAFE then
               xdist, ydist = player(m.target, 'x') - m.x, player(m.target, 'y') - m.y
               local dist = math.sqrt(xdist^2 + ydist^2)
               if dist < 400 then
                    m.ang = math.atan2(ydist, xdist)-math.pi/2+math.random(-1, 1)/2
               else
                    m.target = nil
               end
          end
          if not m.target then
               m:rot(math.random(-1, 1)/2)
          end
          if not m:move(m:rot(), m.health > m.runat and 1 or -1) then
               repeat until m:move(math.rad(math.random(360)), 1)
          end
     end
end

function Monster:new(m)
     if not (m.x or m.y) then return false end
     m.image = image(m.image, m.x, m.y, 0)
     imagescale(m.image, m.scalex, m.scaley)
     setmetatable(m, self)
     self.__index = self
     local n = #MONSTERS+1
     MONSTERS[#MONSTERS+1] = m
     m.id = n
     return m
end

function Monster:pos(x, y)
     if not x and not y then
          return self.x, self.y
     else
          self.x, self.y = x or self.x, y or self.y
          imagepos(self.image, self.x, self.y, self.imgang)
     end
     return true
end

function Monster:move(dir, amt)
     local x, y = -math.sin(dir)*amt*self.spd, math.cos(dir)*amt*self.spd
     local x, y = self.x+x, self.y+y
     local tilex, tiley = math.floor(x/32), math.floor(y/32)
     if tile(tilex, tiley, 'walkable') and tile(tilex, tiley, 'frame') ~= 34 and not gettile(tilex, tiley).SAFE then
          self:pos(x, y)
          return true
     else
          self:rot(math.random(-1, 1)*math.pi/2)
          return false
     end
end

function Monster:damage(id, dmg, wpntype)
     if not PLAYERS[id].Tutorial.damagem then
          message(id, "You have attacked a monster! Good job! Keep on attacking it until it dies.", "255128000")
          PLAYERS[id].Tutorial.damagem = true
     end
     local wpnName
     if weapon == 251 then
          wpnName = 'rune'
     elseif weapon == 46 then
          wpnName = 'firewave'
          dmg = dmg/5
     else
          wpnName = PLAYERS[id].Equipment[3] and ITEMS[PLAYERS[id].Equipment[3]].name or 'dagger'
     end
     self.health = self.health - dmg
     --print(player(id, 'name') .. ' deals ' .. dmg .. ' damage to ' .. self.name .. ' usng a ' .. wpnName .. '.')
     if self.health <= 0 then
          if not PLAYERS[id].Tutorial.killm then
               message(id, "Congratulation! You have killed your first monster. You can proceed to pick up the loot by using the drop weapon button (default G)", "255128000")
               PLAYERS[id].Tutorial.killm = true
          end
          addexp(id, math.floor(self.exp*CONFIG.EXPRATE))
          self:die()
     else
          parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' 0 ' .. self.scaley .. ' ' .. (self.r and (self.r .. ' ' .. self.g .. ' ' .. self.b) or '192 0 0'))
     end
     radiussound("weapons/machete_hit.wav", self.x, self.y)
     return true
end

function Monster:hit(id, dmg)
     if not PLAYERS[id].Tutorial.hitm then
          message(id, "A monster is attacking you! You can fight back by swinging your weapon at it.", "255128000")
          PLAYERS[id].Tutorial.hitm = true
     end
     if player(id, 'weapontype') == 41 and (math.abs(math.rad(player(id, 'rot')) - math.atan2(player(id, 'y')-self.y, player(id, 'x')-self.x) + math.pi/2)%(2*math.pi) <= math.pi*2/3) then
          EXPhit(id, self, -1, dmg/4)
          radiussound("weapons/ricmetal" .. math.random(1,2) .. ".wav", self.x, self.y)
     else
          EXPhit(id, self, -1, dmg)
          radiussound("weapons/knife_hit.wav", self.x, self.y)
     end
     return true
end

function Monster:die(id)
     local size = self.scalex+self.scaley
     parse('effect "colorsmoke" ' .. self.x .. ' ' .. self.y .. ' ' .. size .. ' 64 ' .. (self.r and (self.r .. ' ' .. self.g .. ' ' .. self.b) or '192 0 0'))
     local tilex, tiley = math.floor(self.x/32), math.floor(self.y/32)
     spawnitem(1337, tilex, tiley, math.floor(self.money*math.random(50, 150)/100)*CONFIG.MONEYRATE)
     for _, loot in ipairs(self.loot) do
          local chance = math.random(10000)
          if chance <= loot.chance then
               spawnitem(loot.id, tilex, tiley)
          end
     end
     radiussound("weapons/c4_explode.wav", self.x, self.y)
     self:destroy()
end

function Monster:destroy()
     freeimage(self.image)
     local found
     table.remove(MONSTERS, self.id)
     for i, m in ipairs(MONSTERS) do
          m.id = i
     end
     return true
end

function Monster:rot(rot)
     if not rot then
          return self.ang
     else
          self.ang = (self.ang+rot)%(math.pi*2)
     end
     return true
end