Computer Science Canada

Can anyone tell us how to make the visual characters?
Author:  MikeJake [ Mon Jan 19, 2009 11:20 am ]
Post subject:  Can anyone tell us how to make the visual characters?
WE started making this game. (see below for current progress) We were wondering if anyone could tell us how to make the characters.

code:
[syntax="%%%The Army Game%%%
%By: Mike Orr and Jake Klassen%

import GUI

GUI.SetBackgroundColour (green)

procedure Start
GUI.Quit
end Start

var b1 := GUI.CreateButton (120, 250, 10, "Start Game", Start )
loop
    exit when GUI.ProcessEvent
end loop

cls



put "Its Time To Fight"
put skip

var Name : string

put "Enter your soldier's name. " ..
get Name : *


var Gender : string

put "Enter your Gender: " ..
get Gender


var Specialty : string

if Gender = "Male" then
put "Choose your specialty from the list below"
put "Engineer"
put "Infantry"
put "Communications"
put "Armoured"
put "Artillery"
put "Medic"
put "Military Police"
put "Airborne"
put "Ammunition Technician"
put "Scottish Infantry"
put " " ..
get Specialty
end if

if Gender = "Female" then
put "Choose your specialty from the list below"
put "Communications"
put "Artillery"
put "Medic"
put " " ..
get Specialty
end if
cls

var Corps : string

put "Choose your Corps. or Division"
put "Marine Corps."
put "Canadian Army"
put "Army Cadet"
put " " ..
get Corps : *


var Regiment : string

if Corps = "Canadian Army" then
put "Choose a regiment"
put "The Essex and Kent Scottish"
put "The Lake Superior Highlanders"
put "The Black Watch Royal Highland Regiment of Canada"
put "Princess Patricia's Canadian Light Infantry"
put "Royal Canadian Electrical and Mechanical Engineers"
put "Royal Canadian Field Ambulance"
put "Lord Strathcona's Horse"
put "Royal Canadian Horse Artillery"
put "Canadian Military Police"
put "Canadian Signal Corps."
put "Royal Canadian Regiment"
put " " ..
get Regiment

end if

if Corps = "Marine Corps." then
put "Choose a company."
put "Alpha"
put "Bravo"
put "Charlie"
put "Delta"
put "Echo"
put "Foxtrot"
put "Gulf"
put "Hotel"
put "India"
put "Juliette"
put "Kilo"
put " " ..
get Regiment

if Corps = "Army Cadet" then
put "Choose your corps."
put "59 LHRC(ARMY)CC"
put "1084 Walkerville Legion"
put "CC 04 Blackwatch"
put "#44 Port Perry"
put " " ..
get Regiment


end if

var Weapon : string

put "Choose your weapon"
put "Colt Canada C7"
put "Colt Canada C6"
put "Colt Canada C8"
put "Colt Canada C9"
put "Armalite M-14"
put "Armalite M-15"
put "Armalite M-16"
put "M1 Carbine"
put "Remmington .22, semi auto"
put "Daisy 853C"
put "Lee Enfield No. 7 Bolt Action, Rim Fire, 22 calibre Rifle"
put " " ..
get Weapon
end if
cls


var User_XP : real
var User_CurrentHealth : real
var User_NextLevel : real
var WeaponDamage: int
var Weapon : string

if Specialty = "Engineer" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 200
end if

if Specialty = "Infantry" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 1000
end if

if Specialty = "Communications" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 100
end if

if Specialty = "Armoured" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 400
end if

if Specialty = "Artillery" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 500
end if

if Specialty = "Medic" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 700
end if

if Specialty = "Military Police" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 350
end if

if Specialty = "Airborne" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 950
end if

if Specialty = "Ammunition Technician" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 470
end if

if Specialty = "Scottish Infantry" then
User_CurrentHealth :=100
User_XP :=0
User_NextLevel := 1250

if Weapon = "Colt Canada C7" then
WeaponDamage :=30



end if
"][/syntax]
Author:  Zren [ Mon Jan 19, 2009 1:16 pm ]
Post subject:  Re: Can anyone tell us how to make the visual characters?
Okay, what do you meen by characters? Do you meen like a guy moving around on screen?

If so, is it a platformer type like ALIAS > http://www.goriya.com/flash/alias_2.shtml
or a top-down view like StickArena > http://www.xgenstudios.com/play/stickarena

In other words, try to describe what kind of game your trying to make. Draw a picture if necessary. It'll not only help us but you as well.

Here's a bit of stuff I found to clean up you code and such.
code:

%line ~108
get Regiment
[color=darkgreen]end if[/color]

if Corps = "Army Cadet" then


I also suggest doing something like this:

code:
%psuedo code

get Corps

Corps = toLowerCase(Corps)

if (Corps == "army") then
 ....
end if


This way people can type in lowercase and not throw errors. You might also want to consider looping the menu if an incorrect option is submitted.
Author:  MikeJake [ Tue Jan 20, 2009 11:19 am ]
Post subject:  Re: Can anyone tell us how to make the visual characters?
We are making an RPG, so we want to use pictures like some of the ones we found to make the characters. Can you help us?
Author:  copthesaint [ Tue Jan 20, 2009 12:04 pm ]
Post subject:  RE:Can anyone tell us how to make the visual characters?
For pictures use
var picture:= Pic.FileNew (pic id)
Author:  andrew. [ Tue Jan 20, 2009 5:22 pm ]
Post subject:  Re: Can anyone tell us how to make the visual characters?
Zren @ Mon Jan 19, 2009 1:16 pm wrote:

I also suggest doing something like this:

code:
%psuedo code

get Corps

Corps = toLowerCase(Corps)

if (Corps == "army") then
 ....
end if


This way people can type in lowercase and not throw errors. You might also want to consider looping the menu if an incorrect option is submitted.


That makes sense, but in Turing, you would have to make a procedure to convert everything into lower case. It might just be better to have something like:

code:
if Corps = "army" or Corps = "Army" then
....
end if


Yeah, it's kind of not right and if you type lIke THiS it won't work but still. I think it's good enough for a project of this calibre.
Author:  TheGuardian001 [ Tue Jan 20, 2009 8:45 pm ]
Post subject:  Re: Can anyone tell us how to make the visual characters?
andrew. @ Tue Jan 20, 2009 5:22 pm wrote:


That makes sense, but in Turing, you would have to make a procedure to convert everything into lower case.

no you wouldn't
Turing:

Str.Lower(stringName)


and yes, characters can be made from images using Pic.FileNew.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy