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

Mr. T

Sun Jan 30, 2005 6:58 pm


more procedure problems

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

how would u go about editing part of a procdeure without havign to rewrite the whole procedure?


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

person

Sun Jan 30, 2005 7:02 pm



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

u can do this

procedure a
        % part u want to change
end a
procedure b
        % changed
end b
procedure c
        % main procedure
        if something then
                a
        else
                b
        end if
end c


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

basketball4ever

Sun Jan 30, 2005 7:09 pm



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

depends what you want.  Post a piece of code, and i'll show you.
you can use paramter pass.  or something just show what u need helped on in an example


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

Mr. T

Sun Jan 30, 2005 7:24 pm



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

depends what you want.  Post a piece of code, and i'll show you.
you can use paramter pass.  or something just show what u need helped on in an example

%declaration of variable section
var font1 : int
font1 := Font.New ("sans serif:16:bold")
%%%%%%%%%%%%%%%%%%%%%%
procedure animation1
var box :int :=0
var coloriginal :int :=0
loop
colour (coloriginal)
coloriginal+=1
box+=10
colourback (7)
cls
Font.Draw ("Animation #1", 155, 120, font1, coloriginal)
drawmapleleaf (0+box, 0+box, maxx-box, maxy-box, 0)
delay (75)
exit when box = 700
end loop
end animation1

^^^^
i want to make it so that i can chande Animation #1 to Animation #2 and so on... every time i use the procedure.


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

basketball4ever

Sun Jan 30, 2005 8:03 pm



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

depends what you want.  Post a piece of code, and i'll show you.
you can use paramter pass.  or something just show what u need helped on in an example

%declaration of variable section
var font1 : int
font1 := Font.New ("sans serif:16:bold")
%%%%%%%%%%%%%%%%%%%%%%
procedure animation1
var box :int :=0
var coloriginal :int :=0
loop
colour (coloriginal)
coloriginal+=1
box+=10
colourback (7)
cls
Font.Draw ("Animation #1", 155, 120, font1, coloriginal)
drawmapleleaf (0+box, 0+box, maxx-box, maxy-box, 0)
delay (75)
exit when box = 700
end loop
end animation1

^^^^
i want to make it so that i can chande Animation #1 to Animation #2 and so on... every time i use the procedure.


can u explain more clearly.. i still don't understand... so everytime animation1 runs... u want animation 2 to run afterwards?  i dont get what you're trying to say


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

Mr. T

Sun Jan 30, 2005 8:39 pm



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

nvm. i got my frined to help me. thnx anyawys