fix ATK loss incorrectly resetting

Fixed ATK loss from resetting when the Equip Card is destroyed
and still destroying even if ATK falls under 500 on resolution

script/c83438826.lua

@@ -82,23 +82,18 @@ end
 function c83438826.desop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
-	if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) or tc:IsFaceup() then return end
-	if c:GetFlagEffect(83438826)==0 then
-		local e1=Effect.CreateEffect(c)
-		e1:SetType(EFFECT_TYPE_EQUIP)
-		e1:SetCode(EFFECT_UPDATE_ATTACK)
-		e1:SetValue(-500)
-		e1:SetReset(RESET_EVENT+0x1fe0000)
-		c:RegisterEffect(e1)
-		c:RegisterFlagEffect(83438826,RESET_EVENT+0x1fe0000,0,0)
-		e:SetLabelObject(e1)
-		e:SetLabel(2)
-	else
-		local pe=e:GetLabelObject()
-		local ct=e:GetLabel()
-		e:SetLabel(ct+1)
-		pe:SetValue(ct*-500)
-	end
+	local eq=c:GetEquipTarget()
+	if not c:IsRelateToEffect(e) or not tc:IsRelateToEffect(e) or tc:IsFaceup() or  
+	not eq:IsAttackAbove(500)
+	then return end
+	
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(-500)
+	e1:SetReset(RESET_EVENT+0x1fe0000)
+	eq:RegisterEffect(e1)
+	
 	Duel.Destroy(tc,REASON_EFFECT)
 end
 function c83438826.eqcon(e,tp,eg,ep,ev,re,r,rp)