Xeno_Cre8or wrote:
KermMartian wrote:
...I call it you just tried to link me to an image on your own computer. >_<
How do I get the pic Here, then?
:ClrDraw
:AxesOff
:ClrTable
:UnarchivePic7
:RecallPic 7
:Pause
:ClrDraw
:ArchivePic7
:5→P
:0→G
:ClrHome
:Output(2,3,"Movie Tycoon")
:Output(3,7,"2.1")
:Pause
:Menu(" CHOOSE LEVEL ","INTERN",E,"EXECUTIVE",M,"CEO",H)
:Lbl E
:5000→B
:ClrHome
:Disp "YOU START WITH",B
:Pause
:Goto A
:Lbl M
:2500→B
:ClrHome
:Disp "YOU START WITH",B
:Pause
:Goto A
:Lbl H
:1000→B
:ClrHome
:Disp "YOU START WITH",B
:Pause
:Goto A
:Lbl A
:Menu(" WHAT TO DO? ","BUY",1,"PLAY MONTH",2,"SET PRICE",3,"CHECK BALANCE",4,"INSTRUCTIONS",IN,"QUIT",EN)
:Lbl EN
:ClrHome
:Disp "COPYRIGHT 2004"
:Disp "TITANIUM GAMES"
:Disp "TITANIUMGAMES.TK"
:Stop
:Lbl 3
:ClrHome
:Disp "ENTER PRICE-"
:Disp "4,5,OR 6"
:Prompt P
:Disp "PRICE CHANGED"
:Pause
:Goto A
:Lbl 2
:ClrHome
:Disp "PLAYING MONTH..."
:Pause
:P*G→R
:B+R→B
:ClrHome
:Disp "YOU HAD",G
:Disp "CUSTOMERS"
:Disp
:Disp "YOU MADE",R
:Disp "DOLLARS"
:Pause
:ClrHome
:Disp "YOU NOW HAVE",B
:Disp "DOLLARS"
:If B>19999
:Then
:¦ ClrHome
:¦ Output(2,5,"You Win!")
:¦ Output(5,1,"Congratulations!")
:¦ Pause
:¦ Goto EN
:End
:0→G
:0→R
:Pause
:Goto A
:Lbl 1
:Menu("PICK A MOVIE","AGENT CODY BANKS",50,"ANGER MANAGEMENT",50,"BRINGING DOWN THE HOUSE",25,"CHICAGO",10,"DUDE WHERES MY CAR",50,"MORE...",5,"BACK",A)
:Lbl 5
:Menu("MORE","FREDDY GOT FINGERED",25,"GIGLI",25,"HARRY POTTER",75,"H P II",10,"H P III",10,"MORE...",6,"BACK",1)
:Lbl 6
:Menu("MENU","HOT SHOTS",25,"LORD OF THE RINGS",75,"LOTR II",10,"LOTR III",10,"MINORITY REPORT",50,"MORE...",7,"BACK",5)
:Lbl 7
:Menu("MORE","PHONE BOOTH",75,"PIANIST",75,"SCARY MOVIE",50,"SHREK",75,"MOOSEPORT",25,"BACK",6)
:Lbl 4
:ClrHome
:Disp "YOU HAVE",B
:Disp "LEFT"
:Pause
:Goto A
:Lbl 25
:Menu("250","BUY",2Y,"NO",XN)
:Lbl 2Y
:ClrHome
:If B<250
:Then
:¦ Disp "TOO MUCH MONEY"
:¦ Pause
:¦ Goto 1
:End
:If P=4
:Then
:¦ G+75→G
:End
:If P=5
:Then
:¦ G+50→G
:End
:If P=6
:Then
:¦ G+25→G
:End
:B-250→B
:Disp "YOU HAVE",B
:Disp "LEFT"
:Pause
:Goto A
:Lbl 50
:Menu("500","BUY",5Y,"NO",XN)
:Lbl 5Y
:ClrHome
:If B<500
:Then
:¦ Disp "TOO MUCH MONEY"
:¦ Pause
:¦ Goto 1
:End
:If P=4
:Then
:¦ G+100→G
:End
:If P=5
:Then
:¦ G+75→G
:End
:If P=6
:Then
:¦ G+50→G
:End
:B-500→B
:Disp "YOU HAVE",B
:Disp "LEFT"
:Pause
:Goto A
:Lbl 75
:Menu("750","BUY",7Y,"NO",7N)
:Lbl 7Y
:ClrHome
:If B<750
:Then
:¦ Disp "TOO MUCH MONEY"
:¦ Pause
:¦ Goto 1
:End
:If P=4
:Then
:¦ G+150→G
:End
:If P=5
:Then
:¦ G+100→G
:End
:If P=6
:Then
:¦ G+50→G
:End
:B-750→B
:Disp "YOU HAVE",B
:Disp "LEFT"
:Pause
:Goto A
:Lbl 10
:Menu("1,000","BUY",1Y,"NO",1N)
:Lbl 1Y
:ClrHome
:If B<1000
:Then
:¦ Disp "TOO MUCH MONEY"
:¦ Pause
:¦ Goto 1
:End
:If P=4
:Then
:¦ G+175→G
:End
:If P=5
:Then
:¦ G+125→G
:End
:If P=6
:Then
:¦ G+75→G
:End
:B-1000→B
:Disp "YOU HAVE",B
:"LEFT"
:Pause
:Goto A
:Lbl XN
:Goto 1
:End
:Lbl IN
:ClrHome
:ClrDraw
:Disp "In Movie Tycoon,","you buy movies","and set prices","for your theatr.","Picking","out just the","..."
:Pause
:Disp "right movies and","seting the price","at just the","right amount is","the key to","success","..."
:Pause
:Disp "Once you","reach a balance","of 20000,","YOU WIN!"
:Pause
:Goto A
Advertisement