Sorry your browser is not supported!

 if SOCKET POLL READ( Socket ) > 0
      Bytes = RECV SOCKET MEMBLOCK( Socket, MEMBLOCK_NET_UDP_DATA )
      RemoteIP = SOCKET REMOTE IP( Socket )
      RemotePort = SOCKET REMOTE PORT( Socket )
      if Bytes > 0   
         Bytes = SEND SOCKET MEMBLOCK TO( Socket, MEMBLOCK_NET_UDP_DATA, RemoteIP, RemotePort)
      endif
   endif

 if SOCKET POLL READ( Socket ) > 0
      RemoteIP = SOCKET REMOTE IP( Socket )
      RemotePort = SOCKET REMOTE PORT( Socket )
      Bytes = RECV SOCKET MEMBLOCK( Socket, MEMBLOCK_NET_UDP_DATA )
      if Bytes > 0   
         Bytes = SEND SOCKET MEMBLOCK TO( Socket, MEMBLOCK_NET_UDP_DATA, RemoteIP, RemotePort)
      endif
   endif

#constant    D3DTOP_DISABLE = 1
#constant    D3DTOP_SELECTARG1 = 2
#constant    D3DTOP_SELECTARG2 = 3
#constant    D3DTOP_MODULATE = 4
#constant    D3DTOP_MODULATE2X = 5
#constant    D3DTOP_MODULATE4X = 6
#constant    D3DTOP_ADD = 7
#constant    D3DTOP_ADDSIGNED = 8
#constant    D3DTOP_ADDSIGNED2X = 9
#constant    D3DTOP_SUBTRACT = 10
#constant    D3DTOP_ADDSMOOTH = 11
#constant    D3DTOP_BLENDDIFFUSEALPHA = 12
#constant    D3DTOP_BLENDTEXTUREALPHA = 13
#constant    D3DTOP_BLENDFACTORALPHA = 14
#constant    D3DTOP_BLENDTEXTUREALPHAPM = 15
#constant    D3DTOP_BLENDCURRENTALPHA = 16
#constant    D3DTOP_PREMODULATE = 17
#constant    D3DTOP_MODULATEALPHA_ADDCOLOR = 18
#constant    D3DTOP_MODULATECOLOR_ADDALPHA = 19
#constant    D3DTOP_MODULATEINVALPHA_ADDCOLOR = 20
#constant    D3DTOP_MODULATEINVCOLOR_ADDALPHA = 21
#constant    D3DTOP_BUMPENVMAP = 22
#constant    D3DTOP_BUMPENVMAPLUMINANCE = 23
#constant    D3DTOP_DOTPRODUCT3 = 24
#constant    D3DTOP_MULTIPLYADD = 25
#constant    D3DTOP_LERP = 26

#constant    D3DTA_DIFFUSE = 0
#constant    D3DTA_CURRENT = 1
#constant    D3DTA_TEXTURE = 2
#constant    D3DTA_TFACTOR = 3
#constant    D3DTA_SPECULAR = 4
#constant    D3DTA_TEMP = 5
#constant    D3DTA_CONSTANT = 6
#constant    D3DTA_COMPLEMENT = 16
#constant    D3DTA_ALPHAREPLICATE = 32

#constant    DBPTM_UVCURRENT = 0
#constant    DBPTM_SPHEREMAP = 1
#constant    DBPTM_CUBEMAP = 2
#constant    DBPTM_UVSTAGE0 = 3

sync on
sync rate 0
sync sleep 1
autocam off

load image "wall.png", 1
load image "env0.png", 2

make object plain 1, 9.0, 9.0
xrotate object 1, -90.0
position object 1, -10.0, 0.0, 0.0
texture limb 1, 0, 0, 1

make object plain 2, 9.0, 9.0
xrotate object 2, -90.0
position object 2, 0.0, 0.0, 0.0
texture limb 2, 0, 0, 2

make object plain 3, 9.0, 9.0
xrotate object 3, -90.0
position object 3, 10.0, 0.0, 0.0
texture limb 3, 0, 0, 1
texture limb 3, 0, 1, 2
set limb texture blend mode 3, 0, 0, D3DTOP_MODULATE, D3DTA_TEXTURE, D3DTA_DIFFUSE     ` Blend the texture with the interpolated vertex colour
set limb texture blend mode 3, 0, 1, D3DTOP_MODULATE, D3DTA_TEXTURE, D3DTA_CURRENT     ` Blend the texture with the current cumulative colour
set limb texture coord mode 3, 0, 1, DBPTM_UVSTAGE0

