option explicit

dim intMcnt,intMuzzy
dim intFcnt,intFunds
dim blnInsane,sngBombBux,intFoolCnt,intF

Randomize

blnInsane = True ' F**kin Duh

intMcnt = 6
intFcnt = 4

intMuzzy = 1
intFunds = 1

intFoolCnt = Muzzy_Pop(intMuzzy) ' initialize fodder foolpool
sngBombBux = BigRed_Bank(intFunds) ' initialize alDouri

Do

intF = Int((10 * Rnd) + 1) ' Generate Random Attack Factor 1-10

do_jihad intF,sngBombBux,intFoolCnt ' Attack and adjust figures

if sngBombBux =< 0 then ' Out of cash? (allow deficit)
intFunds = intFunds + 1 ' next funding source
if intFunds > intFcnt then ' no more sources? ur f**ked
blnInsane = False ' end the insanity
else
sngBombBux = sngBombBux + BigRed_Bank(intFunds)
end if
end if

if IntFoolCnt = 0 then ' Out of fodder?
intMuzzy = intMuzzy + 1 ' next fool source
if intMuzzy > intMcnt then ' no more sources? ur f**cked
blnInsane = False ' end the insanity
else
intFoolCnt = Muzzy_Pop(intMuzzy)
end if
end if

loop while blnInsane ' Until no longer insane

end

function Muzzy_Pop(idiotocracy)
select case idiotocracy
case 1 ' Pool of frustrated Saudi Fools
Muzzy_Pop = 2000000
case 2 ' Pool of Indo Fools
Muzzy_Pop = 1000000
case 3 ' Pool of Paki Fools
Muzzy_Pop = 2000000
case 4 ' Pool of Malay Fools
Muzzy_Pop = 100000
case 5 ' Pool of Iranian Fools
Muzzy_Pop = 10000
case 6 ' Pool of Euro-grown Fools
Muzzy_Pop = 500000
end select
end function

function BigRed_Bank(asshatsource)
select case asshatsource
case 1 ' Saddam's Syrian Cash
BigRed_Bank = 1000000000
case 2 ' Muzzy Charities
BigRed_Bank = 100000000
case 3 ' Saudi Royals
BigRed_Bank = 1000000000
case 4 ' Mad Mullahs
BigRed_Bank = 19.95
end select
end function

sub do_jihad(fac,bucks,fools)
'*********************************
'* Proprietary, Lol!
'* Rummy's Rules
'*********************************
end sub