-----------------------------------

tjmoore1993

Sat May 02, 2009 5:18 pm


Integer Conversion problem

-----------------------------------

What is it you are trying to achieve?
I want my converted value you equal the original value before conversion. 


What is the problem you are having?
When I convert my integer to a string I get an unequal value. 
Example: 
INT Value : 100 
STRING VALUE : 236 

Describe what you have tried to solve this problem
I know that my problem has to do with base but I do not understand it as much.


    Damagex := 250 
    Damagey := 240 
    if cAccuracy > mAccuracy_1 then 
        RedDamage := (intstr (cDamage, 0, 8))  % Problem is here. Base is where the value 8 is. I do not understand it as much but if I can get help I'd appreciate it.
        for i : 1 .. length (RedDamage) 
            if RedDamage (i) = "0" then 
                Pic.Draw (NoRed0, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 25 
            elsif RedDamage (i) = "1" then 
                Pic.Draw (NoRed1, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 16 
            elsif RedDamage (i) = "2" then 
                Pic.Draw (NoRed2, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 23 
            elsif RedDamage (i) = "3" then 
                Pic.Draw (NoRed3, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 21 
            elsif RedDamage (i) = "4" then 
                Pic.Draw (NoRed4, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 25 
            elsif RedDamage (i) = "5" then 
                Pic.Draw (NoRed5, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 22 
            elsif RedDamage (i) = "6" then 
                Pic.Draw (NoRed6, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 25 
            elsif RedDamage (i) = "7" then 
                Pic.Draw (NoRed7, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 22 
            elsif RedDamage (i) = "8" then 
                Pic.Draw (NoRed8, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 22 
            elsif RedDamage (i) = "9" then 
                Pic.Draw (NoRed9, Damagex, Damagey, picMerge) 
                Damagex := Damagex + 25 
            end if 
        end for 
    else 
        Pic.Draw (NoRedMiss, Damagex - 25, Damagey, picMerge) 
    end if 



-----------------------------------

TheGuardian001

Sat May 02, 2009 6:39 pm


Re: Integer Conversion problem

-----------------------------------

There is no need to have the 0 or the 8 in the intstr call. The 0 refers to the width of the string, so it is probably doing nothing. The 8 means that it will output the numbers in base 8. you probably do not want base 8.

simplify it by just using intstr(value) with no extra parameters. the other parameters are optional, the command will still work if you leave them out.


var myString : string
var base8 : string

myString := intstr(100)
put myString
base8 := intstr(100,0,8)
put base8


myString returns 100, base8 returns 144.


-----------------------------------

tjmoore1993

Sat May 02, 2009 7:07 pm


RE:Integer Conversion problem

-----------------------------------

Thanks, I haven't actually thought about it that way. I totally forgot I can leave out parameters.     Thanks for the help :)!


-----------------------------------

Dusk Eagle

Sat May 02, 2009 8:45 pm


Re: Integer Conversion problem

-----------------------------------

Your NoRed0,1,2 etc. variables would be much better if stored in an array. Then, you could replicate your for loop in much shorter lines:

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 = 6 or j = 9 then
                Damagex += 25
            elsif %fill in yourself
            end if
        end if
    end for
end for



-----------------------------------

tjmoore1993

Sun May 03, 2009 10:44 am


Re: Integer Conversion problem

-----------------------------------

Your NoRed0,1,2 etc. variables would be much better if stored in an array. Then, you could replicate your for loop in much shorter lines:

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 = 6 or j = 9 then
                Damagex += 25
            elsif %fill in yourself
            end if
        end if
    end for
end for



Works :
http://img17.imageshack.us/img17/9284/screenshotfantasticstor.png


-----------------------------------

Dusk Eagle

Sun May 03, 2009 12:02 pm


Re: Integer Conversion problem

-----------------------------------

Those pictures actually look pretty good there. Did you make them?


-----------------------------------

tjmoore1993

Sun May 03, 2009 1:15 pm


Re: Integer Conversion problem

-----------------------------------

Those pictures actually look pretty good there. Did you make them?

I did not make the ground or characters. They were extracted from Maplestory's WZ archive.
Most of the artwork though is mine. :)