Commit 4c4fe6f1 authored by nekrozar's avatar nekrozar

use Duel.AnnounceType and Duel.AnnounceCoin

parent 7dda468f
...@@ -55,7 +55,8 @@ function c15317640.rcttg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -55,7 +55,8 @@ function c15317640.rcttg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
end end
function c15317640.rctop(e,tp,eg,ep,ev,re,r,rp) function c15317640.rctop(e,tp,eg,ep,ev,re,r,rp)
local coin=Duel.SelectOption(tp,60,61) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin==res then if coin==res then
e:GetHandler():RemoveCounter(tp,0x1f,1,REASON_EFFECT) e:GetHandler():RemoveCounter(tp,0x1f,1,REASON_EFFECT)
......
...@@ -16,8 +16,8 @@ function c26495087.tgcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -16,8 +16,8 @@ function c26495087.tgcon(e,tp,eg,ep,ev,re,r,rp)
end end
function c26495087.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) function c26495087.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPTION) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
local op=Duel.SelectOption(tp,70,71,72) local op=Duel.AnnounceType(tp)
e:SetLabel(op) e:SetLabel(op)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_DECK)
end end
......
...@@ -19,12 +19,13 @@ function c37313786.target(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -19,12 +19,13 @@ function c37313786.target(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
end end
function c37313786.activate(e,tp,eg,ep,ev,re,r,rp) function c37313786.activate(e,tp,eg,ep,ev,re,r,rp)
local coin=Duel.SelectOption(tp,60,61) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin~=res then if coin~=res then
local gc=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0) local gc=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
Duel.Draw(tp,5-gc,REASON_EFFECT) Duel.Draw(tp,5-gc,REASON_EFFECT)
else else
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
......
...@@ -50,7 +50,7 @@ function c4483989.atkop(e,tp,eg,ep,ev,re,r,rp) ...@@ -50,7 +50,7 @@ function c4483989.atkop(e,tp,eg,ep,ev,re,r,rp)
local at=Duel.GetAttackTarget() local at=Duel.GetAttackTarget()
if a:IsFaceup() and a:IsRelateToEffect(e) and at:IsFaceup() and at:IsRelateToEffect(e) then if a:IsFaceup() and a:IsRelateToEffect(e) and at:IsFaceup() and at:IsRelateToEffect(e) then
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_COIN) Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_COIN)
local coin=Duel.SelectOption(1-tp,60,61) local coin=Duel.AnnounceCoin(1-tp)
local res=Duel.TossCoin(1-tp,1) local res=Duel.TossCoin(1-tp,1)
if coin~=res then if coin~=res then
Duel.ChangePosition(at,POS_FACEUP_ATTACK) Duel.ChangePosition(at,POS_FACEUP_ATTACK)
......
...@@ -22,7 +22,7 @@ function c5990062.activate(e,tp,eg,ep,ev,re,r,rp) ...@@ -22,7 +22,7 @@ function c5990062.activate(e,tp,eg,ep,ev,re,r,rp)
local tc=g:GetFirst() local tc=g:GetFirst()
if not tc then return end if not tc then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
local res=Duel.SelectOption(tp,70,71,72) local res=Duel.AnnounceType(tp)
Duel.ConfirmDecktop(tp,1) Duel.ConfirmDecktop(tp,1)
if (res==0 and tc:IsType(TYPE_MONSTER)) if (res==0 and tc:IsType(TYPE_MONSTER))
or (res==1 and tc:IsType(TYPE_SPELL)) or (res==1 and tc:IsType(TYPE_SPELL))
......
...@@ -25,7 +25,7 @@ function c64538655.desop(e,tp,eg,ep,ev,re,r,rp) ...@@ -25,7 +25,7 @@ function c64538655.desop(e,tp,eg,ep,ev,re,r,rp)
if c==tc then tc=Duel.GetAttacker() end if c==tc then tc=Duel.GetAttacker() end
if not tc:IsRelateToBattle() then return end if not tc:IsRelateToBattle() then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.SelectOption(tp,60,61) local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin~=res then if coin~=res then
Duel.Destroy(tc,REASON_EFFECT) Duel.Destroy(tc,REASON_EFFECT)
......
--女神ヴェルダンディの導き --Goddess Verdande's Guidance
function c64961254.initial_effect(c) function c64961254.initial_effect(c)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
...@@ -42,7 +42,7 @@ end ...@@ -42,7 +42,7 @@ end
function c64961254.target(e,tp,eg,ep,ev,re,r,rp,chk) function c64961254.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDiscardDeck(1-tp,1) end if chk==0 then return Duel.IsPlayerCanDiscardDeck(1-tp,1) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CARDTYPE)
Duel.SetTargetParam(Duel.SelectOption(tp,70,71,72)) Duel.SetTargetParam(Duel.AnnounceType(tp))
end end
function c64961254.operation(e,tp,eg,ep,ev,re,r,rp) function c64961254.operation(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetFieldGroupCount(1-tp,0,LOCATION_DECK)<=0 if Duel.GetFieldGroupCount(1-tp,0,LOCATION_DECK)<=0
......
...@@ -19,7 +19,8 @@ end ...@@ -19,7 +19,8 @@ end
function c67959180.operation(e,tp,eg,ep,ev,re,r,rp) function c67959180.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then if c:IsRelateToEffect(e) and c:IsFaceup() then
local opt=Duel.SelectOption(tp,60,61) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local opt=Duel.AnnounceCoin(tp)
local coin=Duel.TossCoin(tp,1) local coin=Duel.TossCoin(tp,1)
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
......
...@@ -21,8 +21,8 @@ function c71625222.destg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -21,8 +21,8 @@ function c71625222.destg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
end end
function c71625222.desop(e,tp,eg,ep,ev,re,r,rp) function c71625222.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71625222,1)) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.SelectOption(tp,60,61) local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin~=res then if coin~=res then
local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil) local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
......
...@@ -16,7 +16,8 @@ function c81172176.target(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -16,7 +16,8 @@ function c81172176.target(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
end end
function c81172176.activate(e,tp,eg,ep,ev,re,r,rp) function c81172176.activate(e,tp,eg,ep,ev,re,r,rp)
local coin=Duel.SelectOption(tp,60,61) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin~=res then Duel.Remove(Duel.GetFieldGroup(tp,0,LOCATION_GRAVE),POS_FACEUP,REASON_EFFECT) if coin~=res then Duel.Remove(Duel.GetFieldGroup(tp,0,LOCATION_GRAVE),POS_FACEUP,REASON_EFFECT)
else Duel.DiscardDeck(tp,Duel.GetFieldGroupCount(tp,0,LOCATION_GRAVE),REASON_EFFECT) end else Duel.DiscardDeck(tp,Duel.GetFieldGroupCount(tp,0,LOCATION_GRAVE),REASON_EFFECT) end
......
...@@ -21,7 +21,7 @@ function c82642348.destg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -21,7 +21,7 @@ function c82642348.destg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function c82642348.desop(e,tp,eg,ep,ev,re,r,rp) function c82642348.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.SelectOption(tp,60,61) local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin~=res then if coin~=res then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
......
...@@ -18,7 +18,7 @@ function c89718302.damtg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -18,7 +18,7 @@ function c89718302.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function c89718302.damop(e,tp,eg,ep,ev,re,r,rp) function c89718302.damop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local coin=Duel.SelectOption(tp,60,61) local coin=Duel.AnnounceCoin(tp)
local res=Duel.TossCoin(tp,1) local res=Duel.TossCoin(tp,1)
if coin~=res then if coin~=res then
Duel.Damage(1-tp,1000,REASON_EFFECT) Duel.Damage(1-tp,1000,REASON_EFFECT)
......
...@@ -16,7 +16,8 @@ function c94773007.attg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -16,7 +16,8 @@ function c94773007.attg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_COIN,nil,0,tp,1)
end end
function c94773007.atop(e,tp,eg,ep,ev,re,r,rp) function c94773007.atop(e,tp,eg,ep,ev,re,r,rp)
local opt=Duel.SelectOption(tp,60,61) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local opt=Duel.AnnounceCoin(tp)
local coin=Duel.TossCoin(tp,1) local coin=Duel.TossCoin(tp,1)
if opt==coin then if opt==coin then
Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2)) Duel.SetLP(tp,math.ceil(Duel.GetLP(tp)/2))
......
...@@ -44,7 +44,7 @@ function c96012004.coinop(e,tp,eg,ep,ev,re,r,rp) ...@@ -44,7 +44,7 @@ function c96012004.coinop(e,tp,eg,ep,ev,re,r,rp)
if e:GetLabel()==0 then return end if e:GetLabel()==0 then return end
if e:GetLabel()==2 and Duel.GetCurrentChain()~=ev+1 then return end if e:GetLabel()==2 and Duel.GetCurrentChain()~=ev+1 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COIN)
local res=1-Duel.SelectOption(tp,60,61) local res=1-Duel.AnnounceCoin(tp)
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetProperty(EFFECT_FLAG_DELAY) e1:SetProperty(EFFECT_FLAG_DELAY)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment