Anything Forums

Code: Select all

process Splash
    loop
        Music.PlayFile ("Hyrulecastle.mp3")
    end loop
end Splash


fork Splash
% Horizon Above (Sky)
drawfillbox (0, 300, 200, 600, 53)
drawfillbox (200, 300, 500, 600, 53)
drawfillbox (500, 300, 750, 600, 53)
drawfillbox (0, 600, 750, 750, 53)

% Horizon Below (Ground)
drawfillbox (0, 0, 750, 300, 45)

% Tree (Left)
drawfillbox (0, 0, 150, 400, red)

% Tree (Left) Leaves
drawfillbox (125, 225, 225, 325, green)
drawfillbox (115, 305, 250, 500, green)
drawfillbox (0, 365, 125, 550, green)

% Tree (Right)
drawfillbox (600, 0, 750, 375, red)

% Tree (Right) Leaves
drawfillbox (625, 375, 750, 550, green)
drawfillbox (500, 325, 625, 500, green)
drawfillbox (525, 225, 625, 325, green)

% Title (Creating The Font)
Pic.ScreenLoad ("MagicMath.jpg", 135, 520, picCopy)

% Font (Done By..)
Font.Draw ("Done By: Jawad Khan", 190, 180, f2, black)

% Instruction
Font.Draw ("Click To Let The Magic Begin", 210, 120, f12, black)
buttonwait ("down", x, y, bnum, bud)

Music.PlayFileStop

%%%%%%%%% Variables %%%%%%%%
loop
    delay (150)

    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    % Music
    process termina
    loop
        Music.PlayFile ("Termina.mp3")
    end loop

    fork Termina
    % Color Back
    drawfillbox (0, 0, 750, 750, 53)

    % Horizon Below (Ground)
    drawfillbox (0, 0, 750, 300, 45)

    % Tree (Left)
    drawfillbox (0, 0, 150, 400, red)

    % Tree (Left) Leaves
    drawfillbox (125, 225, 225, 325, green)
    drawfillbox (115, 305, 250, 500, green)
    drawfillbox (0, 365, 125, 550, green)

    % Tree (Right)
    drawfillbox (600, 0, 750, 375, red)

    % Tree (Right) Leaves
    drawfillbox (625, 375, 750, 550, green)
    drawfillbox (500, 325, 650, 500, green)
    drawfillbox (525, 225, 625, 325, green)


    % Selections Boxes
    drawfillbox (85, 275, 223, 375, 43)         % Add
    drawfillbox (100, 285, 210, 365, 44)
    drawfillbox (235, 275, 373, 375, 43)         % Sub
    drawfillbox (245, 285, 365, 365, 44)
    drawfillbox (385, 275, 520, 375, 43)         % Multiply
    drawfillbox (395, 285, 510, 365, 44)
    drawfillbox (530, 275, 665, 375, 43)         % Divide
    drawfillbox (540, 285, 655, 365, 44)
    drawfillbox (310, 165, 445, 265, 43)         % Exit
    drawfillbox (320, 175, 435, 255, 44)


    % Add
    Font.Draw ("Add", 130, 315, f4, black)

    % Subtract
    Font.Draw ("Subtract", 250, 315, f5, black)

    % Multiply
    Font.Draw ("Multiply", 400, 315, f6, black)

    % Divide
    Font.Draw ("Divide", 560, 315, f7, black)

    % Exit
    Font.Draw ("Exit", 350, 205, f8, black)

    % Menu
    Pic.ScreenLoad ("Menu.jpg", 255, 450, picCopy)

    % Buttonwait &  Loop
    buttonwait ("down", x, y, bnum, bud)

    Music.PlayFileStop
[code]

You know the part where i use fork and process for the second time, it gives me an error!!! It tells me i cant use process again, how do i fix this? :grade11math:  :grade11math:  

[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:4066, old post ID:33396[/size][/color]

Code: Select all

process Splash
   loop
       Music.PlayFile ("Hyrulecastle.mp3")
   end loop
end Splash
fork Splash
[code]

VS

[code]
   process termina
   loop
       Music.PlayFile ("Termina.mp3")
   end loop

   fork Termina
[code]

Try adding "end Termina" after your loop statement... It could be something as simple as that, let me know whether or not that's what it was. 

[color=#888888][size=85]Archived topic from Iceteks,  old topic ID:4066, old post ID:33403[/size][/color]