Computer Science Canada

code errors

Author:  Hotaru [ Fri Feb 13, 2004 12:28 pm ]
Post subject:  code errors

there are errors inside the codes~and i do not know how to fix it~

code:
View.Set ("graphics:max,max") % Max Screen Resolution 1011 x 669

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

var place : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0) % Place Of The Horse
var paymoney : array 1 .. 4 of real % The Money Being Paid Or Lost After The Race
var bet : array 1 .. 4 of int  % The Money Each Player Placed Down
var names : array 1 .. 6 of string := init ("1. SantaBlue", "2. SantaGreen", "3. SantaOrange", "4. SantaPurple", "5. SantaRed", "6. SantaYellow") % Name Of The Horses For Users' Reference
var BetOn : array 1 .. 6 of int % The Horse Players Choose To Bet On
var advance : int % :=1000
var whichHorse : int
var fontID := Font.New ("Ariel:20x10:Italic")
var capital  : array 1 .. 4 of real:=init( 5000,5000,5000,5000)
var betMoney :real
var players:string
var user:array 1..4 of string := init( "1. Kamoi", "2. Krad", "3. Authrun", "4. Kami-Sama")
% user(1) : =  Pic.FileNew ("horsecharacter_01.jpg")
% user(2) : =  Pic.FileNew ("horsecharacter_02.jpg")
% user(3) : =  Pic.FileNew ("horsecharacter_03.jpg")
% user(4) : =  Pic.FileNew ("horsecharacter_04.jpg")
var mx, my, mb : int
buttonchoose ("multibutton")
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

var HorseID : array 1 .. 6 of int

HorseID (1) := Pic.FileNew ("santablue.jpg")
HorseID (2) := Pic.FileNew ("santagreen.jpg")
HorseID (3) := Pic.FileNew ("santaorange.jpg")
HorseID (4) := Pic.FileNew ("santapurple.jpg")
HorseID (5) := Pic.FileNew ("santared.jpg")
HorseID (6) := Pic.FileNew ("santayellow.jpg")


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Pic.ScreenLoad ("HorseRacebg.jpg", 0, 0, picMerge) % Background

% Pic.ScreenLoad ("santablue.jpg", 0, 75, picMerge) % HorseID1
% Pic.ScreenLoad ("santagreen.jpg", 0, 150, picMerge) % HorseID2
% Pic.ScreenLoad ("santaorange.jpg", 0, 225, picMerge) % HorseID3
% Pic.ScreenLoad ("santapurple.jpg", 0, 300, picMerge) % HorseID4
% Pic.ScreenLoad ("santared.jpg", 0, 375, picMerge) % HorseID5
% Pic.ScreenLoad ("santayellow.jpg", 0, 450, picMerge) % HorseID6

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


process HoushinEngi
    % loop
    Music.PlayFile (" HoushinEngi_Will-SeiyuuVersion.mp3")
    % end loop
end HoushinEngi


 % GET USER NAMES
/* Pic.ScreenLoad ("horseraceintro.jpg", 0, 0, picCopy)

put "Choose Your Character"

     Pic.ScreenLoad ("horsecharacter_01.jpg", 150,0,picCopy)
     Pic.ScreenLoad ("horsecharacter_02.jpg", 350,0,picCopy)
     Pic.ScreenLoad ("horsecharacter_03.jpg", 550,0,picCopy)
*/ % Pic.ScreenLoad ("horsecharacter_04.jpg", 750,0,picCopy)


% procedure betting (names : array 1.. 4 of string, var money : array 1 .. 4 of real, var BetOn : array 1 .. 4 of int)
loop
    for i : 1 .. 4

    Pic.ScreenLoad("HorseRaceNextButton.jpg", maxx, 0, picCopy)
 Pic.ScreenLoad ("HorseBettingBG.jpg", 0, 0, picCopy)
 Draw.Text (user (1), 0, maxy - 100, fontID, 5)
  Draw.Text (user (2), 0, maxy - 250, fontID, 5)
  Draw.Text (user (3), 0, maxy - 400, fontID, 5)
  Draw.Text (user (4), 0, maxy - 550, fontID, 5)
  Pic.ScreenLoad ("horsecharacter_01.jpg", 0,460,picCopy)
     Pic.ScreenLoad ("horsecharacter_02.jpg", 0,310,picCopy)
     Pic.ScreenLoad ("horsecharacter_03.jpg", 0,160,picCopy)
     Pic.ScreenLoad ("horsecharacter_04.jpg", 0,10,picCopy)
     get user(i)
      end for
     cls
  for i : 1 .. 4  % for each bettor
        Draw.Text (user(i) + " Which Horse Will You Bet On?", 0, maxy - 85, fontID, 5)
        Draw.Text (names (1), 0, maxy - 135, fontID, 5)
        Draw.Text (names (2), 0, maxy - 185, fontID, 5)
        Draw.Text (names (3), 0, maxy - 235, fontID, 5)
        Draw.Text (names (4), 0, maxy - 285, fontID, 5)
        Draw.Text (names (5), 0, maxy - 335, fontID, 5)
        Draw.Text (names (6), 0, maxy - 385, fontID, 5)
 get names(i)
        % get players
       % get BetOn (i)
        Draw.Text ("Place Your Bet But You Have $" + realstr(capital(i),7), 0, maxy - 435, fontID, 5)
        locatexy( 0, maxy - 465)
        get betMoney
        capital(i) := capital(i) - betMoney
        % paymoney (i) := paymoney (i) - bet (i)

    end for
cls
    % end betting
    for i : 1 .. 6
        Pic.Draw (HorseID (i), place (i), 75 * i, picCopy)
    end for

    % Pic.Draw (HorseID7, place(7),0,525)

    Pic.ScreenLoad ("HorseRacebg.jpg", 0, 0, picMerge) % Background
    View.Set ("offscreenonly")
    loop
        randint (whichHorse, 1, 6)
        randint (advance, 5, 10)
        place (whichHorse) := place (whichHorse) + advance
        Pic.Draw (HorseID (whichHorse), place (whichHorse), 75 * whichHorse, picMerge)
        % delay (10)
        exit when place (whichHorse) >= maxx - 310
        View.Update
    end loop
    View.Set ("nooffscreenonly")
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
cls
   betMoney := betMoney * 6
   put "You Now Have $", betMoney

     % if names = BetOn then
    % paymoney : = paymoney * 6
    % put "You Now Have $", paymoney
    % else
    % put "You Now Have $", paymoney
    % end if
end loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Author:  McKenzie [ Fri Feb 13, 2004 3:31 pm ]
Post subject: 

You need to be more specific. There are a number of problems in the code. Point out one that you are concerned about. When you post large programs zip the program (with WinZip) with all of the files that are needed to run the program then attach the zip file. Like this:


: