rubbish

expansions/pick.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 2pick/2pick.cdb < 2pick/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)
-		elseif (cat & TYPE_TOKEN+TYPE_RITUAL)==0 and cat~=TYPE_MONSTER+TYPE_NORMAL then
-			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,count)
-	local g1=Group.CreateGroup()
-	local g2=Group.CreateGroup()
-	for _,g in ipairs({g1,g2}) do
-		for i=1,count do
-			local code=list[math.random(#list)]
-			g:AddCard(Duel.CreateToken(p,code))
-		end
-		Duel.SendtoDeck(g,nil,0,REASON_RULE)
-	end
-	local sg=g1:Clone()
-	sg:Merge(g2)
-	--Duel.ConfirmCards(p,sg)
-	Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
-	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)
-	for i=1,11 do
-		local list=main
-		local count=4
-		if i==9 then
-			list=semi_limited
-		elseif i==10 then
-			list=limited
-			count=3
-		elseif i==11 then
-			list=forbidden
-			count=1
-		end
-		for p=0,1 do
-			Auxiliary.SinglePick(p,list,count)
-		end
-	end
-	for i=1,5 do
-		for p=0,1 do
-			Auxiliary.SinglePick(p,extra,4)
-		end
-	end
-	Duel.ShuffleDeck(0)
-	Duel.ShuffleDeck(1)	
-	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
-	Card.IsFusionSetCard=Auxiliary.TRUE
-	Card.IsLinkSetCard=Auxiliary.TRUE	
-
-	Auxiliary.LoadLFList()
-	Auxiliary.LoadDB()
-
-	local e2=Effect.GlobalEffect()
-	e2:SetDescription(1264319*16)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_SPSUMMON_PROC)
-	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e2:SetRange(LOCATION_EXTRA)
-	e2:SetValue(SUMMON_TYPE_FUSION)
-	e2:SetCondition(Auxiliary.FusionSummonCondition)
-	e2:SetOperation(Auxiliary.FusionSummonOperation)
-	local e1=Effect.GlobalEffect()
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE | EFFECT_FLAG_SET_AVAILABLE)
-	e1:SetTargetRange(LOCATION_EXTRA,LOCATION_EXTRA)
-	e1:SetLabelObject(e2)
-	e1:SetTarget(function(e,c) return c:IsType(TYPE_FUSION) end)
-	Duel.RegisterEffect(e1,0)
-	local e1=Effect.GlobalEffect()
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_ADD_TYPE)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_RANGE | EFFECT_FLAG_IGNORE_IMMUNE | EFFECT_FLAG_SET_AVAILABLE)
-	e1:SetTargetRange(0xff,0xff)
-	e1:SetValue(TYPE_TUNER)
-	e1:SetTarget(function(e,c) return c:IsType(TYPE_MONSTER) end)
-	Duel.RegisterEffect(e1,0)
-	local e1=Effect.GlobalEffect()
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_NONTUNER)
-	e1:SetProperty(EFFECT_FLAG_IGNORE_RANGE | EFFECT_FLAG_IGNORE_IMMUNE | EFFECT_FLAG_SET_AVAILABLE)
-	e1:SetTargetRange(0xff,0xff)
-	e1:SetValue(1)
-	Duel.RegisterEffect(e1,0)
-	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(0x7f)
-	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
-function Auxiliary.FusionSummonCondition(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local mg=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil)
-	return c:CheckFusionMaterial(mg,nil,tp)
-end
-function Auxiliary.FusionSummonOperation(e,tp,eg,ep,ev,re,r,rp,c)
-	local mg=Duel.GetFusionMaterial(tp):Filter(Card.IsOnField,nil)
-	local g=Duel.SelectFusionMaterial(tp,c,mg,nil,tp)
-	c:SetMaterial(g)
-	Duel.SendtoGrave(g,REASON_MATERIAL+REASON_FUSION)
-end

expansions/sqlite_cmd.txt

-.output card_list.txt
-select id,type from datas;
-.output stdout