Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Hey I need help on a defend your castle project
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Devin_459326




PostPosted: Thu Jun 09, 2005 10:45 am   Post subject: Hey I need help on a defend your castle project

my game has a bug click on the help button then click around the same bouttons are there to
code:
%*******************************************************************************
import GUI in "%oot/support/lib/GUI"
View.Set ("graphics")
%*******************************************************************************
%Variable Table
%*******************************************************************************
var Main_title_page : int
var Castle_page : int
var enemy1 : int
var enemy2 : int
var enemy3 : int
var enemy4 : int
var Castle_1 : int
var Main : int
%*******************************************************************************
%Procedures
%*******************************************************************************





%*******************************************************************************
%Procedure Main title screen
%*******************************************************************************
procedure MainTitlePage
    Main_title_page := Pic.FileNew ("MainPage.bmp")
    Pic.Draw (Main_title_page, 15, 5, picCopy)

end MainTitlePage
%*******************************************************************************
%Procedure Help Page 2
%*******************************************************************************
procedure Help_2
    cls
    put "Upgarades Page"
    put ""
    put ""
    put "Repair: This atribute gives you aditional heath for every level you complete "
    put ""
    put ""
    put "Tempel: This atribute gives you aditional people that you can controle"
    var a : int := GUI.CreateButton (225, 225, 0, "Main Page", MainTitlePage)
end Help_2
%*******************************************************************************
%Procedure Help File
%*******************************************************************************
procedure Help
    cls
    enemy1 := Pic.FileNew ("Enemy_1.bmp")
    enemy2 := Pic.FileNew ("Enemy_2.bmp")
    enemy3 := Pic.FileNew ("Enemy_3.bmp")
    enemy4 := Pic.FileNew ("Enemy_4.bmp")
    put "Enemy Totals"
    put ""
    put ""
    put " Point Total :20"
    put " # of throws to kill :1"
    put ""
    put ""
    put ""
    put ""
    Pic.Draw (enemy1, 200, 300, picCopy)
    put "Point Total :50"
    put " # of throws to kill :1"
    put ""
    put ""
    put ""
    Pic.Draw (enemy2, 200, 200, picCopy)
    put "Point Total :100"
    put " # of throws to kill :2"
    put ""
    put ""
    put ""
    Pic.Draw (enemy3, 200, 145, picCopy)
    put "Point Total :500"
    put " # of throws to kill :3"
    put ""
    put ""
    put ""
    Pic.Draw (enemy4, 200, 25, picCopy)
    var a : int := GUI.CreateButton (425, 225, 0, "List of upgrades", Help_2)
end Help
%*******************************************************************************
%Procedure Castle
%*******************************************************************************
procedure Castle
    cls
    Castle_page := Pic.FileNew ("CastlePage.bmp")
    Pic.Draw (Castle_page, 175, 50, picCopy)
    var a : int := GUI.CreateButton (225, 225, 0, "Castle #1", Help)
end Castle
%*******************************************************************************
%Programe
%*******************************************************************************
MainTitlePage
var b : int := GUI.CreateButton (286, 75, 0, "New Game", Castle)
var a : int := GUI.CreateButton (300, 30, 0, "Help", Help)
loop
    exit when GUI.ProcessEvent
end loop
%*******************************************************************************



Main_Game_Play_Screen.bmp
 Description:
 Filesize:  284.82 KB
 Viewed:  1291 Time(s)

Main_Game_Play_Screen.bmp


Sponsor
Sponsor
Sponsor
sponsor
jamonathin




PostPosted: Thu Jun 09, 2005 11:25 am   Post subject: (No subject)

You need to disable those buttons when you move on to another menu screen.

Take a look at this example.

Turing Help - GUI.Disable wrote:
The three color radio buttons are enabled only when the color check box is selected.

import GUI in "%oot/lib/GUI"
View.Set ("graphics:100;100")

var colorCheckBox, redRadio, greenRadio, blueRadio : int

procedure DoNothing
end DoNothing

procedure ColorCheckBoxProc (filled : boolean)
if filled then
GUI.Enable (redRadio)
GUI.Enable (greenRadio)
GUI.Enable (blueRadio)
else
GUI.Disable (redRadio)
GUI.Disable (greenRadio)
GUI.Disable (blueRadio)
end if
end ColorCheckBoxProc

colorCheckBox := GUI.CreateCheckBox (10, 80,
"Use Color", ColorCheckBoxProc)
redRadio := GUI.CreateRadioButton (33, 60, "Red", 0, DoNothing)
greenRadio := GUI.CreateRadioButton (1, 1, "Green",
redRadio, DoNothing)
blueRadio := GUI.CreateRadioButton (1, 1, "Blue",
greenRadio, DoNothing)
ColorCheckBoxProc (false)

loop
exit when GUI.ProcessEvent
end loop
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 2 Posts ]
Jump to:   


Style:  
Search: