MaxCommndr = 661
MinCommndr = 401
MaxLands = 424
dim Prov$(MaxLands)


OPEN 1, "BlindLuck.map", "w"

PRINT #1 "#title Blind Luck"
PRINT #1 "#imagefile BlindLuck.tga"
PRINT #1 "#description  374 land provinces, 50 seas. Things are scattered all over the map. Remember: Luck can be good, and luck can be bad."
PRINT #1 "---------------------"

PRINT #1 "#features 99"
PRINT #1 " "


#FOR R = 0 to 13
# FOR tx = 1 to 7
#  DO 
#   Spec=int(ran(MaxLands))
#    IF (Prov$(Spec) = "") break
#  LOOP
#  Prov$(Spec) = str$(R)
# NEXT
#NEXT

FOR i = 1 to MaxLands


#poptype = str$(int(ran(34))+24)
 poptype = int(ran(60))
 owner = int(ran(13))
 defence = int(ran(20)+ran(20))

 Commndr1 = int(ran(MinCommndr))
   xp1 = int(ran(49))+49
   randeq1 = int(ran(3)+1)
  BodyGrd1 = Commndr1 + int(ran(7)) - 5
   IF BodyGrd1 = Commndr1 THEN BodyGrd1 = BodyGrd1 - 1 :FI
   IF BodyGrd1 < 0 THEN BodyGrd1 = 11 :FI
  BodyNum1 = 6 + int(ran(4))

 Commndr2 = int(ran(MaxCommndr))
   xp2 = int(ran(99))+99
   randeq2 = int(ran(2)+2)
  BodyGrd2 = Commndr2 + int(ran(12)) - 10
   IF BodyGrd2 = Commndr2 THEN BodyGrd2 = BodyGrd2 - 1 :FI
   IF BodyGrd2 < 0 THEN BodyGrd2 = 33 :FI
  BodyNum2 = 4 + int(ran(2))

 
## print lines

## decide to setland or blank it with a land

xx=ran(450)
IF xx < 75 THEN PRINT #1 "#land "+str$(i) 
           ELSE PRINT #1 "#setland "+str$(i)
ENDIF

## one-line possibilities

xx=ran(450)
IF xx < 100 THEN PRINT #1 "#poptype "+str$(poptype) :FI

xx=ran(450)
IF xx < 70 THEN PRINT #1 "#owner "+str$(owner) :FI

xx=ran(450)
IF xx < 150 THEN PRINT #1 "#defence "+str$(defence) :FI


## decide whether to put some combo of temple, lab, fort

xx=ran(450)
IF xx < 70 then
 x=int(ran(6))
  IF     x=0 then
   PRINT #1 "#fort " +str$(int(ran(21)))
   PRINT #1 "#lab "
   PRINT #1 "#temple "
  ELSEIF x=1 then
   PRINT #1 "#fort " +str$(int(ran(21)))
   PRINT #1 "#lab "
  ELSEIF x=2 then
   PRINT #1 "#fort " +str$(int(ran(21)))
   PRINT #1 "#temple "
  ELSEIF x=3 then
   PRINT #1 "#temple "
  ELSEIF x=4 then
   PRINT #1 "#lab "
   PRINT #1 "#temple "
  ELSEIF x=5 then
   PRINT #1 "#lab "
  ELSEIF x<5 then
   PRINT #1 "#fort " +str$(int(ran(21)))
  FI 
ENDIF


## minor commander and bodyguards

xx=ran(450)
IF xx < 250 THEN 
  PRINT #1 "#commander "+ str$(Commndr1)
   x=ran(2):IF x=1 THEN PRINT "xp "+str$(xp1) :FI
  PRINT #1 "#randomequip "+str$(randeq1)
  PRINT #1 "#randomequip 1"
  PRINT #1 "#bodyguards "+ str$(BodyNum1)+ " "+ str$(BodyGrd1)
ENDIF


## major commander and bodyguards

xx=ran(450)
IF xx < 100 THEN 
  PRINT #1 "#commander "+ str$(Commndr2)
   x=ran(2):IF x=1 THEN PRINT "xp "+str$(xp2) :FI
  PRINT #1 "#randomequip "+str$(randeq2)
  PRINT #1 "#randomequip 2"
  PRINT #1 "#bodyguards "+ str$(BodyNum2)+ " "+ str$(BodyGrd2)
ENDIF

 PRINT #1 " "

NEXT i


Close #1
END