Sorry your browser is not supported!

Rem Project: eCity Prototype
Rem Created: Wednesday, June 30, 2010

Rem ***** Main Source File *****

sync on
sync rate 60

open to read 1,"files\setup.txt"
read string 1,experience$
read string 1,level$
read string 1,money$
read string 1,mayor$
read string 1,cityname$

global experience 
global level
global money
global mname$ 
global cname$ 

experience = val(experience$)
level = val(level$)
money = val(money$)
mname$ = mayor$
cname$ = cityname$
close file 1

if file exist("files\private\TownHall.xy") = 1
open to read 1,"files\private\TownHall.xy"
read string 1,thallx$
read string 1,thally$

thallx = val(thallx$)
thally = val(thally$)
global thallexist
thallexist = 1

close file 1
endif


load image "media\plot.png",1

load image "media\property_forsale.png",2

load image "media\road.png",3

load image "media\Government.png",4

load image "media\Property.png",5

global r 
r = make vector2(1)
r = make vector2(2) : `Base vectors
r = make vector2(3) : `Temp vector
r = make vector2(4) : `Temp vector

`Initialize the base vectors
set vector2 1, 40, -20
set vector2 2, -40, -20

`Define origin
global oX 
global oY 
oX = screen width() / 2
oY = screen height() / 4 * 3 + 100

`Draw
global TilesX
global TilesY
TilesX = 10
TilesY = 9

global rplot
rplot = 3


backdrop off

do
cls
hud()

global rstagepicker
rstagepicker = rnd(rplot)

drawNewGrid()
GridFunctions()
    
    sprite 1,200,250,3
    if thallexist = 1 then sprite 2,thallx,thally,4
    
    TownHall()
    
    if keystate(19) = 1
    plotr = 1
    endif
    
    if plotr = 1
    sprite rplot,x vector2(3),y vector2(3),2
    
    if mouseclick() = 1 and pixelcol(rplot,2) > 0  
    plotr = 0
    delete sprite rplot
    if rplot > 3 then rplot = rplot - 1 
    endif
    
    if mouseclick() = 1 and pixelcol(rplot,1) > 0 and coordX# >=4  
    plotr = 0
    delete sprite rplot
    if rplot > 3 then rplot = rplot - 1 
    endif
    
    if mouseclick() = 1 and pixelcol(rplot,1) = 0 and pixelcol(rplot,2) = 0 
    sprite rplot,x vector2(3),y vector2(3),2
    plotr = 0
    rplotx = x vector2(3)
    rploty = y vector2(3)
    rstage = 0
    open to write 1,"files\private\rplot"+str$(rplot)+".xy"
    write string 1,str$(rplot)
    write string 1,str$(rplotx)
    write string 1,str$(rploty)
    write string 1,str$(rstage)
    close file 1
    rplot = rplot + 1
    money = money - 25
    
    delete file "files\setup.txt"
   
    open to write 1,"files\setup.txt"
    write string 1,str$(experience)
    write string 1,str$(level)
    write string 1,str$(money)
    write string 1,mayor$
    write string 1,cityname$
    close file 1
    endif
    
    endif
    
    if rstagepicker >= 3 and file exist("files\private\rplot"+str$(rstagepicker)+".xy") = 1
    open to read 1,"files\private\rplot"+str$(rstagepicker)+".xy"
    read string 1,rplot$
    read string 1,rplotx$
    read string 1,rploty$
    read string 1,rstage$
    
    rpickplot = val(rplot$)
    rpickplotx = val(rplotx$)
    rpickploty = val(rploty$)
    rpickplotstage = val(rstage$)
    
    if rpickplotstage = 0 
    delete sprite rpickplot
    sprite rpickplot,rpickplotx,rpickploty,5
    close file 1
    else
    close file 1
    endif
    endif
  
set cursor 0,0
sync
loop

Rem ***** Included Source File *****

