Sorry your browser is not supported!

REM ** Doom3 style screen interaction TEST.

set display mode 1024,768,32
sync on : sync rate 0
autocam off
hide mouse

REM - Create a bitmap and image for the 3D "screen".
create bitmap 1,64,64
set current bitmap 1
get image 1,0,0,64,64
set current bitmap 0

REM - Create the actual 3D "screen" plane object.
make object plane 1,6.4,6.4
position object 1,0,0,0
texture object 1,1

REM - Position the camera so that we can see.
position camera 0,0,-10
point camera 0,0,0

REM - A couple of floats to keep track of camera rotation.
camrotx as float
camroty as float
camrotx = 0.0
camroty = 0.0

REM - Center of the screen.
screenx# = screen width()/2
screeny# = screen height()/2

REM - A bool to keep track if we have a valid UV-Coord set.
global gUVDataValid as boolean
gUVDataValid = 0

REM - MAIN LOOP
do
    REM - Control the camera using the mouse.
    mmx# = mousemovex()
    mmy# = mousemovey()
    inc camroty, mmx# * 0.1
    inc camrotx, mmy# * 0.1
    camroty = wrapvalue(camroty)
    camrotx = wrapvalue(camrotx)
    yrotate camera camroty
    xrotate camera camrotx

    REM - This is the "tricky" part.
    REM - First we make sure we are actually pointing at the screen by using pick object().
    REM - Then we get the vertexdata position x and y for the maximum x/y values.
    REM - x(1) gives us the maximum X pos, and y(2) gives us maximum Y pos.
    REM - Then calculate the UV-Coords by getting the actual x/y coords from our pick object(),
    REM - and we divide those by the maximum x/y coords which will put us in -1 to 1 range.
    REM - So we add 1.0 to the coords, and divide by 2 (muliply by 0.5 in this case) to get in
    REM - 0 to 1 range.
    if pick object(screenx#, screeny#,1,1)
        REM - Calculate the UV-coords.
        lock vertexdata for limb 1,0
        x# = get vertexdata position x(1)
        y# = get vertexdata position y(2)
        unlock vertexdata
        u# = (get pick vector x() / x# + 1.0) * 0.5
        v# = (get pick vector y() / y# + 1.0) * 0.5
        xp = int(64.0 * u#)     REM - The actual coords on the texture image.
        yp = int(64.0 * v#)
        gUVDataValid = 1
    else
        REM - NULLify values if outside "screen" object.
        x# = 0.0
        y# = 0.0
        u# = 0.0
        v# = 0.0
        xp = 0
        yp = 0
        gUVDataValid = 0
    endif
    
    REM - Draw a dot on the "screen" when clicking left mouse button.
    if mouseclick() = 1 and gUVDataValid = 1 then drawdot(xp, yp)
    
    REM - Show Coordinate info.
    ink rgb(255,255,255),0
    text 0, 0, "Upper Right X(3D): " + str$(x#)
    text 0, 15, "Lower Left Y(3D) : " + str$(y#)
    text 0, 30, "U-Coord: " + str$(u#)
    text 0, 45, "V-Coord: " + str$(v#)
    text 0, 60, "Texture X: " + str$(xp)
    text 0, 75, "Texture Y: " + str$(yp)
    dot screenx#, screeny#  REM - Show a small "crosshair" dot.
    sync
loop

REM - Quick function to draw a dot on the "screen".
function drawdot(xp as integer, yp as integer)
    set current bitmap 1
    dot xp, yp, rgb(255,255,255)
    get image 1,0,0,64,64
    texture object 1,1
    set current bitmap 0
endfunction

set display mode 1024, 768, 32 , 1
sync on
autocam off
hide mouse

type Vector2
  x as float
  y as float
endtype

type Plane
  ObjectNumber as integer
  BitmapNumber as integer
  BitmapWidth as integer
  BitmapHeight as integer
  ImageNumber as integer
endtype

`Setup the plane and its bitmap and texture
global MainPlane as Plane
make object plane 1, 10, 10, 1
MainPlane.ObjectNumber = 1
MainPlane.BitmapNumber = 1
MainPlane.ImageNumber = 1
MainPlane.BitmapWidth = 64
MainPlane.BitmapHeight = 64
create bitmap MainPlane.BitmapNumber, MainPlane.BitmapWidth, MainPlane.BitmapHeight
set current bitmap MainPlane.BitmapNumber
lock pixels
ink 0, 0
box 0, 0, MainPlane.BitmapWidth, MainPlane.BitmapHeight
ink 0xFFFFFFFF, 0
unlock pixels
get image MainPlane.ImageNumber, 0, 0, MainPlane.BitmapWidth, MainPlane.BitmapHeight
set current bitmap 0
texture object MainPlane.ObjectNumber, MainPlane.ImageNumber

`This will hold the UV coordinates of the mouse on the plane
global UVCoord as Vector2

position camera 0, -7, 2, -7.5
point camera 0, 0, 2, 0

do
  set cursor 0, 0
  print "FPS: "; screen fps()
  
  CalculateUVCoordsFromCenter()
  DrawDotOnBitmap()
  
  dot screen width() / 2.0, screen height() / 2.0
  
  print "U: "; UVCoord.x
  print "V: "; UVCoord.y
  
  `Mouse Look
  xrotate camera 0, wrapvalue(camera angle x(0) + mousemovey() / 5.0)
  yrotate camera 0, wrapvalue(camera angle y(0) + mousemovex() / 5.0)
  
  `WASD Strafe
  if keystate(17) then position camera 0, camera position x(0) + 0.25 * sin(camera angle y(0)), camera position y(0), camera position z(0) + 0.25 * cos(camera angle y(0))
  if keystate(31) then position camera 0, camera position x(0) - 0.25 * sin(camera angle y(0)), camera position y(0), camera position z(0) - 0.25 * cos(camera angle y(0))
  if keystate(30) then position camera 0, camera position x(0) + 0.25 * sin(camera angle y(0) - 90), camera position y(0), camera position z(0) + 0.25 * cos(camera angle y(0) - 90)
  if keystate(32) then position camera 0, camera position x(0) + 0.25 * sin(camera angle y(0) + 90), camera position y(0), camera position z(0) + 0.25 * cos(camera angle y(0) + 90)
  
  turn object left MainPlane.ObjectNumber, 0.25
  pitch object down MainPlane.ObjectNumber, 0.25
  roll object left MainPlane.ObjectNumber, 0.25
  
  sync
loop

end

`Calculates the UV Coordinates on the plane that are under the center of the screen
function CalculateUVCoordsFromCenter()
  PlaneOrigin = 1
  PlaneNormal = 2
  WorldMatrix = 3
  InverseWorldMatrix = 4
  TempMatrix = 5
  RayOrigin = 6
  RayVelocity = 7
  TempVector = 8
  
  a = make vector4(PlaneOrigin)
  a = make vector4(PlaneNormal)
  a = make matrix4(WorldMatrix)
  a = make matrix4(InverseWorldMatrix)
  a = make matrix4(ProjectionMatrix)
  a = make matrix4(TempMatrix)
  a = make vector4(RayOrigin)
  a = make vector4(RayVelocity)
  a = make vector4(TempVector)
  
  `DBPro only accepts radians when calculating rotation matrices
  ToRadians as float : ToRadians = 3.141592654 / 180.0
  
  `Calculate the World matrix for the plane object.  Alas, there seems to be no easier way...
  Object = MainPlane.ObjectNumber
  `Get the rotation matrix
  rotate x matrix4 WorldMatrix, object angle x(Object) * ToRadians
  rotate y matrix4 TempMatrix, object angle y(Object) * ToRadians
  multiply matrix4 WorldMatrix, WorldMatrix, TempMatrix
  rotate z matrix4 TempMatrix, object angle z(Object) * ToRadians
  multiply matrix4 WorldMatrix, WorldMatrix, TempMatrix
  `Append the scale matrix
  scale matrix4 TempMatrix, limb scale x(Object, 0) / 100.0, limb scale y(Object, 0) / 100.0, limb scale z(Object, 0) / 100.0
  multiply matrix4 WorldMatrix, WorldMatrix, TempMatrix
  `And finally, append the translation matrix
  translate matrix4 TempMatrix, object position x(Object), object position y(Object), object position z(Object)
  multiply matrix4 WorldMatrix, WorldMatrix, TempMatrix
  
  `Get the inverse of the World matrix.  We'll use this to take the point of our mouse backwards into Object Space.
  a = inverse matrix4(InverseWorldMatrix, WorldMatrix)
  
  `Set the vector to the plane's normal in Object Space
  set vector4 PlaneNormal, 0, 0, -1, 1
  `Get the plane's normal in World Space
  transform vector4 PlaneNormal, PlaneNormal, WorldMatrix
  
  `Set the vector to the plane's origin (or any point that is on the plane; the origin's a pretty safe bet :P) in Object Space
  set vector4 PlaneOrigin, 0, 0, 0, 1
  `Bring it into World Space
  transform vector4 PlaneOrigin, PlaneOrigin, WorldMatrix
  
  `In the next section, we'll be casting a ray from the camera along its line of sight.
  `We'll use the intersection point between this ray and the plane as the point of our mouse cursor.
  
  `First get the ray's origin (camera position) and the ray's velocity (ray's "end point" minus the ray's origin).
  set vector4 RayOrigin, camera position x(0), camera position y(0), camera position z(0), 1
  move camera 0, 1000
  set vector4 TempVector, camera position x(0), camera position y(0), camera position z(0), 1
  move camera 0, -1000
  subtract vector4 RayVelocity, TempVector, RayOrigin
  
  `t is the "time" (from 0 to 1) along the ray at which the ray intersects the plane. Below, "." means dot product.
  `t = (PlaneOrigin - RayOrigin) . PlaneNormal
  `    ---------------------------------------
  `    RayVelocity . PlaneNormal
  subtract vector4 TempVector, PlaneOrigin, RayOrigin
  Dot1 as float : Dot1 = x vector4(TempVector) * x vector4(PlaneNormal) + y vector4(TempVector) * y vector4(PlaneNormal) + z vector4(TempVector) * z vector4(PlaneNormal)
  Dot2 as float : Dot2 = x vector4(RayVelocity) * x vector4(PlaneNormal) + y vector4(RayVelocity) * y vector4(PlaneNormal) + z vector4(RayVelocity) * z vector4(PlaneNormal)
  t as float : t = Dot1 / Dot2
  
  `Now to find the actual coordinates of the intersection point, we scale RayVelocity by t and then add
  `it to the ray's origin: IntersectionPoint = t * RayVelocity + RayOrigin
  scale vector4 TempVector, RayVelocity, t
  add vector4 TempVector, TempVector, RayOrigin
  
  `Now we bring the intersection point in World Space back into Object Space
  transform vector4 TempVector, TempVector, InverseWorldMatrix
  
  `Get the UV coordinates by taking the intersection point and scaling/shifting it down to the range 0 - 1.
  UVCoord.x = x vector4(TempVector) / object size x(Object) + 0.5
  UVCoord.y = -y vector4(TempVector) / object size y(Object) + 0.5
  
  a = make vector4(TempVector)
  a = make vector4(RayVelocity)
  a = make vector4(RayOrigin)
  a = delete matrix4(TempMatrix)
  a = delete matrix4(InverseWorldMatrix)
  a = delete matrix4(WorldMatrix)
  a = delete vector4(PlaneNormal)
  a = delete vector4(PlaneOrigin)
endfunction

function DrawDotOnBitmap()
  if UVCoord.x >= 0.0 and UVCoord.x < 1.0 and UVCoord.y >= 0.0 and UVCoord.y < 1.0
    set current bitmap MainPlane.BitmapNumber
    dot UVCoord.x * MainPlane.BitmapWidth, UVCoord.y * MainPlane.BitmapHeight
    get image MainPlane.ImageNumber, 0, 0, MainPlane.BitmapWidth, MainPlane.BitmapHeight
    set current bitmap 0
  endif
endfunction

set display mode 1024,768,32
sync on : sync rate 60
autocam off
hide mouse

REM - Create a bitmap and image for the 3D "screen".
create bitmap 1,64,64
get image 1,0,0,64,64
set current bitmap 0

REM - Create the actual 3D "screen" plane object.
make object box 1,6.4,6.4,0
position object 1,0,0,0
texture object 1,1
set object filter 1,0
set object cull 1,0
set object light 1,0
SC_SetupObject 1,0,2

REM - Position the camera so that we can see.
position camera 0,0,-10
point camera 0,0,0

REM - A couple of floats to keep track of camera rotation.
camrotx as float
camroty as float
camrotx = 0.0
camroty = 0.0
camx as float
camy as float
camz as float

REM - Center of the screen.
screenx# = screen width()/2
screeny# = screen height()/2

REM - A bool to keep track if we have a valid UV-Coord set.
global gUVDataValid as boolean
gUVDataValid = 0

REM - MAIN LOOP
do
    REM - Control the camera using the mouse.
    mmx# = mousemovex()
    mmy# = mousemovey()
    inc camroty, mmx# * 0.1
    inc camrotx, mmy# * 0.1
    camroty = wrapvalue(camroty)
    camrotx = wrapvalue(camrotx)
    yrotate camera camroty
    xrotate camera camrotx
    
    // rotate object
    rotate object 1,0,object angle y(1)+0.1,0
    SC_UpdateObject 1     

    if mouseclick() > 0
    
		oldx#=camera position x()
		oldy#=camera position y()
		oldz#=camera position z()
		move camera 20
		x#=camera position x()
		y#=camera position y()
		z#=camera position z()
		move camera -20
		
		col = SC_rayCast(0,oldx#,oldy#,oldz#,x#,y#,z#,0)
        
        if col > 0
        
			newx#=SC_getStaticCollisionX()-object position x(1)
			newy#=SC_getStaticCollisionY()-object position y(1)
			newz#=SC_getStaticCollisionZ()-object position z(1)
			
			// yeah... this could be difficult to work out for X/Y/Z...
            u# = newx#      * -cos(object angle y(1))
            u# = u# + newz# * sin(object angle y(1))
            v# = -newy#
            u# = u# / 6.4 + 0.5     // u# / object size x
            v# = v# / 6.4 + 0.5     // v# / object size y
            xp = int(u# * 64.0)
            yp = int(v# * 64.0)
            
            gUVDataValid = 1
        else
            u# = 0.0
            v# = 0.0
            xp = 0
            yp = 0
            gUVDataValid = 0
        endif        
    endif
    
    REM - Draw a dot on the "screen" when clicking left mouse button.
    if mouseclick() = 1 and gUVDataValid = 1 then drawdot(xp, yp)
    
    REM - Show Coordinate info.
    ink rgb(255,255,255),0
    text 0, 30, "U-Coord: " + str$(u#)
    text 0, 45, "V-Coord: " + str$(v#)
    text 0, 60, "Texture X: " + str$(xp)
    text 0, 75, "Texture Y: " + str$(yp)
    
    dot screenx#, screeny#  REM - Show a small "crosshair" dot.
    sync
loop

REM - Quick function to draw a dot on the "screen".
function drawdot(xp as integer, yp as integer)
    set current bitmap 1
    dot xp, yp, rgb(255,255,255)
    get image 1,0,0,64,64
    texture object 1,1
    set current bitmap 0
endfunction

delete memblock 1 

scale matrix4 TempMatrix, object scale x(Object) / 100.0, object scale y(Object) / 100.0, object scale z(Object) / 100.0

scale matrix4 TempMatrix, object scale x(Object) / 100.0, object scale y(Object) / 100.0, object scale z(Object) / 100.0

scale matrix4 TempMatrix,1,1,1

REM ** Plane intersect (line intersect)

set display mode 1024,768,32
sync on : sync rate 0

type vector2
    x as float
    y as float
endtype

RayOrigin as vector2
RayEnd as vector2
PointOnPlane as vector2
PlaneNormal as vector2
IPoint as vector2
Temp as vector2

t as float

REM - Create a start point and an end point for the line.
RayOrigin.x = 100.0
RayOrigin.y = 100.0
RayEnd.x = 500.0
RayEnd.y = 500.0

REM - Define any point on the plane.
PointOnPlane.x = 300.0
PointOnPlane.y = 300.0

REM - Define the plane's normal vector.
PlaneNormal.x = -0.5
PlaneNormal.y = 1.0

REM - t = ((PointOnPlane - RayOrigin) . PlaneNormal) / (RayEnd . PlaneNormal)

REM - Temp = PointOnPlane - RayOrigin ( Subtract the startpos from the point on the plane)
Temp.x = PointOnPlane.x - RayOrigin.x
Temp.y = PointOnPlane.y - RayOrigin.y

REM - IPoint = Temp . PlaneNormal
IPoint.x = Temp.x * PlaneNormal.x
IPoint.y = Temp.y * PlaneNormal.y

REM - Temp = RayEnd . PlaneNormal
Temp.x = RayEnd.x * PlaneNormal.x
Temp.y = RayEnd.y * PlaneNormal.y

REM - t = IPoint / Temp
t = (IPoint.x + IPoint.y) / (Temp.x + Temp.y)

REM - IPoint = RayEnd scaled by t
IPoint.x = RayEnd.x * t
IPoint.y = RayEnd.y * t

REM - Add the startpos back into the resulting point.
IPoint.x = IPoint.x + RayOrigin.x
IPoint.y = IPoint.y + RayOrigin.y

REM - MAIN LOOP
do
    for i=-100 to 100
        REM - Draw the plane a little bit in each direction, so we can see it.
        dot PointOnPlane.x+i*PlaneNormal.x, PointOnPlane.y+i*PlaneNormal.y, rgb(255,255,0)
    next i
    ink rgb(0,255,0),0
    circle RayOrigin.x, RayOrigin.y, 5
    ink rgb(255,0,0),0
    circle RayEnd.x, RayEnd.y, 5
    ink rgb(0,0,255),0
    line RayOrigin.x, RayOrigin.y, RayEnd.x, RayEnd.y
    ink rgb(255,255,255),0
    circle IPoint.x, IPoint.y, 5
    sync
loop

REM ** Plane intersect (line intersect)

set display mode 1024,768,32
sync on : sync rate 0

type vector2
    x as float
    y as float
endtype

RayOrigin as vector2
RayEnd as vector2
RayVelocity as vector2
PointOnPlane as vector2
PlaneNormal as vector2
IPoint as vector2
Temp as vector2

t as float

REM - Create a start point and an end point for the line.
RayOrigin.x = 110.0
RayOrigin.y = 100.0
RayEnd.x = 500.0
RayEnd.y = 500.0
RayVelocity.x = RayEnd.x - RayOrigin.x
RayVelocity.y = RayEnd.y - RayOrigin.y

REM - Define any point on the plane.
PointOnPlane.x = 300.0
PointOnPlane.y = 300.0

REM - Define the plane's normal vector.
PlaneNormal.x = -0.5
PlaneNormal.y = 1.0

REM - t = ((PointOnPlane - RayOrigin) . PlaneNormal) / (RayVelocity . PlaneNormal)

REM - Temp = PointOnPlane - RayOrigin ( Subtract the startpos from the point on the plane)
Temp.x = PointOnPlane.x - RayOrigin.x
Temp.y = PointOnPlane.y - RayOrigin.y

REM - IPoint = Temp . PlaneNormal
IPoint.x = Temp.x * PlaneNormal.x
IPoint.y = Temp.y * PlaneNormal.y

REM - Temp = RayVelocity . PlaneNormal
Temp.x = RayVelocity.x * PlaneNormal.x
Temp.y = RayVelocity.y * PlaneNormal.y

REM - t = IPoint / Temp
t = (IPoint.x + IPoint.y) / (Temp.x + Temp.y)

REM - IPoint = RayEnd scaled by t
IPoint.x = RayVelocity.x * t
IPoint.y = RayVelocity.y * t

REM - Add the startpos back into the resulting point.
IPoint.x = IPoint.x + RayOrigin.x
IPoint.y = IPoint.y + RayOrigin.y

REM - MAIN LOOP
do
    for i=-100 to 100
        REM - Draw the plane a little bit in each direction, so we can see it.
        dot PointOnPlane.x+i*PlaneNormal.x, PointOnPlane.y+i*PlaneNormal.y, rgb(255,255,0)
    next i
    ink rgb(0,255,0),0
    circle RayOrigin.x, RayOrigin.y, 5
    ink rgb(255,0,0),0
    circle RayEnd.x, RayEnd.y, 5
    ink rgb(0,0,255),0
    line RayOrigin.x, RayOrigin.y, RayEnd.x, RayEnd.y
    ink rgb(255,255,255),0
    circle IPoint.x, IPoint.y, 5
    sync
loop

    for i=-100 to 100
        REM - Draw the plane a little bit in each direction, so we can see it.
        dot PointOnPlane.x+i*PlaneNormal.x, PointOnPlane.y+i*PlaneNormal.y, rgb(255,255,0)
    next i

    ink rgb(255, 255, 0), 0
    `Do a quick rotation of 90* (Simplified. Full rotation is in the comments):
    Temp.x = 100 * -PlaneNormal.y `(cos(90) * PlaneNormal.x - sin(90) * PlaneNormal.y)
    Temp.y = 100 * PlaneNormal.x  `(sin(90) * PlaneNormal.x + cos(90) * PlaneNormal.y)
    `Draw the plane
    line PointOnPlane.x, PointOnPlane.y, PointOnPlane.x + Temp.x, PointOnPlane.y + Temp.y
    line PointOnPlane.x, PointOnPlane.y, PointOnPlane.x - Temp.x, PointOnPlane.y - Temp.y
    `Draw the normal
    line PointOnPlane.x, PointOnPlane.y, PointOnPlane.x + 20 * PlaneNormal.x, PointOnPlane.y + 20 * PointNormal.y

`*** this is for the selling texture ***
function textureBuyer1(Gold,Object,Object_price,Rate,Mx#,My#,Items$,BuyorSell$,hilow1$)
`*** this is for chaning the bit map ***
if image exist(1)>0 then delete image 1
create bitmap 2,640,480
copy bitmap 1,2
set current bitmap 2

`*** left bottom button ***
if mouseclick()=1 and Mx# > 75 and Mx# < 145 and My# > 415 and My# < 450
copy bitmap 4,0,0,270,183,2,75,415,147,450
`*****************
ink rgb(255,255,255),0
set cursor 87,415 : print "Buy"
Swich_On = 1
else
`*** this is what the swich looks like normaly ***
copy bitmap 3,0,0,270,183,2,75,415,147,450
`*****************
ink rgb(0,125,255),0
set cursor 87,415 : print "Buy"
endif

`*** right bottom button ***
if mouseclick()=1 and Mx# > 165 and Mx# < 245 and My# > 415 and My# < 450
copy bitmap 4,0,0,270,183,2,175,415,247,450
`*****************
ink rgb(255,255,255),0
set cursor 179,417 : print "Sell"
Swich_On = 1
else
`*** this is what the swich looks like normaly ***
copy bitmap 3,0,0,270,183,2,175,415,247,450
`*****************
ink rgb(0,125,255),0
set cursor 179,417 : print "Sell"
endif

if mouseclick()=0 then Swich_On = 0

`*** right top button ***
if mouseclick()=1 and Mx# > 175 and Mx# < 247 and My# > 365 and My# < 397
copy bitmap 4,0,0,270,183,2,175,363,247,397
else
copy bitmap 3,0,0,270,183,2,175,363,247,397
endif

`*** left top button ***
if mouseclick()=1 and Mx# > 75 and Mx# < 147 and My# > 365 and My# < 397
copy bitmap 4,0,0,270,183,2,75,363,147,397
else
copy bitmap 3,0,0,270,183,2,75,363,147,397
endif

`*** the big button ***
if mouseclick()=1 and Mx# > 454 and Mx# < 572 and My# > 263 and My# < 314
copy bitmap 4,0,0,270,183,2,454,263,572,314
ink rgb(255,255,255),0
set cursor 467,272 : print "Except"
else
copy bitmap 3,0,0,270,183,2,454,263,572,314
ink rgb(0,125,255),0
set cursor 467,272 : print "Except"
endif

`*** this what is info printed on to the object ***
ink rgb(0,125,255),0
set cursor 65,25 : print BuyorSell$
set cursor 299,77 : print "Raetings  ",hilow1$,Rate
set cursor 299,140 : print "Holdeding ",Object
set cursor 65,325 : print Items$
set cursor 300,350 : print "Total  ",Object_price
set cursor 300,415 : print "Gold   ",Gold

`*** the mouse box ***
ink rgb(0,0,255),0
box Mx#,My#,Mx#+7,My#+7

get image 1,0,0,640,480,1

set current bitmap 0

endfunction Swich_On


`*** this is the start of the gosub ***
Shopitup:

`*** cler the screen ***
x=x+1
if x = 9 then po = 0
if x >= 10 then x=0
``if x = 9 then cls

`*** add more gold ***
if returnkey()=1 then Gold=Gold+1

`*** swich betwene buy sell ***
`Swich_On = 1
`if shiftkey()=1 and buysell = 0 then buysell = 1
if mouseclick()=1 and buysell = 0 then buysell = 1

`*** Sell objects ***
if mouseclick()=1 and Mx# > 165 and Mx# < 245 and My# > 415 and My# < 450
`if buysell = 1
   BuyorSell$ = "Selling"
   bstime=bstime+1
   if bstime >= 100 then bstime = 100
   if mouseclick()=1 and Mx# > 165 and Mx# < 245 and My# > 415 and My# < 450 and bstime = 100 then buysell = 2
`   if shiftkey()=1 and bstime = 100 then buysell = 2
endif

`*** buy objects ***
if mouseclick()=1  and Mx# > 75 and Mx# < 145 and My# > 415 and My# < 450
`if buysell = 2
   BuyorSell$ = "Buying"
   bstime = 0
   bstime1=bstime1+1
   if bstime1 >= 100 then bstime1 = 100
   if mouseclick()=1  and Mx# > 75 and Mx# < 145 and My# > 415 and My# < 450 and bstime1 = 100 then buysell = 0
`   if shiftkey()=1 and bstime1 = 100 then buysell = 0
endif

`*** re-set buy sell timer ***
if buysell = 0 then bstime1 = 0

`*** use the items up ***
if controlkey()=1 and useitem = 0 then useitem = 1
select useitem

   case 1
   `*** don't use item
   if EnterObject = 0
      useitem = 0
      uitime = 0
   endif

   `*** use item poshens ***
   if EnterObject = 1 and po = 0
      po = 1
      uitime=uitime+1
      if uitime >= 50 then uitime = 50
      if uitime = 50 then  Poshen = Poshen - 1 :useitem = 0 :`controlkey()=1 and
      if Poshen <= 0 then Poshen = 0
   endif

   `*** end of case ***
   endcase

   case default
      useitem = 0
   endcase

endselect

`*** select Item Number ***
if mouseclick()=1 and Mx# > 175 and Mx# < 247 and My# > 365 and My# < 395 and selectobject1 = 0 then selectobject1 = 1
if selectobject1 = 1
itemseltimer=itemseltimer+1
if itemseltimer >= 5 then itemseltimer = 5
if itemseltimer = 5 then EnterObject=EnterObject+1 :selectobject1 = 0
endif

if mouseclick()=1 and Mx# > 75 and Mx# < 150 and My# > 365 and My# < 395 and selectobject1 = 0 then selectobject1 = 2
if selectobject1 = 2
itemseltimer1=itemseltimer1+1
if itemseltimer1 >= 5 then itemseltimer1 = 5
if itemseltimer1 = 5 then EnterObject=EnterObject-1 :selectobject1 = 0
endif

`*** re-set for the item select ***
if EnterObject <= 0 then EnterObject = 0
if selectobject1 = 0 then itemseltimer = 0 :itemseltimer1 = 0

`*** biying things ***
select EnterObject
`*** start of select ***

   `*** object poshen ***
   case 1
      `*** this is for what item it is and what price ***
      Items$ = "Helth Poshen"
      Object = Poshen
      Object_price = 25
      hilow1$ = "+"
      Rate = 25
      `if spacekey()=1 and po = 0
      if mouseclick()=1 and Mx# > 454 and Mx# < 572 and My# > 263 and My# < 314 and po = 0
         po = 1
         `*** this is for buying items ***
         if Gold >= 25 and BuyorSell$ = "Buying"
            `Object_price = 25
            Gold = Gold - 25 : Poshen = Poshen + 1
            if Poshen <= 0 then Poshen = 0
         endif
         `*** this is for selling itmes ***
         if BuyorSell$ = "Selling" and Poshen > 0
            `Object_price = 25
            Gold = Gold + 25 : Poshen = Poshen - 1
            if Poshen <= 0 then Poshen = 0
            `Object = Poshen
         endif
      endif
   endcase

   `*** object sword ***
   case 2
      `*** this is for what item it is and what price ***
      Items$ = "Basic Sword"
      Object = Sword
      Object_price = 15
      hilow1$ = "+"
      Rate = 5
      `if spacekey()=1 and po = 0
      if mouseclick()=1 and Mx# > 454 and Mx# < 572 and My# > 263 and My# < 314 and po = 0
         po = 1
         `*** this is for buying items ***
         if Gold >= 15 and BuyorSell$ = "Buying"
            `Object_price = 15
            Gold = Gold - 15 : Sword = Sword + 1
            if Sword <= 0 then Sword = 0
         endif
         `*** this is for selling itmes ***
         if BuyorSell$ = "Selling" and Sword > 0
            `Object_price = 25
            Gold = Gold + 15 : Sword = Sword - 1
            if Sword <= 0 then Sword = 0
            `Object = Poshen
         endif
      endif
   endcase

   `*** object sword ***
   case 3
      `*** this is for what item it is and what price ***
      Items$ = "Gards Sword"
      Object = Sword1
      Object_price = 25
      hilow1$ = "+"
      Rate = 10
      `if spacekey()=1 and po = 0
      if mouseclick()=1 and Mx# > 454 and Mx# < 572 and My# > 263 and My# < 314 and po = 0
         po = 1
         `*** this is for buying items ***
         if Gold >= 25 and BuyorSell$ = "Buying"
            `Object_price = 15
            Gold = Gold - 25 : Sword1 = Sword1 + 1
            if Sword1 <= 0 then Sword1 = 0
         endif
         `*** this is for selling itmes ***
         if BuyorSell$ = "Selling" and Sword1 > 0
            `Object_price = 25
            Gold = Gold + 25 : Sword1 = Sword1 - 1
            if Sword1 <= 0 then Sword1 = 0
            `Object = Poshen
         endif
      endif
   endcase

   `*** there are no objects in the list ***
   case default
      Items$ = "No items selected"
      Object_price = 0
      Object = 0
      hilow1$ = ""
      Rate = 0
   endcase

endselect
`*** end select ***

return

scale matrix4 TempMatrix, object scale x(Object) / 100.0, object scale y(Object) / 100.0, object scale z(Object) / 100.0