fixed token discarding

src/core/Global.ttslua

@@ -2929,6 +2929,15 @@ function removeTokensFromObject(params)
     end
   end
 
+  if cardTokens[object] then
+    -- check if this card was moved with tokens on it
+    for _, tokenData in ipairs(cardTokens[object]) do
+      tokenData.token.locked = false
+      trash.putObject(tokenData.token)
+    end
+    cardTokens[object] = nil
+  else
+    -- search area for tokens
     for _, obj in ipairs(searchLib.onObject(object, "isTileOrToken")) do
       if tokenChecker.isChaosToken(obj) then
         returnChaosTokenToBag({ token = obj, fromBag = false })
@@ -2939,4 +2948,5 @@ function removeTokensFromObject(params)
         trash.putObject(obj)
       end
     end
+  end
 end