push false when checking S/X/L summonable...

...for non-S/X/L monsters

libcard.cpp

@@ -1973,8 +1973,10 @@ int32 scriptlib::card_is_synchro_summonable(lua_State *L) {
 	check_param_count(L, 2);
 	check_param(L, PARAM_TYPE_CARD, 1);
 	card* pcard = *(card**) lua_touserdata(L, 1);
-	if(!(pcard->data.type & TYPE_SYNCHRO))
-		return 0;
+	if(!(pcard->data.type & TYPE_SYNCHRO)) {
+		lua_pushboolean(L, FALSE);
+		return 1;
+	}
 	card* tuner = 0;
 	group* mg = 0;
 	if(!lua_isnil(L, 2)) {
@@ -2005,8 +2007,10 @@ int32 scriptlib::card_is_xyz_summonable(lua_State *L) {
 	check_param_count(L, 2);
 	check_param(L, PARAM_TYPE_CARD, 1);
 	card* pcard = *(card**) lua_touserdata(L, 1);
-	if(!(pcard->data.type & TYPE_XYZ))
-		return 0;
+	if(!(pcard->data.type & TYPE_XYZ)) {
+		lua_pushboolean(L, FALSE);
+		return 1;
+	}
 	group* materials = 0;
 	if(!lua_isnil(L, 2)) {
 		check_param(L, PARAM_TYPE_GROUP, 2);
@@ -2029,8 +2033,10 @@ int32 scriptlib::card_is_link_summonable(lua_State *L) {
 	check_param_count(L, 2);
 	check_param(L, PARAM_TYPE_CARD, 1);
 	card* pcard = *(card**)lua_touserdata(L, 1);
-	if(!(pcard->data.type & TYPE_LINK))
-		return 0;
+	if(!(pcard->data.type & TYPE_LINK)) {
+		lua_pushboolean(L, FALSE);
+		return 1;
+	}
 	group* materials = 0;
 	card* lcard = 0;
 	if(!lua_isnil(L, 2)) {