Sorry your browser is not supported!

a=find free object()
print "ID1: "; a
make wind effector a

b=find free object()
print "ID2: "; b
print a; " & "; b

print "Object 1 (particle effector) exist?: "; object exist(a)

print "find free object() does not count particle effectors as objects - but they are!"
sync
wait key

disable special keys


do










if keystate(28)=1



end
endif



loop

global my_channel
global pos_in_file
global file_size
global download
global download_dir$
global file$
global dest_filename$
global timeout

download_dir$="temp"
dest_filename$="Two wolves howl.wav"

sync on

set display mode 800,600,16
set window on
set text size 16
st:
 cls
 sleep 100
 print "Downloading from http://www.canislupus.ru/sound/09.wav"
 print "to "+get dir$()+""+download_dir$+""+dest_filename$
 print "started..."
 sucsess=start_download("http://www.canislupus.ru","sound","09.wav")
 if sucsess=1
  print "Downloading..."
  repeat
   sucsess=perform_download()
   fastsync
  until sucsess=0 or sucsess=2
 endif
 if sucsess=0
  print "failed! press any key to restart":wait key
 else
  print "sucseed! restart in 10 seconds":sleep 10000
 endif
goto st

` ==================================
` HTTP Client by Alex ZhAk
` Uses Matrix1Util_28 plugin by IanM
` ==================================

function check_for_channel_error(my_channel)
  failed=0
   if socket error()<>0
      failed=1
       DELETE SOCKET my_channel
   endif
endfunction failed

function get_size(input$)
pos=0
tempstr$=""
bytes=0
do
  pos=pos+1
  if pos>len(input$) then exit
  tempstr$=tempstr$+mid$(input$,pos)
  if asc(mid$(input$,pos))=13
    tempstr$=left$(tempstr$,len(tempstr$)-1)
   ` print right$(tempstr$,len(tempstr$)-17)
   ` wait key
   if left$(lower$(tempstr$),16)=chr$(10)+"content-length:"
    bytes=val(right$(tempstr$,len(tempstr$)-17))
  `  print "size found!"
   endif
  tempstr$=""
  endif
loop

endfunction bytes

function get_header()
header$=""
pre_exit=0
do
  if timer()-timeout>5000
   header$="error"
   exit
  endif
  if socket bytes available(my_channel)>0
     cur_byte=RECV SOCKET BYTE(my_channel)
     header$=header$+chr$(cur_byte)
     if pre_exit=2
         if cur_byte=13
          exit
         else
          pre_exit=0
         endif
     endif
     if pre_exit=1
         if cur_byte=10
          pre_exit=2
         else
          pre_exit=0
         endif
     endif
     if cur_byte=13 and pre_exit=0 then pre_exit=1
  endif
loop
endfunction header$

function get_header_failure(input$)
  if left$(lower$(input$),15)="http/1.1 200 ok" or left$(lower$(input$),15)="http/1.0 200 ok"
   failure=0
  else
   failure=1
  endif
endfunction failure



function start_download(host$,path$,file$)
  sucsess=1
  if left$(host$,7)="http://"
    host$=right$(host$,len(host$)-7)
  endif
  if path exist(download_dir$)=0
    make directory download_dir$
  endif
  my_channel=0
  pos_in_file=0
  file_size=0
  server_port = 80
  if socket is valid(my_channel)=0 then my_channel = new connect socket(hostname to ip(host$), server_port)
  if path$<>"" then path$=path$+"/"
  request$="GET " + "/" + path$ + file$ + " HTTP/1.1" + chr$(13) + chr$(10) +"Host: "+host$+ chr$(13) + chr$(10)+ chr$(13) + chr$(10)
  sucsess = SEND SOCKET STRING(my_channel,request$)
  if sucsess=0 then delete socket my_channel
  download=0
  timeout=timer()
endfunction sucsess


function perform_download()
    result=1
    if check_for_channel_error(my_channel)=1
      result=0
      print "Error: unknown socket error!"
      if file open(1)=1
        close file 1
      endif
      exitfunction result
    endif
    if timer()-timeout>5000
       print "Error: timeout!"
       result=0
       if file open(1)=1
         close file 1
       endif
       delete socket my_channel
       exitfunction result
    endif
  if SOCKET BYTES AVAILABLE(my_channel)>0
    timeout=timer()

    if download=0
       recv$=get_header()
       if get_header_failure(recv$)=1
          print "Error: bad server answer!"
          result=0
          if file open(1)=1
            close file 1
          endif
          delete socket my_channel
          exitfunction result
       endif
       file_size=get_size(recv$)
       if file_size=0 then file_size=32
       download=1
       if file exist(download_dir$+""+dest_filename$)=1
        delete file download_dir$+""+dest_filename$
       endif
       open to write 1,download_dir$+""+dest_filename$
       pos_in_file=1
    endif

    if download=1
       if socket bytes available(my_channel)>0
         tempbyte=recv socket byte(my_channel)
         if pos_in_file>1 then write byte 1,tempbyte
         pos_in_file=pos_in_file+1
         if pos_in_file = file_size +2
         close file 1
         result=2
         exitfunction result
       endif
    endif
   endif
   endif
endfunction result

if socket is valid(my_channel) then delete socket my_channel

Testing()
wait key
end

function a()
endfunction

function b()
endfunction

function Testing()
   print GetFunctionIndex( get ptr to this function() )
endfunction


function GetFunctionIndex(Fn as dword)
   local i as integer

   for i = get function count() to 1 step -1
      if Fn = get ptr to function(i) then exitfunction i
   next
endfunction 0

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


make object cube 2,1  `added *****************************
position object 2,2,0,0 `added ****************************

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 )

   set cursor 0,0 `added ************************************
   print "BIG OBJECT SIZE : ";object size x(1);", ";object size y(1);", ";object size z(1) `added ****************
   print "LITTLE OBJECT SIZE : ";object size x(2);", ";object size y(2);", ";object size z(2)  `added ***********

   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

local stress2 as string
stress2 = "stresstest" + get date$() + "_" + get time$() + ".csv"
stress2 = replace all$(stress2,"/","")
stress2 = replace all$(stress2,":","")

stress$ = "stresstest" + get date$() + "_" + get time$() + ".csv"
stress$ = replace all$(stress$,"/","")
stress$ = replace all$(stress$,":","")

Print stress$
Print Nothing()

Wait Key
End

Function Nothing()
local stress2 as string
stress2 = "stresstest" + get date$() + "_" + get time$() + ".csv"
stress2 = replace all$(stress2,"/","")
stress2 = replace all$(stress2,":","")
Endfunction stress2

if SOCKET POLL READ( Listener ) > 0
   NewSocket = ACCEPT SOCKET( Listener)
   ` Do something with the new socket here.
endif