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

load image "media\plot.png",1

load image "media\Property.png",2

load image "media\road.png",3

load image "media\Government.png",4

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

backdrop off

do
cls
hud()
print x vector2(3)
print y vector2(3)
if sprite exist(2) = 1 and sprite exist(1) = 1 then print sprite hit(2,1)
`paste image 1,98,200,1
drawNewGrid()

 `Finding the point along in that coordinate system...
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
    
    sprite 1,200,250,3
    
    sprite 2,x vector2(3),y vector2(3),4 
    
   if sprite hit(2,1) = 1
   print "Collide!"
   endif
    
  
set cursor 0,0
sync
loop

function hud()
print "$"+str$(money)
print "Level: "+str$(level)
print "XP: "+str$(experience)
print coordX#, " : ", coordY#

text 0,400,"[G] Town Hall"

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 snapGridX()
    snapX as float
    snapX = mousex() - oX 
    snapX = floor(snapX / x vector2(4))
    snapX = ( snapX * x vector2(4)) + oX
endfunction snapX

function snapGridY()
    snapY as float
	snapY = mousey() - oY
	snapY = floor( snapY / y vector2(4))
    snapY = ( snapY * y vector2(4) ) + oY
endfunction snapY

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

function SpritePixelCollision(sprite1 as integer, sprite2 as integer, MinAlpha as integer)
   local Sprite1Base as dword
   local Sprite2Base as dword
   local Sprite1Addr as dword
   local Sprite2Addr as dword
   local V as dword

   if sprite collision(sprite1, sprite2) > 0

      make memblock from image 255, sprite image(sprite1)
      make memblock from image 256, sprite image(sprite2)

      Sprite1Base = get memblock ptr(255)
      Sprite2Base = get memblock ptr(256)

      XPos1 = sprite x(sprite1)
      YPos1 = sprite y(sprite1)
      Width1 = *Sprite1Base
      inc Sprite1Base, 4
      Height1 = *Sprite1Base
      inc Sprite1Base, 8

      XPos2 = (sprite x(sprite2) - sprite offset x(sprite2)) + sprite offset x(sprite1)
      YPos2 = (sprite y(sprite2) - sprite offset y(sprite2)) + sprite offset y(sprite1)
      Width2 = *Sprite2Base
      inc Sprite2Base, 4
      Height2 = *Sprite2Base
      inc Sprite2Base, 8

      if XPos2 > XPos
         XStart1 = XPos2 - XPos1
         XStart2 = 0
         XOverlapSize = (Width1 - XStart1) - 1
         if XOverlapSize >= Width2 then XOverlapSize = Width2 - 1
      else
         XStart2 = XPos1 - XPos2
         XStart1 = 0
         XOverlapSize = (Width2 - XStart2) - 1
         if XOverlapSize >= Width1 then XOverlapSize = Width1 - 1
      endif

      if YPos2 > YPos1
         YStart1 = YPos2 - YPos1
         YStart2 = 0
         YOverlapSize = (Height1 - YStart1) - 1
         if YOverlapSize >= Height2 then YOverlapSize = Height2 - 1
      else
         YStart2 = YPos1 - YPos2
         YStart1 = 0
         YOverlapSize = (Height2 - YStart2) - 1
         if YOverlapSize >= Height1 then YOperlapSize = Height1 - 1
      endif

      XStart1 = XStart1 << 2
      XStart2 = XStart2 << 2
      Width1 = Width1 << 2
      Width2 = Width2 << 2
      for YOffset = YOverlapSize to 0 step -1
         Sprite1Addr = Sprite1Base + ((YOffset + YStart1) * Width1) + XStart1
         Sprite2Addr = Sprite2Base + ((YOffset + YStart2) * Width2) + XStart2
         for XOffset = XOverlapSize to 0 step -1
            v = *Sprite1Addr
            if (v >> 24) >= MinAlpha
               v = *Sprite2Addr
               if (v >> 24) >= MinAlpha
                  delete memblock 255
                  delete memblock 256
                  exitfunction 1
               endif
            endif
            inc Sprite1Addr, 4
            inc Sprite2Addr, 4
         next XOffset
      next YOffset

      delete memblock 255
      delete memblock 256
   endif
endFunction 0

set display mode 1280,1024,32:sync on:sync rate 0
load image "player.bmp",1,1
load image "enemy.bmp",2,1
x=20
y=20

do
if upkey()=1 then y=y-1
if downkey()=1 then y=y+1
if leftkey()=1 then x=x-1
if rightkey()=1 then x=x+1


sprite 1,x,y,1
offset sprite 1,-200,-200
sprite 2,150,160,2

sprhit=sprite hit(1,0)

if sprhit>0
ink rgb(255,0,0),0
`comment these lines back in to see collision rectangle
`   bx1=max(x,sprite x(sprhit))
`   by1=max(y,sprite y(sprhit))
`   bx2=min(x+sprite width(1),sprite x(sprhit)+sprite width(sprhit))
`   by2=min(y+sprite height(1),sprite y(sprhit)+sprite height(sprhit))
`   box bx1,by1,bx2,by2
`Sprite 1 is the player sprite, Sprite to is the sprite collided with
   coll=pixelcol(1,sprhit)
endif

text 0,0,"screen fps()="+str$(screen fps())
if coll>0 then text 0,15,"Collision"
sync
loop

function pixelcol(sp1,sp2)

`load sprite images into memory

make memblock from image 1,sprite image(sp1)
make memblock from image 2,sprite image(sp2)

`store image sizes
sw1=memblock dword(1,0)
sh1=memblock dword(1,4)
sw2=memblock dword(2,0)
sh2=memblock dword(2,4)

`store image positions
x1=sprite x(sp1)-sprite offset x(sp1)
y1=sprite y(sp1)-sprite offset y(sp1)
x2=sprite x(sp2)-sprite offset x(sp2)
y2=sprite y(sp2)-sprite offset y(sp2)

`calculate collision rectangle
rx1=max(x1,x2)
ry1=max(y1,y2)
rx2=min(x1+sw1-1,x2+sw2-1)
ry2=min(y1+sh1-1,y2+sh2-1)

`calculate area of first sprite that has overlapped second
sx1=rx1-x1
sy1=ry1-y1
ex1=rx2-x1
ey1=ry2-y1
`calculate area of second sprite that has overlapped first
sx2=rx1-x2
sy2=ry1-y2
ex2=rx2-x2
ey2=ry2-y2

`check through both sprites to see if any pixels collide
for row=0 to ey1-sy1
   for col=0 to ex1-sx1
      bit1=memblock dword(1,12+((row+sy1)*(sw1*4))+((col+sx1)*4))
      bit2=memblock dword(2,12+((row+sy2)*(sw2*4))+((col+sx2)*4))
` AND bits together to see if a collision has occured
      if bit1&&bit2
`Collision has occured
         collision=1
`Clean up memblocks and return
         delete memblock 1
         delete memblock 2
         exitfunction 1
      endif
   next col
next row

`no collision clean up memblocks and return
delete memblock 1
delete memblock 2

endfunction 0

function max(v1,v2)
`Calculate the larger of 2 numbers
if v1>v2
   exitfunction v1
else
   exitfunction v2
endif

endfunction v1

function min(v1,v2)
`calculate the smaller of 2 numbers
if v1<v2
   exitfunction v1
else
   exitfunction v2
endif

endfunction v1