a place for all your custom card needs you can post scripts pics and request for card to be made also please donate to the funding for a new server made for custom card duels
 
HomePortalCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | .
 

 I seem to be to stupid...

View previous topic View next topic Go down 
AuthorMessage
VB99

avatar


Member Title : Legendary Planet
Posts : 368
Join date : 2013-11-10

PostSubject: I seem to be to stupid...   Wed Apr 30, 2014 6:30 pm

My effect is the following:


local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(XXXXXXXX,1))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCondition(c88071625.copycon)
e1:SetTarget(c88071625.copytg)
e1:SetOperation(c88071625.copyop)
c:RegisterEffect(e1)
end
function c88071625.copycon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION
end
function c88071625.copytg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return e:GetHandler():GetMaterial():IsContains(chkc) end
if chk==0 then return true end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local g=e:GetHandler():GetMaterial()
Duel.SetTargetCard(g)
end
function c88071625.copyop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc and tc:IsRelateToEffect(e) and c:IsRelateToEffect(e) and c:IsFaceup() then
local code=tc:GetOriginalCode()
local reset_flag=RESET_EVENT+0x1fe0000
c:CopyEffect(code, reset_flag, 1)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(reset_flag)
e1:SetCode(EFFECT_CHANGE_CODE)
e1:SetValue(code)
c:RegisterEffect(e1)
end


I want it to copy the effects of all material monsters used in the fusion summon, but it doesn't work... Any ideas, anyone?
Back to top Go down
View user profile http://www.fanfiktion.de/u/VB99
AoO

avatar


Member Title : Noob4ever
Posts : 241
Join date : 2014-04-25
Location : I only know that it is dark :/

PostSubject: Re: I seem to be to stupid...   Wed Apr 30, 2014 11:24 pm

Did you use the effect of "Phantom of Chaos" as a base?
He also copies effects, but sadly only the monster, that you banish from grave right??

_________________

Keep going, keep experiencing, keep learning AND: NEVER STOP!! >.<

Yugioh Custom Cards/ Decks/ Duels: https://www.youtube.com/channel/UCPil2ljKCm4HBhNT7wcNl-Q
Back to top Go down
View user profile
VB99

avatar


Member Title : Legendary Planet
Posts : 368
Join date : 2013-11-10

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 12:14 am

I used The Tyrant Neptune as a base...

_________________
Back to top Go down
View user profile http://www.fanfiktion.de/u/VB99
outlaw1994

avatar
Admin
Admin

Member Title : Red-Eyes Lord
Posts : 797
Join date : 2013-07-09
Age : 22
Location : bundaberg qld australia

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 1:37 am

try this should work perfectly i hope

Code:
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(88071625,1))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetCondition(c88071625.copycon)
e1:SetOperation(c88071625.copyop)
c:RegisterEffect(e1)
end
function c88071625.copycon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION
end
function c88071625.copyop(e,tp,eg,ep,ev,re,r,rp)
   local c=e:GetHandler()
   local g=c:GetMaterial()
   local tc=g:GetFirst()
   while tc do
      local code=tc:GetOriginalCode()
      c:CopyEffect(code, nil, 1)
      tc=g:GetNext()
   end
end
Back to top Go down
View user profile http://mackpro.userboard.net
VB99

avatar


Member Title : Legendary Planet
Posts : 368
Join date : 2013-11-10

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 2:29 am

Hm, it repots an error to me... I can't even summon the fusion monster for an unknown reason.

_________________
Back to top Go down
View user profile http://www.fanfiktion.de/u/VB99
outlaw1994

avatar
Admin
Admin

Member Title : Red-Eyes Lord
Posts : 797
Join date : 2013-07-09
Age : 22
Location : bundaberg qld australia

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 2:43 am

can you post the full code thats erroring
Back to top Go down
View user profile http://mackpro.userboard.net
VB99

avatar


Member Title : Legendary Planet
Posts : 368
Join date : 2013-11-10

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 11:57 am

