[Help] Allocation error!

[tjmoore1993]

Cannot allocate item. Out of id numbers (max 1000).

My error will occur on any of these
NoRed (0) := Pic.FileNew ("Picture/RedDamage/NoRed0.0.bmp") % Damage 0
I am not sure if I am making the error occur but if someone could help me troubleshoot it I would appreciate it!

Turing:

procedure cDamageDisplay     var NoRed : array 0 .. 10 of int     NoRed (0) := Pic.FileNew ("Picture/RedDamage/NoRed0.0.bmp") % Damage 0     NoRed (1) := Pic.FileNew ("Picture/RedDamage/NoRed0.1.bmp") % Damage 1     NoRed (2) := Pic.FileNew ("Picture/RedDamage/NoRed0.2.bmp") % Damage 2     NoRed (3) := Pic.FileNew ("Picture/RedDamage/NoRed0.3.bmp") % Damage 3     NoRed (4) := Pic.FileNew ("Picture/RedDamage/NoRed0.4.bmp") % Damage 4     NoRed (5) := Pic.FileNew ("Picture/RedDamage/NoRed0.5.bmp") % Damage 5     NoRed (6) := Pic.FileNew ("Picture/RedDamage/NoRed0.6.bmp") % Damage 6     NoRed (7) := Pic.FileNew ("Picture/RedDamage/NoRed0.7.bmp") % Damage 7     NoRed (8) := Pic.FileNew ("Picture/RedDamage/NoRed0.8.bmp") % Damage 8     NoRed (9) := Pic.FileNew ("Picture/RedDamage/NoRed0.9.bmp") % Damage 9     NoRed (10) := Pic.FileNew ("Picture/RedDamage/NoRed0.Miss.bmp") % Miss     Pic.SetTransparentColour (NoRed (0), 3)     Pic.SetTransparentColour (NoRed (1), 3)     Pic.SetTransparentColour (NoRed (2), 3)     Pic.SetTransparentColour (NoRed (3), 3)     Pic.SetTransparentColour (NoRed (4), 3)     Pic.SetTransparentColour (NoRed (5), 3)     Pic.SetTransparentColour (NoRed (6), 3)     Pic.SetTransparentColour (NoRed (7), 3)     Pic.SetTransparentColour (NoRed (8), 3)     Pic.SetTransparentColour (NoRed (9), 3)     Pic.SetTransparentColour (NoRed (10), 3)     Damagex := 250     Damagey := 240     if cAccuracy > mAccuracy_1 then         RedDamage := intstr (cDamage)         for i : 1 .. length (RedDamage)             for j : 0 .. 9                 if RedDamage (i) = intstr (j) then                     Pic.Draw (NoRed (j), Damagex, Damagey, picMerge)                     if j = 0 or j = 7 or j = 9 or j = 4 then                         Damagex += 25                     elsif j = 6 or j = 5 or j = 8 then                         Damagex += 22                     elsif j = 1 then                         Damagex += 16                     elsif j = 2 then                         Damagex += 23                     elsif j = 3 then                         Damagex += 21                     end if                 end if             end for         end for     else         Pic.Draw (NoRed (10), Damagex - 25, Damagey, picMerge)     end if     Pic.Free (NoRed (0))     Pic.Free (NoRed (1))     Pic.Free (NoRed (2))     Pic.Free (NoRed (3))     Pic.Free (NoRed (4))     Pic.Free (NoRed (5))     Pic.Free (NoRed (6))     Pic.Free (NoRed (7))     Pic.Free (NoRed (8))     Pic.Free (NoRed (9))     Pic.Free (NoRed (10))     View.Update     delay (250) end cDamageDisplay

Picture :
GamePlay


Error
Picture :

[tjmoore1993]

Problem solved! I must find a better way on defining my variables once...

[andrew.]

Please add this game to the submissions when you're done. It looks very cool with the Maple Story graphics and all.

[tjmoore1993]

I will soon if I can get my thing 100% bullet proof