position camera 0.0, 30.0, 0.0
point camera 0.0, 0.0, 0.0

repeat
   set cursor 0, 0

   for i = 0 to min(get limb count(3), 10)
      print get limb texture count(3, i); "";
      for j = 0 to get limb texture count(3, i)-1
         print "  ("; get limb texture blend mode(3, i, j);
         print "/"; get limb texture blend arg1(3, i, j);
         print "/"; get limb texture blend arg2(3, i, j);
         print "/"; get limb texture coord mode(3, i, j);
         print ")";
      next
      print ""
   next

   sync
until spacekey()
end

` Example of all the standard array manipulation commands:
` Sorting, reversing, plus a function that can display the
`    contents of any type of array except for UDT

x as dword

dim b(10) as integer

dim a(10) as string
for i=0 to 10
   a(i)=str$( rnd(900000) + 100000)
next i

set array index a(),0
print "Array Base Address="; hex$( get arrayptr( a() ) )
print "        Array Size="; get array size( a() )
print "       Array Count="; array count( a() )
print "       Type Number="; get array type( a() )
print "     Current Index="; get array index( a() )
print
wait key

DisplayArray( get arrayptr( a() ) )
wait key

cls
print "Sort array"
sort array a()
DisplayArray( get arrayptr( a() ) )
wait key

cls
print "Clear array"
clear array a()
DisplayArray( get arrayptr( a() ) )
wait key

a(5)="Hello"
a(1)=""

cls
print "Sort array"
sort array a()
DisplayArray( get arrayptr( a() ) )
wait key

cls
print "Reverse sort array"
reverse sort array a()
DisplayArray( get arrayptr( a() ) )
wait key

cls
print "Now for the numbers"
for i=0 to 10
   b(i)=i+100
next i
DisplayArray( get arrayptr( b() ) )
wait key

cls
print "Reverse sort array"
reverse sort array b()
DisplayArray( get arrayptr( b() ) )
wait key

cls
print "Sort array (items 2 to 5)"
sort array b(), 2, 5
DisplayArray( get arrayptr( b() ) )
wait key

cls
print "Clear array"
clear array b()
DisplayArray( get arrayptr( b() ) )
wait key

end

function DisplayArray( ArrayAddress as dword )
   local ArraySize as integer
   local TypeSize as integer
   local TypeNum as integer
   local ItemAddress as dword

   ` Get number of array items
   ArraySize=get arrayptr size( ArrayAddress )

   ` Get the size of the array items
   TypeSize=get arrayptr item size( ArrayAddress )

   ` Get the type of the array items
   TypeNum=get arrayptr type( ArrayAddress )

   ` Loop through the array
   for i=0 to ArraySize-1
      ` Get the address of the current item
      ItemAddress=get arrayptr item ptr( ArrayAddress, i )
      print hex$( ItemAddress ); " - ";

      select TypeNum
         case 0 :    print peek dword(ItemAddress)          : endcase
         case 1 :    print peek float(ItemAddress)          : endcase
         case 2
            StringAddr=peek dword(ItemAddress)
            if StringAddr <> 0
               print peek string( peek dword(ItemAddress) )
            else
               print "**NULL**"
            endif
         endcase
         case 3 :    print peek byte(ItemAddress)           : endcase
         case 4 :    print peek byte(ItemAddress)           : endcase
         case 5 :    print peek word(ItemAddress)           : endcase
         case 6 :    print peek dword(ItemAddress)          : endcase
         case 7 :    print peek double float(ItemAddress)   : endcase
         case 8 :    print peek double integer(ItemAddress) : endcase
         case default : print "" : endcase
      endselect
   next i
endfunction

remstart
   The array type is represented by the following type numbers and sizes
      TYPE           NUM   SIZE
      integer        0     4
      float          1     4
      string         2     4 (pointer to the string contents)
      boolean        3     1
      byte           4     1
      word           5     2
      dword          6     4
      double float   7     8
      double integer 8     8
      UDT            9     variable
remend

` Example of passing arrays by reference, and relinking them
` to allow easy access to the data.

` This example creates an array of the squares of 0 to 10,
` then passes the address of the array to a function which
` uses sqrt to set the values back to their original values.

dim a(10) as integer

` Put the square of the numbers 0 to 10 into the array
print "BEFORE:"
for i=0 to 10
   a(i)=i*i
   print a(i)
next i
print

