Maxesmose
Member Title : Maximose <-> Posts : 3 Join date : 2014-11-15
| Subject: I need help scripting 4 cards . Sat Nov 15, 2014 12:15 am | |
| |
|
TGAP-Trixie
Member Title : Trixie does not even... Posts : 273 Join date : 2014-04-17
| Subject: Re: I need help scripting 4 cards . Sat Nov 15, 2014 3:05 am | |
| Should be easy to script. Learn PSCT and it'll be easier when you're looking around in the lua files. OP stats though. I can do one for you now, I'm waiting on ygopro to dload cause I have to reinstall it xD - Lichea:
- Code:
-
function cxxxxxxxx.initial_effect(c) --extra summon local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e1:SetCode(EVENT_SUMMON_SUCCESS) e1:SetOperation(cxxxxxxxx.sumop) c:RegisterEffect(e1) end function cxxxxxxxx.sumop(e,tp,eg,ep,ev,re,r,rp) if Duel.GetFlagEffect(tp,xxxxxxxx)~=0 then return end local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_FIELD) e1:SetTargetRange(LOCATION_HAND+LOCATION_MZONE,0) e1:SetCode(EFFECT_EXTRA_SUMMON_COUNT) e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,YOURSETCODEHERE)) e1:SetReset(RESET_PHASE+PHASE_END) Duel.RegisterEffect(e1,tp) Duel.RegisterFlagEffect(tp,xxxxxxxx,RESET_PHASE+PHASE_END,0,1) end
Replace xxxxxxxx with your card's serial code (3-9 digits long I believe) and YOURSETCODEHERE with your archtype's setcode |
|
Maxesmose
Member Title : Maximose <-> Posts : 3 Join date : 2014-11-15
| Subject: Re: I need help scripting 4 cards . Sat Nov 15, 2014 9:22 am | |
| Im trying to script them but they just end up doing some weird thing O.o. |
|
cane_63106
Member Title : D.D. Dragon Kaiser Posts : 454 Join date : 2013-07-23 Location : St. Louis, MO
| Subject: Re: I need help scripting 4 cards . Fri Nov 21, 2014 3:23 pm | |
| --West Pirate Vansi function c000000.initial_effect(c) local e1=Effect.CreateEffect(c) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e1:SetValue(1) c:RegisterEffect(e1) --atk change local e2=Effect.CreateEffect(c) e2:SetDescription(aux.Stringid(000000,0)) e2:SetCategory(CATEGORY_ATKCHANGE) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F) e2:SetCode(EVENT_PHASE+PHASE_BATTLE) e2:SetRange(LOCATION_MZONE) e2:SetCountLimit(1) e2:SetTarget(c000000.atktg) e2:SetOperation(c000000.atkop) c:RegisterEffect(e2) --search local e3=Effect.CreateEffect(c) e3:SetDescription(aux.Stringid(000000,1)) e3:SetType(EFFECT_TYPE_IGNITION) e3:SetCountLimit(1) e3:SetRange(LOCATION_MZONE) e3:SetTarget(c000000.target) e3:SetOperation(c000000.operation) c:RegisterEffect(e3) end function c000000.sfilter(c) return c:IsSetCard(0x???) and c:IsAbleToHand() end function c000000.target(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c000000.sfilter,tp,LOCATION_DECK,0,2,nil) end Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_DECK) end function c000000.operation(e,tp,eg,ep,ev,re,r,rp) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) local g=Duel.SelectMatchingCard(tp,c000000.sfilter,tp,LOCATION_DECK,0,2,2,nil) if g:GetCount()>0 then Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.ConfirmCards(1-tp,g) end end function c000000.filter(c,bc) return c:IsFaceup() and c:GetBattledGroup():IsContains(bc) end function c000000.atktg(e,tp,eg,ep,ev,re,r,rp,chk) if chk==0 then return Duel.IsExistingMatchingCard(c000000.filter,tp,0,LOCATION_MZONE,1,nil,e:GetHandler()) end end function c000000.atkop(e,tp,eg,ep,ev,re,r,rp) local g=Duel.GetMatchingGroup(c000000.filter,tp,0,LOCATION_MZONE,nil,e:GetHandler()) local tc=g:GetFirst() while tc do local e1=Effect.CreateEffect(e:GetHandler()) e1:SetType(EFFECT_TYPE_SINGLE) e1:SetCode(EFFECT_SET_ATTACK_FINAL) e1:SetValue(0) e1:SetReset(RESET_EVENT+0x1fe0000) tc:RegisterEffect(e1) tc=g:GetNext() end end |
|
Maxesmose
Member Title : Maximose <-> Posts : 3 Join date : 2014-11-15
| Subject: Re: I need help scripting 4 cards . Fri Nov 21, 2014 5:47 pm | |
| |
|
Sponsored content
| Subject: Re: I need help scripting 4 cards . | |
| |
|