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]