fix

expansions/2pick.lua

-os=require("os")
-io=require("io")
---globals
-local main={}
-local extra={}
-
-local forbidden_check={}
-local limited_check={}
-local semi_limited_check={}
-
-local forbidden={}
-local limited={}
-local semi_limited={}
-
-function Auxiliary.LoadLFList()
-	local started=false
-	for line in io.lines("lflist.conf") do
-		if line:find("!") then
-			if started then
-				break
-			else
-				started=true
-			end
-		elseif started then
-			local fstart=line:find(" 0")
-			local lstart=line:find(" 1")
-			local sstart=line:find(" 2")
-			if fstart then
-				local code=tonumber(line:sub(1,fstart-1))
-				if code then forbidden_check[code]=true end
-			elseif lstart then
-				local code=tonumber(line:sub(1,lstart-1))
-				if code then limited_check[code]=true end
-			elseif sstart then
-				local code=tonumber(line:sub(1,sstart-1))
-				if code then semi_limited_check[code]=true end
-			end
-		end
-	end
-end
-function Auxiliary.LoadDB()
-	os.execute("sqlite3 cards.cdb < expansions/sqlite_cmd.txt")
-	for line in io.lines("card_list.txt") do
-		local col=line:find("|")
-		local code=tonumber(line:sub(1,col-1))
-		local cat=tonumber(line:sub(col+1,#line))
-		if (cat & TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK)>0 then
-			table.insert(extra,code)
-		else
-			table.insert(main,code)
-			if forbidden_check[code] then
-				table.insert(forbidden,code)
-			elseif limited_check[code] then
-				table.insert(limited,code)
-			elseif semi_limited_check[code] then
-				table.insert(semi_limited,code)			
-			end
-		end
-	end
-end
-function Auxiliary.SinglePick(p,list)
-	local g1=Group.CreateGroup()
-	local g2=Group.CreateGroup()
-	for _,g in ipairs({g1,g2}) do
-		for i=1,2 do
-			local code=list[math.random()]
-			g:AddCard(Duel.CreateToken(p,code))
-		end
-		Duel.Remove(g,POS_FACEDOWN,REASON_RULE)
-	end
-	local sg=g1:Clone()
-	sg:Merge(g2)
-	local sc=sg:Select(p,1,1,nil):GetFirst()
-	local tg=g1:IsContains(sc) and g1 or g2
-	local rg=g1:IsContains(sc) and g2 or g1
-	Duel.SendtoDeck(tg,p,0,REASON_RULE)
-	Duel.Exile(rg,REASON_RULE)
-end
-function Auxiliary.StartPick(e)
-	math.randomseed(os.time())
-	local g=Duel.GetFieldGroup(0,LOCATION_HAND | LOCATION_DECK | LOCATION_EXTRA, LOCATION_HAND | LOCATION_DECK | LOCATION_EXTRA)
-	Duel.Exile(g,REASON_RULE)
-	local pick_count=1
-	for i=1,10 do
-		local list=main
-		if i==7 then list=semi_limited
-		elseif i==8 or i==9 then list=limited
-		elseif i==10 then list=forbidded
-		for p=0,1 do
-			Auxiliary.SinglePick(p,list)
-		end
-	end
-	for i=1,5 do
-		for p=0,1 do
-			Auxiliary.SinglePick(p,extra)
-		end
-	end
-	Duel.Draw(0,5,REASON_RULE)
-	Duel.Draw(1,5,REASON_RULE)
-	e:Reset()
-end
-
-function Auxiliary.Load2PickRule()
-	Card.IsSetCard=Auxiliary.TRUE
-	Card.IsOriginalSetCard=Auxiliary.TRUE
-
-	Auxiliary.LoadLFList()
-	Auxiliary.LoadDB()
-
-	local e1=Effect.GlobalEffect()
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_ADD_RACE)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_RANGE | EFFECT_FLAG_IGNORE_IMMUNE | EFFECT_FLAG_SET_AVAILABLE)
-	e1:SetTargetRange(0xff,0xff)
-	e1:SetValue(RACE_ALL)
-	Duel.RegisterEffect(e1,0)
-	local e1=Effect.GlobalEffect()
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_ADD_ATTRIBUTE)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_RANGE | EFFECT_FLAG_IGNORE_IMMUNE | EFFECT_FLAG_SET_AVAILABLE)
-	e1:SetTargetRange(0xff,0xff)
-	e1:SetValue(ATTRIBUTE_ALL)
-	Duel.RegisterEffect(e1,0)
-	local e1=Effect.GlobalEffect()
-	e1:SetType(EFFECT_TYPE_FIELD | EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_ADJUST)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
-	e1:SetOperation(Auxiliary.StartPick)
-	Duel.RegisterEffect(e1,0)
-end