ProcessAllValues( get arrayptr( a() ) )

print "AFTER:"
for i=0 to array count( a() )
   print a(i)
next i

wait key
end


function ProcessAllValues(ArrayPtr as dword)
   ` Create an array, then link the array address onto it.
   ` You should ensure that the correct type of array is
   `   created if you wish to change values.
   dim b() as integer
   link array b(), ArrayPtr

   ` Change any values you want, and even delete entries, but do not undim or
   ` enlarge the array in any way
   for i=0 to array count( b() )
      b(i) = sqrt( b(i) )
   next i

   ` Finally unlink the array or it will be destroyed
   unlink array b()
endfunction

dim a(10) as integer

` Put the square of the numbers 0 to 10 into the array
print "BEFORE:"
for i=0 to 10
   a(i)=i*i
   print i; " - "; a(i)
next i
print

` Get the array pointer and then unlink the array
ptr = get arrayptr( a() )
unlink array a()

` Call the function, expecting the array pointer to be returned
ptr = ProcessAllValues( ptr )

` Relink the array and pointer (it may be a different pointer)
link array a(), ptr

print "AFTER:"
for i=0 to array count( a() )
   print i; " - "; a(i)
next i

wait key
end


function ProcessAllValues(ArrayPtr as dword)
   ` Create an array, then link the array address onto it.
   ` You should ensure that the correct type of array is
   `   created if you wish to change values.
   dim b() as integer
   link array b(), ArrayPtr

   ` Change any values you want
   for i=0 to array count( b() )
      b(i) = sqrt( b(i) )
   next i

   ` Enlarge the array
   array insert at bottom b()
   b() = 101
   array insert at bottom b()
   b() = 102

   ` Finally unlink the array and pass back the array pointer
   ArrayPtr = get arrayptr( b() )
   unlink array b()
endfunction ArrayPtr

dim a(6, 5, 4, 3, 2, 1)
print "Dimensions: "; get array dimensions( a() )

for i = 1 to get array dimensions( a() )
   print "Dimension "; i; " = "; get array count( a(), i )
next

wait key

function ProcessUDPConnection( Connection as dword )
   local RemoteIP as dword
   local RemotePort as dword

   if SOCKET POLL READ( Connection ) > 0
      Bytes = RECV SOCKET MEMBLOCK( Connection, 2 )
      if Bytes > 0
         print "UDP packet received from "; SocketID( Connection )
         RemoteIP = SOCKET REMOTE IP( Connection )
         RemotePort = SOCKET REMOTE PORT( Connection )
         Bytes = SEND SOCKET MEMBLOCK TO( Connection, 2, RemoteIP, RemotePort)
         Bytes = SEND SOCKET MEMBLOCK TO( Connection, 2, RemoteIP, 1234) `<--- Add this line - a send to an invalid host
      endif
   endif
endfunction

Initializing the server
Waiting for new connections
UDP packet received from 127.0.0.1:1149
UDP packet received from 0.0.0.0:0
UDP packet received from 127.0.0.1:1149
UDP packet received from 0.0.0.0:0
UDP packet received from 127.0.0.1:1149
UDP packet received from 0.0.0.0:0
UDP packet received from 127.0.0.1:1149
UDP packet received from 0.0.0.0:0
...etc

#constant SOCK_CONNRESET 10054
`...
ReturnString = RECV SOCKET STRING$( Connection )
if SOCKET ERROR() > 0
   if SOCKET ERROR() <> SOCK_CONNRESET
      Abort("Receive Error occurred")
   else
      print "There is no server running on the remote machine"
   endif
endif
`...

do
   a = datafile integer(1)
   if datafile end(1) = 1 then exit
   ` ... read other items here and do whatever you need to with them
loop