function hud()
print "$"+str$(money)
print "Level: "+str$(level)
print "XP: "+str$(experience)
print coordX#, " : ", coordY#
print x vector2(3)
print y vector2(3)
print rstagepicker
 
if thallexist = 0
text 0,500,"[G] Town Hall"
else
text 0,560,"Plot:"
text 50,560,"[R] Residential"
endif

center text 400,0,cname$
center text 400,15,"Mayor "+mname$
endfunction

function drawNewGrid()

    `Along relative x direction
    `Vector 3 will hold the beginning point, 4 will contain the end of the map in the Y-direction
    copy vector2 3, 2 : multiply vector2 3, TilesY
    set vector2 4, oX, oY : add vector2 3, 3, 4
    for x = 0 to TilesX
        line x vector2(4), y vector2(4), x vector2(3), y vector2(3)
        add vector2 3, 3, 1
        add vector2 4, 4, 1
    next x

    `Along relative y direction
    `Vector 3 will hold the beginning point, 4 will contain the end of the map in the X-direction
    copy vector2 3, 1 : multiply vector2 3, TilesX
    set vector2 4, oX, oY : add vector2 3, 3, 4
    for y = 0 to TilesY
        line x vector2(4), y vector2(4), x vector2(3), y vector2(3)
        add vector2 3, 3, 2
        add vector2 4, 4, 2
    next y    

endfunction

function GridFunctions()
set vector2 3, mousex() - oX, mousey() - oY
d1# = dot product vector2(1, 3)
d2# = dot product vector2(2, 3) 
d3# = dot product vector2(1, 2)
la# = length vector2(1)
lb# = length vector2(2)
global coordX#
global coordY#
coordX# = (d1#*lb#*lb# - d2#*d3#) / ((la#*lb#)^2 - d3#^2)
coordY# = (d2#*la#*la# - d1#*d3#) / ((la#*lb#)^2 - d3#^2)