function c00000001.initial_effect(c)
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,100000304,aux.FilterBoolFunction(Card.IsRace,RACE_REPTILE),1,true,true)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(c00000001.splimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_EXTRA)
e2:SetCondition(c00000001.sprcon)
e2:SetOperation(c00000001.sprop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
e3:SetValue(1)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_MATERIAL_CHECK)
e5:SetValue(c00000001.valcheck)
c:RegisterEffect(e5)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetCode(EFFECT_SUMMON_COST)
e6:SetOperation(c00000001.facechk)
e6:SetLabelObject(e5)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetDescription(aux.Stringid(00000001,1))
e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e7:SetProperty(EFFECT_FLAG_CARD_TARGET)
e7:SetCode(EVENT_SPSUMMON_SUCCESS)
e7:SetCondition(c00000001.copycon)
e7:SetOperation(c00000001.copyop)
c:RegisterEffect(e7)
end
function c00000001.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end
function c00000001.spfilter1(c,tp)
return c:IsCode(100000304) and c:IsAbleToGraveAsCost() and (c:IsControler(tp) or c:IsFaceup())
and Duel.IsExistingMatchingCard(c00000001.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,tp)
end
function c00000001.spfilter2(c,tp)
return c:IsRace(RACE_REPTILE) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() and (c:IsControler(tp) or c:IsFaceup())
end
function c00000001.sprcon(e,c)
if c==nil then return true end 
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c00000001.spfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp)
end
function c00000001.sprop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(00000001,0))
local g1=Duel.SelectMatchingCard(tp,c00000001.spfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(00000001,1))
local g2=Duel.SelectMatchingCard(tp,c00000001.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,10,g1:GetFirst(),tp)
g1:Merge(g2)
Duel.SendtoGrave(g1,REASON_COST)
function c00000001.copycon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION
end
function c00000001.valcheck(e,c)
local g=c:GetMaterial()
local tc=g:GetFirst()
local atk=0
local def=0
while tc do
local catk=tc:GetTextAttack()
local cdef=tc:GetTextDefence()
atk=atk+(catk>=0 and catk or 0)
def=def+(cdef>=0 and cdef or 0)
tc=g:GetNext()
end
if e:GetLabel()==1 then
e:SetLabel(0)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENCE)
e2:SetValue(def)
c:RegisterEffect(e2)
end
end
function c00000001.facechk(e,tp,eg,ep,ev,re,r,rp)
e:GetLabelObject():SetLabel(1)
end
function c00000001.copycon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION 
end 
function c00000001.copyop(e,tp,eg,ep,ev,re,r,rp) 
local c=e:GetHandler() 
local g=c:GetMaterial() 
local tc=g:GetFirst() 
while tc do 
local code=tc:GetOriginalCode() 
c:CopyEffect(code, nil, 1) 
tc=g:GetNext() 
end 
end
Back to top Go down
View user profile http://www.fanfiktion.de/u/VB99
outlaw1994

avatar
Admin
Admin

Member Title : Red-Eyes Lord
Posts : 797
Join date : 2013-07-09
Age : 22
Location : bundaberg qld australia

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 12:43 pm

easy fix you just missing an end under sprop here the fixed code

