ive tried adding syncs and deleting syns
adding and taking away do-loops
adding more subs
different subs for loading etc
i done alot but its still laggy
i even changed the sync rate
please help all it is, changing numbers in my game.
what happens is:
it says ur resource gathering level and ur resources
every few seconds u get more resources
if u increase ur resource level then u get faster resources.
can anyone please help?!
btw it takes like 15seconds to load
code:
Rem Project: Tribal Conflict
Rem Created: 20/06/2008 22:03:15
Rem ***** Main Source File *****
set text font "verdana"
set text size 12
Set Display Mode 800,600,32
sync on : sync rate 100
hide mouse
`set text size 200
`text 100,100,"Loading"
`gosub loading
`loading:
load image "iron.bmp",1
load image "curser.bmp",2
load image "coal.bmp",3
load image "Clay.bmp",4
load image "wood.bmp",5
`gosub preparing
`preparing:
sprite 1,470,35,1
sprite 2,470,50,3
sprite 3,470,20,4
sprite 4,470,5,5
`cls
`gosub game
`game:
`set text size 12
wood#=1000
clay#=1000
coal#=1000
iron#=1000
woodcamp#=1
ironmine#=1
claypit#=1
coalmine#=1
WoodWords$="Your Wood Amount Is: "
ClayWords$="Your Clay Amount Is: "
IronWords$="Your Iron Amount Is: "
CoalWords$="Your Coal Amount Is: "
WoodCampWords$="Your Wood Camps Level Is: "
IronMineWords$="Your Iron Mines Level Is: "
ClayPitWords$="Your Clay Pits Level Is: "
CoalMineWords$="Your Coal Mines Level Is: "
do
text 20,5,WoodWords$+str$(wood#) `: sync
text 20,20,ClayWords$+str$(clay#)` : sync
text 20,35,IronWords$+str$(iron#)` : sync
text 20,50,CoalWords$+str$(coal#) `: sync
text 240,5,WoodCampWords$+str$(woodcamp#)` : sync
text 240,20,ClayPitWords$+str$(claypit#)` : sync
text 240,35,IronMineWords$+str$(ironmine#)` : sync
text 240,50,CoalMineWords$+str$(coalmine#) `: sync
`
`mouse
sprite 9,mousex(),mousey(),2
if sprite collision(9,1) and mouseclick()=1 : sync
if wood#=<0 then gosub ggg
if clay#=<0 then gosub ggg
if iron#=<0 then gosub ggg
inc ironmine#, 1
dec wood#, 100
dec clay#, 100
dec iron#, 50
ggg:
wait 1000
endif
if sprite collision(9,2) and mouseclick()=1 : sync
if wood#=<0 then gosub ggt
if clay#=<0 then gosub ggt
if iron#=<0 then gosub ggt
if coal#=<0 then gosub ggt
inc coalmine#, 1
dec wood#, 200
dec clay#, 200
dec iron#, 200
dec coal#, 100
ggt:
wait 1000
endif
if sprite collision(9,3) and mouseclick()=1 : sync
if wood#=<0 then gosub ggr
if clay#=<0 then gosub ggr
if iron#=<0 then gosub ggr
inc claypit#, 1
dec wood#, 100
dec clay#, 50
dec iron#, 100
ggr:
wait 1000
endif
if sprite collision(9,4) and mouseclick()=1 : sync
if wood#=<0 then gosub ggp
if clay#=<0 then gosub ggp
if iron#=<0 then gosub ggp
inc woodcamp#, 1
dec wood#, 50
dec clay#, 100
dec iron#, 100
ggp:
wait 1000
endif
`sync
`cls
`loop
`do
if woodcamp#=1 then inc wood#, 1 : sync
wait 1000
`endif
`loop
if woodcamp#=2 then inc wood#, 1 : sync
wait 4000
`endif
if woodcamp#=2 then inc wood#, 1 : sync
wait 3000
`endif
if woodcamp#=2 then inc wood#, 1 : sync
wait 2000
`endif
if woodcamp#=2 then inc wood#, 1 : sync
wait 1000
`endif
`loop
if ironmine#=1 then inc iron#, 1 : sync
wait 1000
`endif
`loop
if ironmine#=2 then inc iron#, 1 : sync
wait 4000
`endif
if ironmine#=3 then inc iron#, 1 : sync
wait 3000
`endif
if ironmine#=4 then inc iron#, 1 : sync
wait 2000
`endif
if ironmine#=5 then inc iron#, 1 : sync
wait 1000
`endif
if coalmine#=5 then inc coal#, 1 : sync
wait 1000
if claypit#=5 then inc iron#, 1 : sync
wait 1000
if ironmine#=10 then inc iron#, 1 : sync
wait 100
loop
media in download:
Creators of Outscape