` 'Snapped' coordinates
snapX = int(coordX# + 0.5)
snapY = int(coordY# + 0.5)
   
    
    set vector2 3, oX, oY
    copy vector2 4, 1 : multiply vector2 4, snapX
    add vector2 3, 3, 4
    copy vector2 4, 2 : multiply vector2 4, snapY
    add vector2 3, 3, 4
 endfunction   

function pixelcol(sprite1,sprite2)
	if Sprite Collision(sprite1, sprite2)
	
		collision as boolean
		collision=0
		
		memnum=1
		while memblock exist(memnum)=1
		memnum=memnum+1
		endwhile
		
		make memblock from image memnum,sprite image(sprite1)
		
		memnum2=memnum
		while memblock exist(memnum2)=1
		memnum2=memnum2+1
		endwhile
		
    	make memblock from image memnum2,sprite image(sprite2)
    	text 0,0, str$(memnum)
    	text 0,20, str$(memnum2)
    	
    	if Sprite X(sprite2)<=Sprite X(sprite1)
    		s2x=sprite X(sprite1)-sprite x(sprite2)
    		s1x=0
    	endif
    	if Sprite X(sprite1)<Sprite X(sprite2)
    		s2x=0
    		s1x=sprite x(sprite2)-sprite x(sprite1)
    	endif
    	if Sprite y(sprite2)<=sprite y(sprite1)
    		s1y=0
    		s2y=sprite y(sprite1)-sprite y(sprite2)
    	endif
    	if sprite y(sprite1)<sprite y(sprite2)
    		s1y=sprite y(sprite2)-sprite y(sprite1)
    		s2y=0
    	endif
    	if sprite x(sprite1)+sprite width(sprite1)<=sprite x(sprite2)+sprite width(sprite2)
    		e1x=sprite width(sprite1)
    		e2x=sprite width(sprite2)-( sprite x(sprite2)+sprite width(sprite2)-( sprite x(sprite1)+sprite width(sprite1) ) )
    	endif
    	if sprite x(sprite2)+sprite width(sprite2)<sprite X(sprite1)+sprite width(sprite1)
    		e2x=sprite width(sprite2)
    		e1x=sprite width(sprite1)-( sprite x(sprite1)+sprite width(sprite1)-( sprite x(sprite2)+sprite width(sprite2) ) )
    	endif
    	if sprite y(sprite1)+sprite height(sprite1)<=sprite y(sprite2)+sprite height(sprite2)
    		e1y=sprite height(sprite1)
    		e2y=sprite height(sprite2)-( sprite y(sprite2)+sprite height(sprite2)-( sprite y(sprite1)+sprite height(sprite1) ) )
    	endif
    	if sprite y(sprite2)+sprite height(sprite2)<sprite y(sprite1)+sprite height(sprite1)
    		e2y=sprite height(sprite2)
    		e1y=sprite height(sprite1)-( sprite y(sprite1)+sprite height(sprite1)-( sprite y(sprite2)+sprite height(sprite2) ) )
    	endif   	
    	
    	//--start at 12--rgbb,rgbg,rgbr,rgba
    	savex1=s1x
    	savex2=s2x
    	for s1y=s1y to e1y-1
    		s1x=savex1
    		s2x=savex2
    		for s1x=s1x to e1x-1
    		
    		if memblock byte(memnum, 12+(s1y*image width(sprite image(sprite1))+s1x)*4)>0 || memblock byte(memnum, 12+1+(s1y*image width(sprite image(sprite1))+s1x)*4)>0 || memblock byte(memnum, 12+2+(s1y*image width(sprite image(sprite1))+s1x)*4)>0
    			if memblock byte(memnum2, 12+(s2y*image width(sprite image(sprite2))+s2x)*4)>0 || memblock byte(memnum2, 12+1+(s2y*image width(sprite image(sprite2))+s2x)*4)>0 || memblock byte(memnum2, 12+2+(s2y*image width(sprite image(sprite2))+s2x)*4)>0
    				collision=1
    			endif
    		endif
    		s2x=s2x+1
    		next s1x
    	s2y=s2y+1
    	next s1y
    	
    	if memblock exist(memnum)=1
    		delete memblock memnum
    	endif
    	if memblock exist(memnum2)=1
    		delete memblock memnum2
    	endif
    	
    	
	endif
endfunction collision

function TownHall()
if keystate(34) = 1 and thallexist = 0
    global thallplace
    thallplace = 1
    endif
    
   if thallplace =  1 
   sprite 2,x vector2(3)-15,y vector2(3)-11,4 
   global thallcollision
   thallcollision = pixelcol(2,1)
    
   if thallcollision > 0 and coordX# >= 4 and mouseclick() = 1
   print "Invalid Location"
   cls
   thallplace = 0
   delete sprite 2
   endif
   
   if mouseclick() = 1 and thallcollision = 0 
   sprite 2,x vector2(3)-15,y vector2(3)-11,4
   thallplace = 0
   experience = experience + 100
   thallx = x vector2(3)-15
   thally = y vector2(3)-11
   thallexist = 1
   open to write 1,"files\private\TownHall.xy"
   write string 1,str$(thallx)
   write string 1,str$(thally)
   close file 1
   
   delete file "files\setup.txt"
   
   open to write 1,"files\setup.txt"
   write string 1,str$(experience)
   write string 1,str$(level)
   write string 1,str$(money)
   write string 1,mayor$
   write string 1,cityname$
   close file 1
   
   endif
   endif
   endfunction

Sprite Collision(Rplot1,Rplot2) = 1

or

Sprite Collision(Rplot1,0) = Rplot 2 

dim CityArray(5,5)

for x=1 to CitySize
   for y=1 to CitySize
      for x2=-1 to 1
         if x+x2>0 and x+x2<=CitySize
            for y2=-1 to 1
               if y+y2>0 and y+y2<=CitySize
                  if CityArray(x+x2,y+y2)=Sprite1
                     if CityArray(x,y)=Sprite2
                        Do whatever bla bla bla...
                     endif
                  endif
               endif
            next y2
         endif
      next x2
   next y
next x