_TITLE "CONFLICT - SIMULATION GAME" 'started by ron77 on 11-12-2019 - made a working skeleton of subs... need more work to be complited DIM SHARED GovernmentType$
, MilitaryAction$
, ForeignAction$
, EconomicAction$
loadNews
Opening
PRINT:
INPUT "Press enter when you have read the latest news... "; wayt$
Military
Foreign
Economics
cp 4, "COMFLICT - STRATEGIC POLITICAL SIMULATION"
cp 6, "BY RON77"
COLOR 31: cp
8, "PRESS ANY KEY 1 TO BEGIN OR ESC KEY TO EXIT":
COLOR 7 k$
= GetKey$
("1" + CHR$(27))
cp 3, "YOU ARE THE NEWLY ELECTED PRIME MINISTER OF THE STATE OF ISRAEL"
cp 5, "YOU PROMISSED THE ISRAELI VOTERS - 'PEACE AND SECURITY'"
cp 7, "HOWEVER THE MIDDLE EAST IS BURNING FROM TERROR AND INSTABILITY"
cp 9, "HAMAS FROM GAZA AND HIZZBALLA FROM LEBANON AND IRAN ARE THRETHENING"
cp 11, "TO DESTROY ISRAEL AND KILL ALL ISRAELIS"
cp 13, "THE FAITH OF THE ISRAELI NATION IS IN YOUR HANDS"
cp 15, "MAY GOD BE WITH YOU! - GOOD LUCK!"
cp 19, "press any to continue..."
cp 3, "WHAT TYPE OF GOVERNMENT WILL YOU MAKE?"
lp 5, 2, "1. MAKE A LEFT WING GOVERNMENT AND TRY TO ACHIVE PEACE WITH THE ARAB WORLD"
lp 6, 2, "2. MAKE A CONSERVATIVE CENTER GOVERNMENT THAT WILL TRY TO MAINTAINE STABILITY"
lp 7, 2, "3. MAKE A RIGHT WING GOVERNMENT THAT WILL FIGHT ISRAEL'S ENEMIES"
cp 9, "PLEASE CHOOSE 1 2 OR 3 KEYS"
TypeGovernment$ = GetKey$("123") '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> where does this get used????
cp 2, "THE MILITARY IS WAITING FOR YOUR ORDERS SIR!"
lp 4, 2, "1. ASSASINATE A KEY FIGURE IN HAMAS\HIZZBALLA\IRAN MILITERY ORGANIZATION"
lp 5, 2, "2. OPEN A LIMITED MILITERY OPERATION AGAINST HAMAS\HIZZBALLA"
lp 6, 2, "3. BOMB STRATEGIC TARGETS IN IRAN TO DESTROY NUCLEAR FACILITIES"
lp 7, 2, "4. TRY TO DISTABLIZED IRAN\HAMAS\HIZZBALLA BY GIVING AID TO REBEL OPOSITION"
lp 8, 2, "5. DO NOTHING FOR THE MOMENT - LET'S WAIT AND SEE HOW THINGS DEVELOP"
cp 10, "CHOOSE 1 2 3 4 OR 5 KEYS"
MilitaryAction$ = GetKey$("12345")
cp 2, "FOREIGN AFFAIRS MINISTER AT YOUR SERVICE. SIR!"
lp 4, 2, "1. START A SECRET NEGOTIOATION CHANNEL WITH HAMAS\HIZZBALLA\IRAN"
lp 5, 2, "2. ASK THE U.N. SECURITY COUNCIL TO CONDEMN AND SANCTION IRAN\HAMAS\HIZZBALLA"
lp 6, 2, "3. ASK THE U.S. FOR AID"
lp 7, 2, "4. TRY TO INCREASE WORLD SUPPORT FOR ISRAEL BY MAKING A SPEECH IN THE U.N."
lp 8, 2, "5. FIND ALLIES IN OTHER COUNTRIES WHO ARE ENEMIES OF IRAN\HAMAS\HIZZBALLA"
lp 9, 2, "6. DO NOTHING FOR THE MOMENT - LET'S WAIT AND SEE HOW THINGS DEVELOP"
cp 11, "CHOOSE 1 2 3 4 5 OR 6"
ForeignAction$ = GetKey$("123456")
cp 2, "THE ECONOMIC CABINET IS READY TO MEET YOU PRIME MINISTER"
lp 4, 2, "1. INCREASE DEFENCE BUDGET AND RAISE TAXS"
lp 5, 2, "2. DECREASE DEFENCE BUDGET AND LOWER TAXS"
lp 6, 2, "3. LEAVE THE BUDGET AS IT IS FOR NOW"
lp 8, 2, "CHOOSE 1 2 OR 3"
EconomicAction$ = GetKey$("123")
FUNCTION peace$
(n
) ' how to make a function out of a string array!!! CASE 1: peace$
= "WE HAVE STARTED TO NEGOTIATE SECRETLY WITH THE IRANIANS. PROGRESS IS SLOW. IT WILL TAKE TIME" CASE 2: peace$
= "WE ARE NEGOTIATING WITH THE IRANIANS BUT IT LOOKS LIKE THEY ARE DELAYING ON PURPOSE TIME WHILE THE NEGOTIATION IS STUCK" CASE 3: peace$
= "THERE IS CONCERN THAT THE SECRET CHANNEL BETWEEN US AND THE IRANIANS WILL LEAK TO THE PRESS. IF SO THIS MAY PUT AN END TO THE NEGOTIATIONS" CASE 4: peace$
= "THE NEGOTIATION TEAMS BETWEEN US AND IRAN HAVE DONE SOME PROGRESS... WE NEED MORE TIME" CASE 5: peace$
= "WE ARE CLOSE TO A PEACE AGREEMENT BETWEEN US AND THE IRANIANS TO END ALL HOSTILITY JUST A FEW MORE DETILES" CASE 6: peace$
= "WE HAVE A PEACE AGREEMENT READY BETWEEN US AND THE IRANIANS - ARE YOU READY TO SIGN IT?"
'FUNCTION peace2$
' 'IF agreement = 0 THEN
' IF pco < 6 THEN
' forin(2) = "1. WE ARE CORRENTLY NEGOTIATING SECRETLT WITH IRAN\HAMAS\HIZZBALLA. SHELL WE STOP THE NEGOTITATIONS?"
' 'ELSEIF pco = 6 THEN
' ' forin(2) = "1. SIGN A PEACE AGREEMENT WITH IRAN\HAMAS\HIZZBALLA"
' pco = pco + 1
' n$ = peace(pco)
' peace2$ = n$
' ELSEIF pco > 6 THEN
' pco = 6
' 'n$ = peace(pco)
' 'peace2$ = n$
' ELSEIF pco = 6 THEN
' n$ = peace(pco)
' peace2$ = n$
' forin(2) = "1. SIGN A PEACE AGREEMENT WITH IRAN\HAMAS\HIZZBALLA"
' offSwitch1 = 3
' 'agreement = -1
' 'Pcount = 0
' END IF
' 'ELSEIF agreement = -1 THEN
' ' forin(2) = "1. YOU HAVE SIGNED A PEACE AGREEMENT WITH IRAN\HAMAS\HIZZBALLA SHELL WE BREACK THE AGREEMENT?"
' ' peace2$ = "WE HAVE SIGN A PEACE AGREEMENT WITH ALL OF OUR ENEMIES. NO MORE WAR NO MORE BLOODSHED"
' 'END IF
'END SUB
SUB loadNews
'don't try to cp these lines, they are too long news$(1) = "HAMAS HAS LUNCHED MISSILES TO THE SOUTHEREN BORDER THE PUBLIC DEMANDS ACTION"
news$(2) = "HIZZBALLA HAS ATTACKED A BASE NEAR THE NORTHEN BORDER 2 OF OUR SOLDIERS ARE MISSING - WHAT SHELL BE OUR RESPONSE?"
news$(3) = "IRAN IS BUILDING A NUCLEAR SITE FOR PLUTONIUM WITHIN A FEW YEARS THEY WILL HAVE AN ATOMIC WEPONE AGAINST US - WE MUST DO SOMETHING!"
news$(4) = "HAMAS HAS SECRETLY CONTACTED THE FORINE AFFAIRS OFFICE WITH A MESSAGE THEY WANT PEACE AND STABILITY - SHELL WE NEGOTIATE?"
news$(5) = "THE U.S. PRESIDENT HAS ASKED US TO CONSIDER A PEACE DEAL WITH IRAN - IN RETURN THE U.S. WILL EQUIPTE OUR ARMY WITH THE LATEST WEPONES AND INCREASE THE MILITERY AID"
news$(6) = "OUR ECONOMY IS NOT DOING GOOD WE SPEND TOO MUCH MONEY ON THE MILITERY - WE NEED TO CHOOSE EITHER MORE TAXS OR DECREASE SPENDING"
news$(7) = "IRAN PRESIDENT HAS SAID THAT 'ISRAEL MUST AND WILL BE ERASED FROM THE MAP!' - HOW SHELL WE RESPOND TO THIS PROVOCATION?"
news$(8) = "IRANIAN DIPLOMATES HAVE CONTACTED THE FORINE AFFAIRS AMBASSADOR IN CHILE AND ASKED TO OPEN A SECRET NEGOTIATION - SHELL WE AGREE?"
news$(9) = "OUR ECONOMY IS BOOMING AND FLURISHING WE NEED TO DISIDE EITHER TO INCREASE DEFENCE BUDGET OR MAYBE DECRESE TAXS"
NewsUpdate$
= news$
(INT(RND * 9) + 1)
'cp needs s$ to be less that width of screen
GetKey$ = k$