Universal Videogame List - www.uvlist.net

Awaiting 5 votes.
Click stars to vote this game

Tags

[[spoiler:MS-BASIC Source Code|1 REM JIM STORER<br />2 PRINT 'HOW MANY TIMES HAVE YOU PLAYED';<br />3 INPUT Z<br />5 LET N5=8<br />6 REM (RANDOMIZE)<br />12 IF Z=500 THEN 47<br />14 IF Z=1000 THEN 1960<br />17 FOR Y1=1 TO 10<br />18 PRINT<br />19 NEXT Y1<br />20 PRINT 'CONGRDULATIONS! YOU HAVE BEEN ELECTED PREMIER OF ETATS DETINU,<br />'<br />22 PRINT 'A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO'<br />24 PRINT 'DECIDE UPON THE COUNTY'S BUDGET AND DISTIBUTE MONEY TO YOUR'<br />26 PRINT 'COUNTRYMEN FROM THE COMMUNAL TRASURY.';<br />27 IF Z<0 THEN 47<br />44 PRINT 'GOOD LUCK!'<br />47 FOR Y1=1 TO 4<br />48 PRINT<br />49 NEXT Y1<br />50 LET A=INT(60000!+(RND(1)*1000)-(RND(1)*1000))<br />55 LET B=INT(500+(RND(1)*10)-(RND(1)*10))<br />65 LET D=2000<br />100 LET W=INT(RND(1)*10+95)<br />101 FOR Y1=1 TO 8<br />102 PRINT <br />103 NEXT Y1<br />105 PRINT 'YOU NOW HAVE'A'RALLODS IN THE TREASURY.'<br />110 PRINT INT(B)'COUNTRYMEN,';<br />115 LET V9=INT(((RND(1)/2)*10+10))<br />120 IF C=0 THEN 140<br />130 PRINT INT(C)'FOREIGN WORKERS,';<br />140 PRINT ' AND'INT(D)'SQ. MILES OF LAND.'<br />150 PRINT 'THIS YEAR INDUSTRY WILL BUY LAND FOR'W'RALLODS PER SQ. MILE.'<br />155 PRINT 'LAND CURRENTLY COSTS'V9'RALLODS PER SQ. MILE TO PLANT.'<br />160 FOR Y1=1 TO 3<br />162 PRINT<br />163 NEXT Y1<br />200 INPUT 'HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY';H<br />215 IF H<0 THEN 200<br />220 IF H<=D-1000 THEN 300<br />230 PRINT '...THINK AGAIN, YOU'VE ONLY'D-1000'SQ. MILES OF FARMLAND'<br />240 IF X<>0 THEN 200<br />250 PRINT '(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE FOREST'<br />260 PRINT 'LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES, ETC.)'<br />280 LET X=1<br />299 GOTO 200<br />300 LET D=INT(D-H)<br />310 LET A=INT(A+(H*W))<br />320 INPUT 'HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYMEN<br />';I<br />342 IF I<0 THEN 320<br />350 IF I<A THEN 400<br />360 IF I=A THEN 380<br />370 PRINT 'YOU ONLY HAVE'A'RALLODS IN THE TRASURY!'<br />375 GOTO 320<br />380 LET J=0<br />390 LET K=0<br />395 LET A=0<br />399 GOTO 1000<br />400 LET A=INT(A-I)<br />410 INPUT 'HOW MANY SQ. MILES DO YOU WISH TO PLANT';J<br />421 IF J<0 THEN 410<br />422 IF J<=B*2 THEN 426<br />423 PRINT 'SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES'<br />424 GOTO 410<br />426 IF J<=D-1000 THEN 430<br />427 PRINT 'SORRY, BUT YOU'VE ONLY'D-1000'SQ. MILES OF FARM LAND'<br />428 GOTO 410<br />430 LET U1=INT(J*V9)<br />435 IF U1<A THEN 500<br />440 IF U1=A THEN 490<br />450 PRINT 'YOU HAVE ONLY 'A'RALLODS IN THE TRASURY'<br />460 GOTO 410<br />490 LET K=0<br />495 LET A=0<br />499 GOTO 1000<br />500 LET A=A-U1<br />505 IF D=2000 THEN 1000<br />510 PRINT 'HOW MANY RALLODS DO YOU WANT TO SPEND ON POLLUTION CONTROL';<br />520 INPUT K<br />522 IF K<0 THEN 510<br />530 IF K<=A THEN 1000<br />540 PRINT 'THINK AGAIN, YOU HAVE ONLY'A'RALLODS LEFT'<br />550 GOTO 510<br />600 IF H<>0 THEN 1002<br />602 IF I<>0 THEN 1002<br />604 IF J<>0 THEN 1002<br />606 IF K<>0 THEN 1002<br />608 FOR Y1=1 TO 5<br />609 PRINT<br />610 GOTO 1590<br />612 PRINT 'GOODBYE.'<br />1000 GOTO 600<br />1002 FOR Y1=1TO3:PRINT:NEXT Y1<br />1010 LET A=INT(A-K)<br />1020 LET A4=A<br />1100 IF INT(I/100-B)>=0 THEN 1120<br />1105 IF I/100<50 THEN 1700<br />1110 PRINT INT(B-(I/100));'COUNTRYMEN DIED OF STARVATION'<br />1120 LET F1=INT(RND(1))*(2000-D)<br />1122 IF K<25 THEN 1130<br />1125 LET F1=INT(F1/(K/25))<br />1130 IF F1<=0 THEN 1150<br />1140 PRINT F1'COUNTRYMEN DIED FROM THE EFFECTS OF AIR POLLUTION'<br />1150 IF INT((I/100)-B)<0 THEN 1170<br />1160 IF F1<0 THEN 1180<br />1165 GOTO 1200<br />1170 PRINT ' YOU WERE FORCED TO SPEND'INT((F1+(B-(I/100)))*9);<br />1172 PRINT 'RALLODS ON FUNERAL EXPENSES.'<br />1174 LET B5=INT(F1+(B-(I/100)))<br />1175 LET A=INT(A-((F1+(B-(I/100)))*9))<br />1176 GOTO 1185<br />1180 PRINT ' YOU WERE FORCED TO SPEND'INT(F1*9)'RALLODS ON ';<br />1181 PRINT 'FUNERAL EXPENSES.'<br />1182 LET B5=F1<br />1183 LET A=INT(A-(F1*9))<br />1185 IF A>=0 THEN 1194<br />1187 PRINT ' INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD'<br />1189 LET D=INT(D+(A/W))<br />1190 LET A=0<br />1194 LET B=INT(B-B5)<br />1200 IF H=0 THEN 1250<br />1220 LET C1=INT(H+(RND(1)*10)-(RND(1)*20))<br />1224 IF C>0 THEN 1230<br />1226 C1=C1+20<br />1230 PRINT C1'WORKERS CAME INTO THE COUNTRY AND';<br />1250 LET P1=INT(((I/100-B)/10)+(K/25)-((2000-D)/50)-(F1/2))<br />1255 PRINT ABS(P1)'COUNTRYMEN ';<br />1260 IF P1<0 THEN 1275<br />1265 PRINT 'CAME TO';<br />1270 GOTO 1280<br />1275 PRINT 'LEFT';<br />1280 PRINT 'THE ISLAND.'<br />1290 LET B=INT(B+P1)<br />1292 C=INT(C+C1)<br />1305 U2=INT(((2000-D)*((RND(1)*1.5)/2)))<br />1310 IF C=0 THEN 1324<br />1320 PRINT ' OF'INT(J)'SQ. MILES PLANTED,';<br />1324 IF J>U2 THEN 1330<br />1326 U2=J<br />1330 PRINT ' YOU HARVESTED'INT(J-U2)'SQ. MILES OF CROPS.'<br />1340 IF U2=0 THEN 1370<br />1344 IF T1>=2 THEN 1370<br />1350 PRINT ' (DUE TO ';<br />1355 IF T1=0 THEN 1365<br />1360 PRINT 'INCREASED ';<br />1365 PRINT 'AIR AND WATER POLLUTION FROM FORIEGN INDUSTRY.)'<br />1367 LET T1=T1+1<br />1370 Q=INT((J-U2)*(W/2))<br />1380 PRINT ' MAKING'INT(Q)'RALLODS.'<br />1390 LET A=INT(A+Q)<br />1400 V1=INT(((B-P1)*22)+(RND(1)*500))<br />1405 V2=INT((2000-D)*15)<br />1410 PRINT ' YOU MADE'ABS(INT(V1-V2))'RALLODS FROM TOURIST TRADE.'<br />1420 IF V2=0 THEN 1450<br />1425 IF V1-V2>=V3 THEN 1450<br />1430 PRINT ' DECREASE BECAUSE ';<br />1435 G1=RND(1)*10<br />1440 IF G1<=2 THEN 1460<br />1442 IF G1<=4 THEN 1465<br />1444 IF G1<=6 THEN 1470<br />1446 IF G1<=8 THEN 1475<br />1448 IF G1<=10 THEN 1480<br />1450 V3=INT(V1-V2)<br />1451 A=INT(A+V3)<br />1452 GOTO 1500<br />1460 PRINT 'FISH POPULATION DWINDLED DUE TO WATER POLLUTION.'<br />1462 GOTO 1450<br />1465 PRINT 'AIR POLLUTION IS KILLING GAME BIRD POPULATION.'<br />1467 GOTO 1450<br />1470 PRINT 'MINERAL BATHS RUINED BY WATER POLLUTION.'<br />1472 GOTO 1450<br />1475 PRINT 'UNPLESANT SMOG IS DISCOURAGING SUNBATHERS.'<br />1477 GOTO 1450<br />1480 PRINT 'HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT.'<br />1482 GOTO 1450<br />1500 IF B5>200 THEN 1600<br />1505 IF B<343 THEN 1700<br />1510 IF (A4/100)>5 THEN 1800<br />1515 IF C>B THEN 1550<br />1520 IF N5-1=X5 THEN 1900<br />1545 GOTO 2000<br />1550 FOR Y1=1 TO 8<br />1552 PRINT<br />1555 NEXT Y1<br />1560 PRINT 'THE FORIEGN WORKERS HAVE REVOLTED AND TAKEN OVER THE '<br />1562 PRINT 'COUNTRY.'<br />1570 IF RND(1)>.5 THEN 1580<br />1574 PRINT 'YOU ARE REMOVED FROM OFFICE AND ARE NOW RESIDING IN PRISON.'<br />1578 GOTO 1590<br />1580 PRINT 'YOU HAVE BEEN ASSASSINATED.'<br />1590 REM--------END OF JOB--------<br />1596 STOP<br />1600 FOR Y1=1 TO 8<br />1602 PRINT<br />1605 NEXT Y1<br />1610 PRINT B5'COUNTRYMEN HAVE DIED IN ONE YEAR!!!!'<br />1615 PRINT 'YOU HAVE BEEN IMPEACHED AND REMOVED FOR EXTREME MISMANAGEMEN<br />T'<br />1622 M6=INT(RND(1)*10)<br />1625 IF M6<=3 THEN 1670<br />1630 IF M6<=6 THEN 1680<br />1635 IF M6<=10 THEN 1690<br />1670 PRINT 'ALSO HAD YOUR LEFT EYE GOUGED OUT.'<br />1672 GOTO 1590<br />1680 PRINT 'HAVE ALSO GAINED A VERY BAD REPUTATION.'<br />1682 GOTO 1590<br />1690 PRINT 'HAVE ALSO BEEN DECLARED NATIONAL FINK.'<br />1692 GOTO 1590<br />1700 FOR Y1=1 TO 8<br />1702 PRINT<br />1705 NEXT Y1<br />1710 PRINT 'OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU'<br />1715 PRINT 'WERE ELECTED TO OFFICE. THE PEOPLE (REMAINED)'<br />1720 PRINT 'HATE YOUR GUTS.'<br />1730 GOTO 1570<br />1800 IF B5-F1<2 THEN 1515<br />1805 FOR Y1=1 TO 8<br />1807 PRINT<br />1810 NEXT Y1<br />1815 PRINT 'MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID'<br />1820 PRINT 'DID NOT SPEND. AS A RESULT SOME OF YOUR COUNTRY DIED'<br />1825 PRINT 'OF STARVATION. THE PUBIC IS ENRAGED AND YOU HAVE'<br />1830 PRINT 'BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE'<br />1835 PRINT 'THE CHIOCE IS YOURS'<br />1850 GOTO 1590<br />1900 PRINT:PRINT:PRINT 'CONGRADULATIONS!!!!!!'<br />1925 PRINT 'YOU HAVE SUCCESSFULLY COMPLETED YOUR 'N5'YEAR TERM'<br />1950 GOTO 1590<br />1960 INPUT 'HOW MANY YEARS WERE YOU IN OFFICE WHEN INTERRUPTED';X5<br />1962 IF X5<0 THEN 1590<br />1963 IF X5<8 THEN 1969<br />1965 PRINT ' COME ON, YOUR TERM IS ONLY'N5'YEARS'<br />1967 GOTO 1960<br />1969 INPUT 'HOW MUCH DID YOU HAVE IN THE TREASURY';A<br />1971 IF A<0 THEN 1590<br />1975 INPUT 'HOW MANY COUNTRYMEN';B<br />1977 IF B<0 THEN 1590<br />1980 INPUT 'HOW MANY WORKERS';C<br />1982 IF C<0 THEN 1590<br />1990 INPUT 'HOW MANY SQ. MILES OF LAND';D<br />1992 IF D<0 THEN 1590<br />1993 IF D>2000 THEN 1996<br />1994 IF D>1000 THEN 100<br />1996 PRINT ' COME ON, YOU ONLY STARTED WITH 1000 SQ. MILES!'<br />1998 GOTO 1990<br />2000 X5=X5+1<br />2040 GOTO 100<br />2046 END]]

2006-12-19 09:03:45