From e0aaa76e9c081c4bad869756f75fe348457e986f Mon Sep 17 00:00:00 2001
From: Gaspar Capello <gaspar@igara.com>
Date: Thu, 12 Jan 2023 15:38:03 -0300
Subject: [PATCH] Add warning to Sprite:newTile() and Sprite:deleteTile()

Now, if the tileset does not belong to the sprite object, the lua engine throws an error. Also added a warning when tile_index = 0 on Sprite:deleteTile()
---
 src/app/script/sprite_class.cpp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/app/script/sprite_class.cpp b/src/app/script/sprite_class.cpp
index 385a55ed5..ab8da3138 100644
--- a/src/app/script/sprite_class.cpp
+++ b/src/app/script/sprite_class.cpp
@@ -688,9 +688,10 @@ int Sprite_newTile(lua_State* L)
 {
   auto sprite = get_docobj<Sprite>(L, 1);
   auto ts = get_docobj<Tileset>(L, 2);
-  if (!ts) {
+  if (!ts)
     return luaL_error(L, "empty argument not allowed and must be a Tileset object");
-  }
+  if (ts->sprite() != sprite)
+    return luaL_error(L, "the tileset belongs to another sprite");
   tile_index ti = ts->size();
   if (lua_isinteger(L, 3)) {
     ti = tile_index(lua_tointeger(L, 3));
@@ -716,6 +717,10 @@ int Sprite_deleteTile(lua_State* L)
     ts = get_tile_index_from_arg(L, 2, ti);
   if (!ts)
     return luaL_error(L, "Sprite:deleteTile() needs a Tileset or Tile as first argument");
+  if (ts->sprite() != sprite)
+    return luaL_error(L, "the tileset belongs to another sprite");
+  if (ti == 0)
+    return luaL_error(L, "tile index = 0 cannot be removed");
   if (ti < 0 || ti >= ts->size())
     return luaL_error(L, "index out of bounds");
   Tx tx;