updates for setcode readcard

libcard.cpp

@@ -48,9 +48,17 @@ int32 scriptlib::card_set_card_data(lua_State *L) {
 	case CARDDATA_ALIAS:
 		pcard->data.alias = lua_tointeger(L, 3);
 		break;
-	case CARDDATA_SETCODE:
-		pcard->data.setcode = lua_tointeger(L, 3);
+	case CARDDATA_SETCODE: {
+		unsigned long setcode = lua_tointeger(L, 3);
+		for (int i = 0 ;; ++i)
+		{
+			if(setcode == 0)
+				break;
+			pcard->data.setcode[i] = setcode & 0xffff;
+			setcode >>= 16;
+		}
 		break;
+	}
 	case CARDDATA_TYPE:
 		pcard->data.type = lua_tointeger(L, 3);
 		break;

libduel.cpp

@@ -40,9 +40,17 @@ int32 scriptlib::duel_read_card(lua_State *L) {
 		case CARDDATA_ALIAS:
 			lua_pushinteger(L, dat.alias);
 			break;
-		case CARDDATA_SETCODE:
-			lua_pushinteger(L, dat.setcode);
+		case CARDDATA_SETCODE: {
+			unsigned long setcode = 0;
+			for (int i = 0;; ++i) {
+				uint16_t sc = dat.setcode[i];
+				if (!sc)
+					break;
+				setcode |= sc << (16 * i);
+			}
+			lua_pushinteger(L, setcode);
 			break;
+		}
 		case CARDDATA_TYPE:
 			lua_pushinteger(L, dat.type);
 			break;