-----------------------------------

spike0721

Tue Jun 03, 2008 2:55 pm


MILLIONAIRE! [Can any one help make is better ]

-----------------------------------

Code: 
colorback (black) 
cls 
%the var statements 
var reply : string (1) 
var answer : int 
var right_answer,P,R : int 
var restart : string 
var choicea, choiceb, choicec, choiced, question : string 
var elim1, elim2 : int  
var value, valran : int
var name :string 
%the title page
color (red) 
locate (11, 27) 
colorback (101)
put "Welcome to the Gameshow:" 
locate (12, 25) 
put "WHO WANTS TO BE A MILLIONAIRE!" 

delay (500)
color (purple)
locate (2,3)
put"please enter your name"
drawfillbox (200,350,maxx,400,black)
get name:*

%50/50 lifeline 
colorback(black) cls 
procedure fiftyfifty 
    loop 
    
        randint (elim1, 1, 4) 
        randint (elim2, 1, 4) 
        if elim1 = right_answer or elim2 = right_answer then 
            put "" 
        elsif elim1 = elim2 then 
            put "" 
        else 
            exit 
        end if 
    end loop 
    if elim1 = 1 or elim2 = 1 then 
        drawfillbox (1, 50, maxx div 2, 100, 53) 
    elsif elim1 = 2 or elim2 = 2 then 
        drawfillbox (maxx div 2, 50, maxx, 100, 53) 
    elsif elim1 = 3 or elim2 = 3 then 
        drawfillbox (1, 1, maxx div 2, 50,53)  
    elsif elim1 = 4 or elim2 = 4 then 
        drawfillbox (maxx div 2, 1, maxx, 50, 53) 
    end if 
    get answer 
end fiftyfifty 
%phonecall lifeline 
procedure phone 
    locate (4, 1) 
    put "Freind: Hi" .. 
    locate (5, 1) 
    put "You: *Tells question to friend*" .. 
    locate (6, 1) 
    randint (valran, 1, 20) 
    if valran