It is active but some people don't like to post in threads they don't know anything about. I didn't even know this type of game was called a TBS.
I haven't done one myself but it shouldn't be too hard to setup the main routines. You just need a setup routine that allows the player to move characters, change settings on cities, and anything else. Then run the AI routine for npcs, citizen reactions to changes in the cities, and so on.
This works in Classic and Pro:
sync rate 0
sync on
` Dimensionalize arrays
dim Stat(5)
dim Tex$(5)
` Set a timer
tim=timer()
` Call the AI function (to get initial citizen attitude)
AI()
do
` Check for "1" and if the timer is up
if keystate(2) and timer()>tim+100
` Increase tax stat
Stat(1)=Stat(1)+1
` Reset timer
tim=timer()
endif
` Check for "2" and if the timer is up
if keystate(3) and timer()>tim+100
` Decrease tax stat
Stat(1)=Stat(1)-1
` Reset timer
tim=timer()
endif
` Check for "E" and if the timer is up
if keystate(18) and timer()>tim+100
` Increase number of days
Stat(0)=Stat(0)+1
` Call the AI function
AI()
` Call the update screen function
UpdateScreen()
` Reset timer
tim=timer()
` Check if tax level is above 100% and end
if Stat(1)=>100
ink rgb(255,0,0),0
text 0,200,"Your dictatorship is over."
wait key
end
endif
endif
` Call the screen updater (so the current tax amount is shown)
UpdateScreen()
loop
end
function UpdateScreen()
cls
text 0,0,"Day "+str$(Stat(0))
text 0,20,"Current Tax "+str$(Stat(1))+"%"
text 0,40,"Citizen Attitude: "+Tex$(0)
text 0,80,"[1] Increase Taxes"
text 0,100,"[2] Decrease Taxes"
text 0,120,"[E] End turn"
sync
endfunction
function AI()
if Stat(1)<=0 then Tex$(0)="Extremely Happy"
if Stat(1)>0 and Stat(1)<=10 then Tex$(0)="Very Happy"
if Stat(1)>10 and Stat(1)<=20 then Tex$(0)="Annoyed"
if Stat(1)>20 and Stat(1)<=30 then Tex$(0)="Picketing Outside Your HQ"
if Stat(1)>30 and Stat(1)<=50 then Tex$(0)="Stockpiling Weapons To Overthrow You"
if Stat(1)>50 and Stat(1)<=80 then Tex$(0)="Killing Your Guards"
if Stat(1)>80 and Stat(1)<99 then Tex$(0)="Picking Out Colors For Your Coffin"
if Stat(1)=>100 then Tex$(0)="You don't care how they feel anymore since they killed you."
endfunction
