Add spawner option: spawn only on screen

Author: alesan99

enemytool.lua

@@ -8,8 +8,9 @@ function enemytool:init(x, y, r, e)
 	self.r = r
 	self.customenemy = true
 	self.animation = false
+	self.spawnonlyonscreen = false
 	if e:find("|") then
-		local v = convertr(e, {"string", "num", "num", "bool", "string"}, true)
+		local v = convertr(e, {"string", "num", "num", "bool", "string", "bool"}, true)
 		self.enemy = v[1]
 		self.xvel = v[2]
 		self.yvel = v[3]
@@ -26,6 +27,9 @@ function enemytool:init(x, y, r, e)
 		if v[5] and v[5] ~= "none" then
 			self.animation = v[5]
 		end
+		if v[6] ~= nil then
+			self.spawnonlyonscreen = v[6]
+		end
 	else
 		self.enemy = e or "goomba"
 		self.legacy = true
@@ -144,6 +148,9 @@ function enemytool:spawn()
 	if i == nil then
 		return false
 	end
+	if self.spawnonlyonscreen and not onscreen(self.x-2, self.y-2, 4, 4) then
+		return false
+	end
 
 	--backwards compatibility fuck
 	if (not self.customenemy) and self.legacy then

entity.lua

@@ -1110,7 +1110,7 @@ rightclicktype["tiletool"] = {
 }
 rightclicktype["enemytool"] = {
 	name = "spawner",
-	default = "goomba|0|0|false|none",
+	default = "goomba|0|0|false|none|false",
 	ignoredefault = {false,false,false,"missing",false},
 	varfunc = function(v, i)
 		if i == 1 then
@@ -1174,7 +1174,8 @@ rightclicktype["enemytool"] = {
 		{"slider", 3, range = {-50, 50, round = 1}},
 		"animation",
 		{"dropdown", 5, 14, nil, {"none", "block", "cannon", "pipeup", "pipedown", "pipeleft", "piperight", "poof"}, ignorerctt=true},
-		{"button", 2, {"link trigger ", startrclink}, {"x", resetrclink, textcolor = {255, 0, 0}}}
+		{"checkbox", 6, "only on screen"},
+		{"button", 2, {"link trigger ", startrclink}, {"x", resetrclink, textcolor = {255, 0, 0}}},
 	},
 	t = {"goomba"},
 	entitylistlength = 1,