count = datafile integer(1)
for i = 1 to count
   a = datafile integer(1)
   ` ... read other items here and do whatever you need to with them
next

sync on
sync rate 60
sync sleep 1
autocam off

restore ObjectData
BuildObjectFromData(1)

position camera 0.0, 1.5, -5.0
point camera 0.0, 0.0, 0.0
position light 0, 0.0, 1.5, -5.0
point light 0, 0.0, 0.0, 0.0

do
   xrotate object 1, wrapvalue( object angle x(1) + 0.25 )
   yrotate object 1, wrapvalue( object angle y(1) + 0.5 )
   zrotate object 1, wrapvalue( object angle z(1) + 1.0 )

   sync
loop

function BuildObjectFromData(Object as integer)
   local Vertices as integer
   local Indices as integer
   local Diffuse as dword
   local Index as integer
   local x as float
   local y as float
   local z as float
   local nx as float
   local ny as float
   local nz as float
   local i as integer

   null = make vector3(1)

   read Vertices
   read Indices

   make object new 1, Vertices, Indices, FVF_XYZ || FVF_NORMAL || FVF_DIFFUSE

   lock vertexdata for limb 1, 0
   for i = 0 to Vertices-1
      read x, y, z
      read nx, ny, nz
      read Diffuse
      set vertexdata position i, x, y, z
      set vertexdata normals  i, nx, ny, nz
      set vertexdata diffuse  i, Diffuse
   next
   for i = 0 to Indices-1
      read Index
      set indexdata i, Index
   next
   unlock vertexdata

endfunction



ObjectData:
data 24, 36                                  ` 24 vertices, 36 indices

` Vertex data
data -1, -1, -1,  0,  0, -1, 0xffffffff      ` Front face
data -1,  1, -1,  0,  0, -1, 0xff000000
data  1,  1, -1,  0,  0, -1, 0xffff0000
data  1, -1, -1,  0,  0, -1, 0xff00ff00
data -1, -1,  1,  0,  0,  1, 0xff0000ff      ` Back face
data -1,  1,  1,  0,  0,  1, 0xffffff00
data  1,  1,  1,  0,  0,  1, 0xff00ffff
data  1, -1,  1,  0,  0,  1, 0xffff00ff
data -1, -1, -1, -1,  0,  0, 0xffffffff      ` Left face
data -1,  1, -1, -1,  0,  0, 0xff000000
data -1, -1,  1, -1,  0,  0, 0xff0000ff
data -1,  1,  1, -1,  0,  0, 0xffffff00
data  1, -1, -1,  1,  0,  0, 0xff00ff00      ` Right face
data  1,  1, -1,  1,  0,  0, 0xffff0000
data  1, -1,  1,  1,  0,  0, 0xffff00ff
data  1,  1,  1,  1,  0,  0, 0xff00ffff
data -1,  1, -1,  0,  1,  0, 0xff000000      ` Top face
data  1,  1, -1,  0,  1,  0, 0xffff0000
data -1,  1,  1,  0,  1,  0, 0xffffff00
data  1,  1,  1,  0,  1,  0, 0xff00ffff
data -1, -1, -1,  0, -1,  0, 0xffffffff      ` Bottom face
data  1, -1, -1,  0, -1,  0, 0xff00ff00
data -1, -1,  1,  0, -1,  0, 0xff0000ff
data  1, -1,  1,  0, -1,  0, 0xffff00ff

` Index data
data 0, 1, 2, 0, 2, 3                        ` Front face
data 4, 6, 5, 4, 7, 6                        ` Back face
data 8, 10, 9, 9, 10, 11                     ` Left face
data 12, 13, 14, 14, 13, 15                  ` Right face
data 16, 19, 17, 16, 18, 19                  ` Top face
data 20, 21, 22, 21, 23, 22                  ` Bottom face



` FVF constants
#constant FVF_XYZ = 0x002
#constant FVF_XYZRHW = 0x004
#constant FVF_XYZB1 = 0x006
#constant FVF_XYZB2 = 0x008
#constant FVF_XYZB3 = 0x00a
#constant FVF_XYZB4 = 0x00c
#constant FVF_XYZB5 = 0x00e
#constant FVF_NORMAL = 0x010
#constant FVF_PSIZE = 0x020
#constant FVF_DIFFUSE = 0x040
#constant FVF_SPECULAR = 0x080
#constant FVF_TEX0 = 0x000
#constant FVF_TEX1 = 0x100
#constant FVF_TEX2 = 0x200
#constant FVF_TEX3 = 0x300
#constant FVF_TEX4 = 0x400
#constant FVF_TEX5 = 0x500
#constant FVF_TEX6 = 0x600
#constant FVF_TEX7 = 0x700
#constant FVF_TEX8 = 0x800

phy make fire emitter max(emitter,1),ammount,pos_X#,pos_Y#,pos_Z#

` ... or ...

if ammount > 0
   phy make fire emitter emitter,ammount,pos_X#,pos_Y#,pos_Z#
endif

sync on
sync rate 0
sync sleep 1
autocam off

make object plain 1, 50.0, 50.0, 100, 100, FVF_XYZ || FVF_NORMAL

