0630 Wild

expansions/lflist.conf

@@ -1674,6 +1674,8 @@
 7210017 0
 98920227 0
 74500000 0
+89390010 0
+98941049 0
 #Semi-Wild 1003
 31409200 0
 31409201 0

expansions/script/c89390000.lua

@@ -69,9 +69,8 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
     end
 end
 function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
-    local c=e:GetHandler()
-    if chk==0 then return c:IsAbleToDeck() end
-    Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
     Duel.SetChainLimit(aux.FALSE)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c89390001.lua

@@ -69,9 +69,8 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
     end
 end
 function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
-    local c=e:GetHandler()
-    if chk==0 then return c:IsAbleToDeck() end
-    Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
     Duel.SetChainLimit(aux.FALSE)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c89390002.lua

@@ -69,9 +69,8 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
     end
 end
 function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
-    local c=e:GetHandler()
-    if chk==0 then return c:IsAbleToDeck() end
-    Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
     Duel.SetChainLimit(aux.FALSE)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c89390004.lua

@@ -101,7 +101,7 @@ end
 
 function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
     local c=e:GetHandler()
-    if chk==0 then return not (c:IsReason(REASON_EFFECT) and re and re:GetHandler():IsCode(m)) and c:IsAbleToDeck() end
+    if chk==0 then return not (c:IsReason(REASON_EFFECT) and re and re:GetHandler():IsCode(m)) end
     Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
     Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,2,PLAYER_ALL,LOCATION_DECK)
 end

expansions/script/c89390005.lua

@@ -10,12 +10,18 @@ function cm.initial_effect(c)
     e1:SetTarget(cm.target)
     e1:SetOperation(cm.operation)
     c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+    e2:SetCode(EVENT_REMOVE)
+    e2:SetOperation(cm.rmop)
+    c:RegisterEffect(e2)
     local e3=Effect.CreateEffect(c)
     e3:SetCategory(CATEGORY_TOHAND)
     e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
     e3:SetCode(EVENT_PHASE+PHASE_END)
     e3:SetRange(LOCATION_REMOVED)
     e3:SetCountLimit(1,m)
+    e3:SetCondition(cm.thcon)
     e3:SetTarget(cm.thtg)
     e3:SetOperation(cm.thop)
     c:RegisterEffect(e3)
@@ -53,6 +59,13 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
         end
     end
 end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+    if e:GetHandler():IsFacedown() then return end
+    e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():GetFlagEffect(m)~=0
+end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
     local c=e:GetHandler()
     if chk==0 then return c:IsAbleToHand() or c:IsSSetable() end

expansions/script/c89390006.lua

@@ -36,6 +36,11 @@ function cm.initial_effect(c)
     e3:SetTarget(cm.thtg)
     e3:SetOperation(cm.thop)
     c:RegisterEffect(e3)
+    local e7=Effect.CreateEffect(c)
+    e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+    e7:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e7:SetOperation(cm.atklimit)
+    c:RegisterEffect(e7)
     if not cm.global_check then
         cm.global_check=true
         cm[0]={}
@@ -114,20 +119,27 @@ end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
     local c=e:GetHandler()
     local tid=Duel.GetTurnCount()
-    if chk==0 then return e:GetHandler():IsAbleToDeck() and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,tid) end
+    if chk==0 then return e:GetHandler():IsAbleToDeck() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,tid) end
     Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
     Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
 end
 function cm.thop(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
     local tid=Duel.GetTurnCount()
-    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)==1 and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,tid) then
+    if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)==1 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,tid) then
         Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
         local tg=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,c,e,tp,tid)
         if tg:GetCount()<=0 then return end
         Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
     end
 end
+function cm.atklimit(e,tp,eg,ep,ev,re,r,rp)
+    local e1=Effect.CreateEffect(e:GetHandler())
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_NO_BATTLE_DAMAGE)
+    e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+    e:GetHandler():RegisterEffect(e1)
+end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
     if re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsRace(RACE_PSYCHO) then
         local rc=re:GetHandler():GetCode()

expansions/script/c89390007.lua

@@ -69,9 +69,8 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
     end
 end
 function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
-    local c=e:GetHandler()
-    if chk==0 then return c:IsAbleToDeck() end
-    Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
     Duel.SetChainLimit(aux.FALSE)
 end
 function cm.sretop(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c89390008.lua

@@ -22,12 +22,18 @@ function cm.initial_effect(c)
     e1:SetTarget(cm.target)
     e1:SetOperation(cm.activate)
     c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+    e2:SetCode(EVENT_REMOVE)
+    e2:SetOperation(cm.rmop)
+    c:RegisterEffect(e2)
     local e3=Effect.CreateEffect(c)
     e3:SetCategory(CATEGORY_TOHAND)
     e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
     e3:SetCode(EVENT_PHASE+PHASE_END)
     e3:SetRange(LOCATION_REMOVED)
     e3:SetCountLimit(1,m)
+    e3:SetCondition(cm.thcon)
     e3:SetTarget(cm.thtg)
     e3:SetOperation(cm.thop)
     c:RegisterEffect(e3)
@@ -83,6 +89,13 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
         end
     end
 end
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
+    if e:GetHandler():IsFacedown() then return end
+    e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():GetFlagEffect(m)~=0
+end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
     local c=e:GetHandler()
     if chk==0 then return c:IsAbleToHand() or c:IsSSetable() end

expansions/script/c89390010.lua

+--怅然之魂
+local m=89390010
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e1:SetCode(EVENT_REMOVE)
+    e1:SetCountLimit(1,m)
+    e1:SetTarget(cm.srettg)
+    e1:SetOperation(cm.sretop)
+    c:RegisterEffect(e1)
+end
+function cm.srettg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_HAND+LOCATION_MZONE)
+end
+function cm.rmfilter(c)
+    return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function cm.spfilter1(c,e,tp,tc)
+    return c:IsRace(tc:GetRace()) and not c:IsCode(tc:GetCode()) and c:IsLevelAbove(0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.sretop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local rc=Duel.SelectMatchingCard(tp,cm.rmfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil):GetFirst()
+    if rc and Duel.Remove(rc,POS_FACEUP,REASON_EFFECT)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,c,e,tp,rc) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+        local tg=Duel.SelectMatchingCard(tp,cm.spfilter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,c,e,tp,rc)
+        if tg:GetCount()<=0 then return end
+        Duel.SpecialSummon(tg,0,tp,tp,false,false,POS_FACEUP)
+    end
+end