Can someone program these Anime Number cards

Posts : 43 Join date : 2013-08-03

Number 14: Greedy Sarameya

Rank 5 Fire Pyro 2500/1500

2 Level 5 monsters
If this card destroys an opponent's monster by battle, you can detach 1 Xyz Material from this card; any damage you would take during this battle is inflicted to your opponent instead, also destroy 1 face-up monster your opponent controls with less ATK than the destroyed monster.

Number 23: Lancelot, Ghost Knight of the Underworld

Rank 8 Dark Zombie 2000/0
2 Level 8 monsters
This card can attack your opponent directly. When this card attacks your opponent directly: Destroy all monsters your opponent controls with ATK equal to or less than double this card's ATK. During either player's turn, when your opponent activates a card effect: You can detach 1 Xyz Material from this card; negate that effect.

Number 28: Titanic Moth
Rank 7 Wind Insect 2400/1000
2 Level 7 monsters
When this card successfully attacks your opponent directly: You can detach 1 Xyz Material from this card; inflict 500 damage to your opponent for each card in their hand.

No. 28
function cXXXXXXXX.initial_effect(c)
--xyz summon
aux.AddXyzProcedure(c,aux.XyzFilterFunction(c,7),2)
c:EnableReviveLimit()
--
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(XXXXXXXX,0))
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e1:SetCode(EVENT_BATTLE_DAMAGE)
e1:SetCondition(cXXXXXXXX.condition)
e1:SetCost(cXXXXXXXX.cost)
e1:SetTarget(cXXXXXXXX.target)
e1:SetOperation(cXXXXXXXX.operation)
c:RegisterEffect(e1)
end
function cXXXXXXXX.condition(e,tp,eg,ep,ev,re,r,rp)
return ep~=tp and Duel.GetAttackTarget()==nil
end
function cXXXXXXXX.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
end
function cXXXXXXXX.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetTargetPlayer(1-tp)
local dam=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)*500
Duel.SetTargetParam(dam)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam)
end
function cXXXXXXXX.operation(e,tp,eg,ep,ev,re,r,rp)
local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
local dam=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)*500
Duel.Damage(p,dam,REASON_EFFECT)
end

XXXXXXXX = Cardnumber of No. 28

Here you got No. 28. I can try the other ones, but I already know that they are real bitches to script ._.