home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 19
/
019.d81
/
mm.start
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
15KB
|
559 lines
50 iflf<3then61000
100 clr:print"[147]"
120 :
160 dim ac$(140),an%(140,8),mo$(12),mn$(12,6),mn%(12,3,8),ad(8),tw(8),tr(8)
161 dimpy(12)
162 dim hl%(12,2),fg$(4,5),jj$(4,5),kk$(4,5)
164 dim s(12)
180 a=3
190 ml$=",000"
192 sp$=" "
193 dn$=""
194 df$=""
195 dg$=""
200 ifad=0thengosub60000:sys51459: rem read stuff and turn off title pic
340 :
350 s(1)=0:s(2)=0:s(3)=0
360 x=int(rnd(1)*12)+1
370 s(1)=x
380 x=int(rnd(1)*12)+1
385 ifx=s(1)then380
390 s(2)=x
400 x=int(rnd(1)*12)+1
410 ifx=s(1)orx=s(2)then400
420 s(3)=x
430 :
440 print"[147]"
480 fori=1to3
500 print""str$(i)") "mn$(s(i),1)
520 printmn$(s(i),2)
530 printmn$(s(i),3)
540 print"*roles==> ";mn$(s(i),4)
550 printspc(10)mn$(s(i),5)
560 printspc(10)mn$(s(i),6)
570 print
580 nexti
590 print"[217]ou have been sent three scripts."
600 print"[215]hich do you want to produce(1-3)?";
610 poke198,0:wait198,1:getz$
620 z=val(z$)
630 ifz<1orz>3then610
635 z=s(z)
640 printz$:mv$=mn$(z,1):fori=2to6:mv$(i)=mn$(z,i):nexti
650 fori=1to3:forj=1to8:mv(i,j)=mn%(z,i,j):nextj,i
660 fori=1to12:ifmv$=mo$(i)then680
670 nexti
680 ll=hl%(i,1):hh=hl%(i,2)
690 print"[147]"
700 print""spc(14)"[195]asting[160][195]all"
710 print""spc(18)"for"
720 print""spc(19-len(mv$)/2)chr$(34)mv$chr$(34)
730 print""spc(14)"[208]lease wait..."
735 :
865 forpp=1to12:s(pp)=0:next
870 :
880 xm%=int(rnd(1)*5)+4
890 fork=1toxm%
900 x=int(rnd(1)*76)+1
910 forpp=1toxm%
920 ifx=s(pp)thenpp=xm%:goto900
930 nextpp
940 s(k)=x
950 nextk
960 :
970 fork=xm%+1to12
980 x=int(rnd(1)*(140-77))+77
990 forpp=xm%+1to12
1000 ifx=s(pp)thenpp=12:goto980
1010 nextpp
1020 s(k)=x
1030 nextk
1040 :
1050 :
1060 :
1070 :
1220 print"[147]"
1230 printspc(6);"[206][193][205][197]";spc(20)"[208][193][217]"
1240 print:fori=1to12
1250 printspc(1+abs(i<10))str$(i);") ";ac$(s(i));tab(25):gosub3780
1260 nexti
1270 :
1280 print"":ct=0
1290 print"[215]ho will you cast as the":printmv$(4);:inputaa$
1295 aa=val(aa$)
1300 ifaa<1oraa>12thenprint"[145][145][145]":goto1290
1305 sa=aa:aa=s(aa)
1320 ifmv(1,1)=5then1335
1330 ifmv(1,1)<>an%(aa,1)thenprint"[145][145][145]":goto1290
1335 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
1340 fm$=mv$(4)+":"+ac$(aa):iflen(fm$)>40thengosub6500
1350 a1$=ac$(aa):ct=ct+py(sa):a1=sa:forj=1to8:ao(j)=an%(aa,j):next
1355 :
1356 :
1360 print"[215]ho will you cast as the":printmv$(5);:inputaa$
1365 aa=val(aa$)
1370 ifaa<1oraa>12oraa=a1thenprint"[145][145][145]":goto1360
1375 sa=aa:aa=s(aa)
1380 :
1390 ifmv(2,1)=5then1405
1400 ifmv(2,1)<>an%(aa,1)thenprint"[145][145][145]":goto1360
1405 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
1410 fm$=mv$(5)+":"+ac$(aa):iflen(fm$)>40thengosub6500
1420 a2$=ac$(aa):ct=ct+py(sa):a2=sa:forj=1to8:tw(j)=an%(aa,j):next
1425 :
1426 :
1430 print"[215]ho will you cast as the":printmv$(6);:inputaa$
1435 aa=val(aa$)
1440 if(aa<1oraa>12)oraa=a1oraa=a2thenprint"[145][145][145]":goto1430
1445 sa=aa:aa=s(aa)
1460 ifmv(3,1)=5then1480
1470 ifmv(3,1)<>an%(aa,1)thenprint"[145][145][145]":goto1430
1480 fm$=mv$(6)+":"+ac$(aa):iflen(fm$)>40thengosub6500
1482 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
1490 a3$=ac$(aa):ct=ct+py(sa):forj=1to8:tr(j)=an%(aa,j):next
1492 ifa1$="[211]chwarzenegger"thena1$="[193]rnold "+a1$
1493 ifa2$="[211]chwarzenegger"thena2$="[193]rnold "+a2$
1494 ifa3$="[211]chwarzenegger"thena3$="[193]rnold "+a3$
1495 :
1496 :
1500 print"[147]"
1501 cm$=str$(ct):gosub22000
1502 print"[212]otal cost of salaries: $";cm$;ml$
1505 cm$=str$(ll):gosub22000
1510 print"[200]ow much do you want to spend on production(";
1511 printcm$ml$" - 30,000,000)": print"$";
1516 inputpa$:ifval(pa$)/1000>=llthen1520
1517 iflen(pa$)<7orlen(pa$)>11then1510
1518 gosub20000:goto1530
1520 mm=int(val(pa$)/1000)
1530 ifmm<llormm>30000then1510
1540 ifmm>hhthenmn=hh:goto1560
1550 mn=mm
1560 x=int(rnd(1)*10)+1
1565 :
1570 onxgoto3900,3920,3930,3940,3950,3960,3970,1580,1580,1580
1580 x=int(rnd(1)*100)+1
1590 ifx>=70thenprintdg$"[212]he movie comes in on budget.":goto1650
1600 ifx>=30thenprintdg$"[212]he production went 2% over budget.":mm=mm+int(mm*.02)
1602 ifx>=30then1650
1610 ifx>=15thenprintdg$"[212]he production went 5% over budget.":mm=mm+int(mm*.05)
1612 ifx>=15then1650
1620 ifx>=7thenprintdg$"[212]he production went 10% over budget.":mm=mm+int(mm*.1)
1622 ifx>=15then1650
1630 ifx>=3thenprintdg$"[212]he production went 20% over budget.":mm=mm+int(mm*.2)
1632 ifx>=15then1650
1640 printdg$"[212]he production went 30% over budget.":mm=mm+int(mm*.3)
1650 ct=ct+mm:cm$=str$(ct):gosub22000
1660 printleft$(dn$,20)"total cost = $";cm$;ml$:print
1670 gosub3980
1680 print"[147]"
1690 print"":print" [205][193][202][207][210][160][211][212][213][196][201][207][160][211][206][197][193][203][160][208][210][197][214][201][197][215]"
1700 print"":printspc(19)"of"
1710 y=20-int(len(mv$)/2)
1720 print""spc(y)""mv$"[146]"
1730 print"":printspc(16)"starring"
1731 vx$=a1$:vy$=a2$:vz$=a3$
1732 iflen(vy$)=21thendm$=vx$:vx$=vy$:vy$=dm$
1733 iflen(vz$)=21thendm$=vx$:vx$=vz$:vz$=dm$
1740 y=20-int(len(vx$)/2)
1750 printleft$(dn$,15)spc(y)vx$
1760 y=20-int((len(vy$)+len(vz$)+3)/2)
1765 ify=0theny=1
1770 printleft$(dn$,17)spc(y)vy$;" & ";vz$:print
1780 printleft$(dn$,19)spc(30);:x=int(rnd(1)*3)+1
1790 ifx=1thenprint"rated pg":goto1820
1800 ifx=2thenprint"rated pg13":goto1820
1810 print"rated r"
1820 gosub3980
1830 print"[147][212]he reviews are in..."
1840 :
1850 ps$="[212]he [206][217] [212]imes ":gosub3830
1860 ps$="[197]ntertainment [212]onight ":gosub3830
1870 ps$="[199]ene [211]iskel ":gosub3830
1880 ps$="[210]oger [197]bert ":gosub3830
1890 ps$="[211]neak [208]reviews ":gosub3830
1900 ps$="[210]ex [210]eed ":gosub3830
1910 ps$="[212]ime [205]agazine ":gosub3830
1920 ps$="[206]ewsweek ":gosub3830
1930 ps$="[204][193] [212]imes ":gosub3830
1932 print""
1940 print" [208]ress any key to release the movie";:poke198,0:wait198,1:getk$
1950 :
1960 print"[147]":bq=0:aq=0
1970 fori=1to3
1980 aq=int((aq+mv(i,3)+mv(i,4))*1.10)
1990 nexti
2000 fori=3to8
2010 ifao(i)<mv(1,i)thenbq=bq+(ao(i)-mv(1,i))
2020 iftw(i)<mv(2,i)thenbq=bq+(tw(i)-mv(2,i))
2030 iftr(i)<mv(3,i)thenbq=bq+(tr(i)-mv(3,i))
2040 nexti
2050 ifa<0thena=-1
2060 cq=(a*90)+50
2070 dq=int(mn/100)
2080 mq=38*(aq+bq)+cq+dq
2090 x=int(rnd(1)*950+1)
2100 wt=(mq-x)*8
2110 xx=int(rnd(1)*3)+1
2120 wk=1:tt=0
2130 print""spc(17)"[215][197][197][203]";wk
2140 x=int(rnd(1)*1200)+100
2150 wt=wt-x
2160 ifxx=4thenyy=.25
2170 ifxx=1thenyy=.02
2180 ifxx=2thenyy=.07
2190 ifxx=3thenyy=.15
2200 wt=wt-int(wt*yy)
2210 ifwt<200thenwt=200
2215 cm$=str$(wt):gosub22000
2220 print"[215]eekly gross - $";cm$;ml$;" "
2230 tt=tt+wt
2235 cm$=str$(tt):gosub22000
2240 print"[212]otal gross - $";cm$;ml$
2250 gosub3980
2260 ifwt<500then2280
2270 wk=wk+1:goto2130
2280 print"[147]":bl$=chr$(34)+mv$+chr$(34)
2281 bl$=bl$+" starring "+a1$+", "+a2$+" and "+a3$
2282 bl$=bl$+" has been pulled from the theaters after"+str$(wk)+" weeks."
2283 gosub7500:print
2290 print"subtotal = $";cm$;ml$
2300 gosub3980:fm$="+----------------------------------+"
2310 print"[147]"fm$:forfk=3to24:printleft$(dn$,fk)" !"
2311 printleft$(dn$,fk)spc(38)"!";:print"":nextfk
2312 printdn$fm$""
2313 print" * [201] n v i t a t i o n *"
2314 print" ======================="
2315 printleft$(dn$,11)"[212]he [193]cademy of [205]otion [208]ictures"
2316 print"[193]rts and [211]ciences cordially"
2317 print"invites you to attend its annual"
2318 print"[193]cademy [193]wards ceremony."
2319 print:print:print"[208]ress any key to attend":poke198,0:wait198,1:geta$
2330 :
2340 print"[147][215]elcome to the annual [193]cademy":print"[193]wards presentation."
2350 print"[200]ere to present the first award is ":rx%=1:px%=xm%:oz$="actor"
2351 xx%=76:gosub3230:w=0
2360 printleft$(dn$,10)"[212]he winner of the [207]scar for [194]est":print"[193]ctress is ";
2361 fordl=1to500:nextdl:gosub3390
2370 print"[147][200]ere to present the next [207]scar is ":rx%=xm%+1:px%=12
2371 xx%=64