position camera 0.0, 30.0, 0.0
point camera 0.0, 0.0, 0.0

load effect "heightcolor.fx", 1, 0
set object effect 1, 1
set effect technique 1,"HeightColorTech"

x as float
y as float
MouseSensitivity as float = 0.5

do
   x = camera angle x()
   if x > 180.0 then dec x, 360.0
   inc x, mousemovey() * MouseSensitivity
   if x < -90.0 then x = -90.0
   if x > 90.0 then x = 90.0
   if x < 0.0 then inc x, 360.0

   y = wrapvalue( camera angle y() + (mousemovex() * MouseSensitivity) )

   rotate camera x, y, 0.0

   position camera 0.0, 0.0, 0.0

   move camera -30.0

   sync
loop

end

#constant FVF_XYZ = 0x002
#constant FVF_XYZRHW = 0x004
#constant FVF_XYZB1 = 0x006
#constant FVF_XYZB2 = 0x008
#constant FVF_XYZB3 = 0x00a
#constant FVF_XYZB4 = 0x00c
#constant FVF_XYZB5 = 0x00e
#constant FVF_NORMAL = 0x010
#constant FVF_PSIZE = 0x020
#constant FVF_DIFFUSE = 0x040
#constant FVF_SPECULAR = 0x080
#constant FVF_TEX0 = 0x000
#constant FVF_TEX1 = 0x100
#constant FVF_TEX2 = 0x200
#constant FVF_TEX3 = 0x300
#constant FVF_TEX4 = 0x400
#constant FVF_TEX5 = 0x500
#constant FVF_TEX6 = 0x600
#constant FVF_TEX7 = 0x700
#constant FVF_TEX8 = 0x800

//=============================================================================
// heightcolor.fx by Frank Luna (C) 2004 All Rights Reserved.
//
// Animates vertices in a wave motion and generates vertex colors 
// based on their height.
//
// IRM - Minor tweaks to fit DBPro.
//=============================================================================

uniform extern float4x4 gWVP : WorldViewProjection;
uniform extern float    gTime : Time;

struct OutputVS
{
    float4 posH  : POSITION0;
    float4 color : COLOR0;
};

// Amplitudes
static float a[2] = {0.8f, 0.2f};
    
// Angular wave numbers.
static float k[2] = {1.0, 8.0f};
    
// Angular frequency.
static float w[2] = {1.0f, 8.0f};
    
// Phase shifts.
static float p[2] = {0.0f, 1.0f};

float SumOfRadialSineWaves(float x, float z)
{
    // Distance of vertex from source of waves (which we set
    // as the origin of the local space).
    float d = sqrt(x*x + z*z);
    
    // Sum the waves.
    float sum = 0.0f;
    for(int i = 0; i < 2; ++i)
        sum += a[i]*sin(k[i]*d - gTime*w[i] + p[i]);
        
    return sum;
}

float4 GetColorFromHeight(float y)
{
    if( abs(y) <= 0.2f ) // black
        return float4(0.0f, 0.0f, 0.0f, 1.0f);
    else if(abs(y) <= 0.5f ) // blue
        return float4(0.0f, 0.0f, 1.0f, 1.0f);
    else if(abs(y) <= 0.8f ) // green
        return float4(0.0f, 1.0f, 0.0f, 1.0f);
    else if(abs(y) <= 1.0f ) // red
        return float4(1.0f, 0.0f, 0.0f, 1.0f);
    else // yellow
        return float4(1.0f, 1.0f, 0.0f, 1.0f);
}

OutputVS ColorVS(float3 posL : POSITION0)
{
    // Zero out our output.
    OutputVS outVS = (OutputVS)0;
    
    // Get the height of the vertex--the height is given by
    // summing sine waves.
    posL.y = SumOfRadialSineWaves(posL.x, posL.z);
    
    // Generate the vertex color based on its height.
    outVS.color = GetColorFromHeight(posL.y);
    
    // Transform to homogeneous clip space.
    outVS.posH = mul(float4(posL, 1.0f), gWVP);
     
    // Done--return the output.
    return outVS;
}

float4 ColorPS(float4 c : COLOR0) : COLOR
{
    return c;
}

technique HeightColorTech
{
    pass P0
    {
        // Specify the vertex and pixel shader associated with this pass.
        vertexShader = compile vs_2_0 ColorVS();
        pixelShader  = compile ps_2_0 ColorPS();

        // Specify the render/device states associated with this pass.
        FillMode = WireFrame;
    }
}