function c00000001.initial_effect(c)
c:EnableReviveLimit()
aux.AddFusionProcCodeFun(c,100000304,aux.FilterBoolFunction(Card.IsRace,RACE_REPTILE),1,true,true)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetValue(c00000001.splimit)
c:RegisterEffect(e1)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_SPSUMMON_PROC)
e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e2:SetRange(LOCATION_EXTRA)
e2:SetCondition(c00000001.sprcon)
e2:SetOperation(c00000001.sprop)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
e3:SetValue(1)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_SINGLE)
e4:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_SINGLE)
e5:SetCode(EFFECT_MATERIAL_CHECK)
e5:SetValue(c00000001.valcheck)
c:RegisterEffect(e5)
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_SINGLE)
e6:SetCode(EFFECT_SUMMON_COST)
e6:SetOperation(c00000001.facechk)
e6:SetLabelObject(e5)
c:RegisterEffect(e6)
local e7=Effect.CreateEffect(c)
e7:SetDescription(aux.Stringid(00000001,1))
e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e7:SetProperty(EFFECT_FLAG_CARD_TARGET)
e7:SetCode(EVENT_SPSUMMON_SUCCESS)
e7:SetCondition(c00000001.copycon)
e7:SetOperation(c00000001.copyop)
c:RegisterEffect(e7)
end
function c00000001.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end
function c00000001.spfilter1(c,tp)
return c:IsCode(100000304) and c:IsAbleToGraveAsCost() and (c:IsControler(tp) or c:IsFaceup())
and Duel.IsExistingMatchingCard(c00000001.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,tp)
end
function c00000001.spfilter2(c,tp)
return c:IsRace(RACE_REPTILE) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() and (c:IsControler(tp) or c:IsFaceup())
end
function c00000001.sprcon(e,c)
if c==nil then return true end 
local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingMatchingCard(c00000001.spfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp)
end
function c00000001.sprop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(00000001,0))
local g1=Duel.SelectMatchingCard(tp,c00000001.spfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp)
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(00000001,1))
local g2=Duel.SelectMatchingCard(tp,c00000001.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,10,g1:GetFirst(),tp)
g1:Merge(g2)
Duel.SendtoGrave(g1,REASON_COST)
end--this was missing
function c00000001.copycon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION
end
function c00000001.valcheck(e,c)
local g=c:GetMaterial()
local tc=g:GetFirst()
local atk=0
local def=0
while tc do
local catk=tc:GetTextAttack()
local cdef=tc:GetTextDefence()
atk=atk+(catk>=0 and catk or 0)
def=def+(cdef>=0 and cdef or 0)
tc=g:GetNext()
end
if e:GetLabel()==1 then
e:SetLabel(0)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+0xff0000)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EFFECT_UPDATE_DEFENCE)
e2:SetValue(def)
c:RegisterEffect(e2)
end
end
function c00000001.facechk(e,tp,eg,ep,ev,re,r,rp)
e:GetLabelObject():SetLabel(1)
end
function c00000001.copycon(e,tp,eg,ep,ev,re,r,rp) return e:GetHandler():GetSummonType()==SUMMON_TYPE_FUSION 
end 
function c00000001.copyop(e,tp,eg,ep,ev,re,r,rp) 
local c=e:GetHandler() 
local g=c:GetMaterial() 
local tc=g:GetFirst() 
while tc do 
local code=tc:GetOriginalCode() 
c:CopyEffect(code, nil, 1) 
tc=g:GetNext() 
end 
end
Back to top Go down
View user profile http://mackpro.userboard.net
VB99

avatar


Member Title : Legendary Planet
Posts : 368
Join date : 2013-11-10

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 3:17 pm

Thanks, outlaw. I'll try it out as soon as I can get the card manager working again^^°

_________________
Back to top Go down
View user profile http://www.fanfiktion.de/u/VB99
outlaw1994

avatar
Admin
Admin

Member Title : Red-Eyes Lord
Posts : 797
Join date : 2013-07-09
Age : 22
Location : bundaberg qld australia

PostSubject: Re: I seem to be to stupid...   Thu May 01, 2014 3:28 pm

lol np atm im investigating coral castle and its giving me a headache so i might rest for a while xD
Back to top Go down
View user profile http://mackpro.userboard.net
Sponsored content





PostSubject: Re: I seem to be to stupid...   

Back to top Go down
 

I seem to be to stupid...

View previous topic View next topic Back to top 
Page 1 of 1

 Similar topics

-
» Stupid things you have done lately!
» Stupid dog...
» Stupid Cellphone Pictures
» battle of five armies STUPID ending...
» Stupid toyota drivers...... so sad

Permissions in this forum:You cannot reply to topics in this forum
Mackpro :: MackPro :: Requests-