a6dlllib.pas

3D GameStudio 的Delphi开发包

  media_stop            := ptr(ev.getfunc('media_stop'));
  media_tune            := ptr(ev.getfunc('media_tune'));
  pan_create            := ptr(ev.getfunc('pan_create'));
  pan_remove            := ptr(ev.getfunc('pan_remove'));
  pan_setbmap           := ptr(ev.getfunc('pan_setbmap'));
  pan_setpos            := ptr(ev.getfunc('pan_setpos'));
  path_getedge          := ptr(ev.getfunc('path_getedge'));
  path_getnode          := ptr(ev.getfunc('path_getnode'));
  path_length           := ptr(ev.getfunc('path_length'));
  path_next             := ptr(ev.getfunc('path_next'));
  path_nextnode         := ptr(ev.getfunc('path_nextnode'));  
  path_scan             := ptr(ev.getfunc('path_scan'));
  path_scannode         := ptr(ev.getfunc('path_scannode'));  
  path_set              := ptr(ev.getfunc('path_set'));
  path_setedge          := ptr(ev.getfunc('path_setedge'));  
  path_setnode          := ptr(ev.getfunc('path_setnode'));  
  path_spline           := ptr(ev.getfunc('path_spline'));  
  pixel_for_bmap        := ptr(ev.getfunc('pixel_for_bmap'));
  pixel_to_bmap         := ptr(ev.getfunc('pixel_to_bmap'));
  pixel_for_vec         := ptr(ev.getfunc('pixel_for_vec'));
  pixel_to_vec          := ptr(ev.getfunc('pixel_to_vec'));
  port_in               := ptr(ev.getfunc('port_in'));
  port_out              := ptr(ev.getfunc('port_out'));
  powv                  := ptr(ev.getfunc('powv'));
  proc_client           := ptr(ev.getfunc('proc_client'));
  proc_local            := ptr(ev.getfunc('proc_local'));
  proc_kill             := ptr(ev.getfunc('proc_kill'));
  proc_status           := ptr(ev.getfunc('proc_status'));
  ptr_first             := ptr(ev.getfunc('ptr_first'));
  ptr_for_handle        := ptr(ev.getfunc('ptr_for_handle'));
  _random               := ptr(ev.getfunc('random'));
  randomize             := ptr(ev.getfunc('randomize'));
  rel_for_screen        := ptr(ev.getfunc('rel_for_screen'));
  rel_to_screen         := ptr(ev.getfunc('rel_to_screen'));
  send_skill            := ptr(ev.getfunc('send_skill'));
  send_string           := ptr(ev.getfunc('send_string'));
  send_string_to        := ptr(ev.getfunc('send_string_to'));
  send_var              := ptr(ev.getfunc('send_var'));
  send_var_to           := ptr(ev.getfunc('send_var_to'));
  session_connect       := ptr(ev.getfunc('session_connect'));
  sign                  := ptr(ev.getfunc('sign'));
  sinv                  := ptr(ev.getfunc('sinv'));
  snd_create            := ptr(ev.getfunc('snd_create'));
  snd_remove            := ptr(ev.getfunc('snd_remove'));
  snd_loop              := ptr(ev.getfunc('snd_loop'));
  snd_play              := ptr(ev.getfunc('snd_play'));
  snd_playing           := ptr(ev.getfunc('snd_playing'));
  snd_pause             := ptr(ev.getfunc('snd_pause'));
  snd_start             := ptr(ev.getfunc('snd_start'));
  snd_stop              := ptr(ev.getfunc('snd_stop'));
  snd_stopall           := ptr(ev.getfunc('snd_stopall'));
  snd_tune              := ptr(ev.getfunc('snd_tune'));
  sqrtv                 := ptr(ev.getfunc('sqrtv'));
  str_cat               := ptr(ev.getfunc('str_cat'));
  str_cat_num           := ptr(ev.getfunc('str_cat_num'));
  str_clip              := ptr(ev.getfunc('str_clip'));
  str_cmp               := ptr(ev.getfunc('str_cmp'));
  str_cmpi              := ptr(ev.getfunc('str_cmpi'));
  str_cmpni             := ptr(ev.getfunc('str_cmpni'));
  str_cpy               := ptr(ev.getfunc('str_cpy'));
  str_create            := ptr(ev.getfunc('str_create'));
  str_cursor            := ptr(ev.getfunc('str_cursor'));
  str_for_asc           := ptr(ev.getfunc('str_for_asc'));
  str_for_entname       := ptr(ev.getfunc('str_for_entname'));
  str_for_entfile       := ptr(ev.getfunc('str_for_entfile'));
  str_for_key           := ptr(ev.getfunc('str_for_key'));  
  str_for_num           := ptr(ev.getfunc('str_for_num'));
  str_len               := ptr(ev.getfunc('str_len'));
  str_lwr               := ptr(ev.getfunc('str_lwr'));
  str_remove            := ptr(ev.getfunc('str_remove'));
  str_stri              := ptr(ev.getfunc('str_stri'));
  str_to_asc            := ptr(ev.getfunc('str_to_asc'));
  str_to_num            := ptr(ev.getfunc('str_to_num'));
  str_trunc             := ptr(ev.getfunc('str_trunc'));
  str_upr               := ptr(ev.getfunc('str_upr'));
  sys_exit              := ptr(ev.getfunc('sys_exit'));
  sys_metrics           := ptr(ev.getfunc('sys_metrics'));
  sys_record            := ptr(ev.getfunc('sys_record'));
  sys_replay            := ptr(ev.getfunc('sys_replay'));
  sys_trial             := ptr(ev.getfunc('sys_trial'));
  tanv                  := ptr(ev.getfunc('tanv'));
  timer                 := ptr(ev.getfunc('timer'));
  txt_create            := ptr(ev.getfunc('txt_create'));
  txt_for_dir           := ptr(ev.getfunc('txt_for_dir'));
  txt_load              := ptr(ev.getfunc('txt_load'));
  txt_remove            := ptr(ev.getfunc('txt_remove'));
  txt_setinvisible      := ptr(ev.getfunc('txt_setinvisible'));
  txt_setvisible        := ptr(ev.getfunc('txt_setvisible'));
  txt_sort              := ptr(ev.getfunc('txt_sort'));
  txt_str               := ptr(ev.getfunc('txt_str'));
  trace                 := ptr(ev.getfunc('trace'));
  update                := ptr(ev.getfunc('update'));
  var_for_name          := ptr(ev.getfunc('var_for_name'));
  vec_accelerate        := ptr(ev.getfunc('vec_accelerate'));
  vec_add               := ptr(ev.getfunc('vec_add'));
  vec_diff              := ptr(ev.getfunc('vec_diff'));
  vec_dist              := ptr(ev.getfunc('vec_dist'));
  vec_dot               := ptr(ev.getfunc('vec_dot'));
  vec_inverse           := ptr(ev.getfunc('vec_inverse'));
  vec_length            := ptr(ev.getfunc('vec_length'));
  vec_lerp              := ptr(ev.getfunc('vec_lerp'));
  vec_normalize         := ptr(ev.getfunc('vec_normalize'));
  vec_rotate            := ptr(ev.getfunc('vec_rotate'));
  vec_scale             := ptr(ev.getfunc('vec_scale'));
  vec_set               := ptr(ev.getfunc('vec_set'));
  vec_sub               := ptr(ev.getfunc('vec_sub'));
  vec_for_angle         := ptr(ev.getfunc('vec_for_angle'));
  vec_to_angle          := ptr(ev.getfunc('vec_to_angle'));
  vec_for_bone          := ptr(ev.getfunc('vec_for_bone'));
  vec_for_normal        := ptr(ev.getfunc('vec_for_normal'));
  vec_for_vertex        := ptr(ev.getfunc('vec_for_vertex'));
  vec_for_max           := ptr(ev.getfunc('vec_for_max'));
  vec_for_mesh          := ptr(ev.getfunc('vec_for_mesh'));
  vec_for_min           := ptr(ev.getfunc('vec_for_min'));
  vec_for_screen        := ptr(ev.getfunc('vec_for_screen'));
  vec_for_uv            := ptr(ev.getfunc('vec_for_uv'));
  vec_to_mesh           := ptr(ev.getfunc('vec_to_mesh'));
  vec_to_screen         := ptr(ev.getfunc('vec_to_screen'));
  vec_to_uv             := ptr(ev.getfunc('vec_to_uv'));
  vector                := ptr(ev.getfunc('vector'));
  view_create           := ptr(ev.getfunc('view_create'));
  video_set             := ptr(ev.getfunc('video_set'));
  video_switch          := ptr(ev.getfunc('video_switch'));
  video_window          := ptr(ev.getfunc('video_window'));
  c_trace               := ptr(ev.getfunc('c_trace'));
  c_move                := ptr(ev.getfunc('c_move'));
  c_content             := ptr(ev.getfunc('c_content'));
  c_setminmax           := ptr(ev.getfunc('c_setminmax'));
  c_rotate              := ptr(ev.getfunc('c_rotate'));
  c_updatehull          := ptr(ev.getfunc('c_updatehull'));  
  ph_selectgroup        := ptr(ev.getfunc('ph_selectgroup'));
  ph_setautodisable     := ptr(ev.getfunc('ph_setautodisable'));  
  ph_setcollisions      := ptr(ev.getfunc('ph_setcollisions'));
  ph_setcontacts        := ptr(ev.getfunc('ph_setcontacts'));
  ph_setcorrections     := ptr(ev.getfunc('ph_setcorrections'));
  ph_setgravity         := ptr(ev.getfunc('ph_setgravity'));  
  phent_settype         := ptr(ev.getfunc('phent_settype'));
  phent_addcentralforce := ptr(ev.getfunc('phent_addcentralforce'));
  phent_addforceglobal  := ptr(ev.getfunc('phent_addforceglobal'));
  phent_addforcelocal   := ptr(ev.getfunc('phent_addforcelocal'));
  phent_addtorqueglobal := ptr(ev.getfunc('phent_addtorqueglobal'));
  phent_addtorquelocal  := ptr(ev.getfunc('phent_addtorquelocal'));
  phent_getangvelocity  := ptr(ev.getfunc('phent_getangvelocity'));
  phent_getvelocity     := ptr(ev.getfunc('phent_getvelocity'));
  phent_clearvelocity   := ptr(ev.getfunc('phent_clearvelocity'));
  phent_setmass         := ptr(ev.getfunc('phent_setmass'));
  phent_setfriction     := ptr(ev.getfunc('phent_setfriction'));
  phent_setmaxspeed     := ptr(ev.getfunc('phent_setmaxspeed'));
  phent_setdamping      := ptr(ev.getfunc('phent_setdamping'));
  phent_enable          := ptr(ev.getfunc('phent_enable'));
  phent_setgroup        := ptr(ev.getfunc('phent_setgroup'));
  phent_setelasticity   := ptr(ev.getfunc('phent_setelasticity'));
  phent_getbounds       := ptr(ev.getfunc('phent_getbounds'));
  phcon_add             := ptr(ev.getfunc('phcon_add'));
  phcon_remove          := ptr(ev.getfunc('phcon_remove'));
  phcon_setparams1      := ptr(ev.getfunc('phcon_setparams1'));
  phcon_setparams2      := ptr(ev.getfunc('phcon_setparams2'));
  phcon_setmotor        := ptr(ev.getfunc('phcon_setmotor'));
  phcon_getposition     := ptr(ev.getfunc('phcon_getposition'));
  phent_makelocal       := ptr(ev.getfunc('phent_makelocal'));
  phent_addobstruction  := ptr(ev.getfunc('phent_addobstruction'));
  phent_addvelcentral   := ptr(ev.getfunc('phent_addvelcentral'));
  phent_addvelglobal    := ptr(ev.getfunc('phent_addvelglobal'));
  phent_addvellocal     := ptr(ev.getfunc('phent_addvellocal'));
  engine_getobj         := ptr(ev.getfunc('engine_getobj'));
  engine_getfunc        := ptr(ev.getfunc('engine_getfunc'));
  engine_getscript      := ptr(ev.getfunc('engine_getscript'));
  engine_getvar         := ptr(ev.getfunc('engine_getvar'));
  engine_callname4      := ptr(ev.getfunc('engine_callname4'));
  engine_callscript4    := ptr(ev.getfunc('engine_callscript4'));
  engine_debugposition  := ptr(ev.getfunc('engine_debugposition'));
  engine_debugbreakpoint:= ptr(ev.getfunc('engine_debugbreakpoint'));
end;

function engine_callname(name : PChar; p1,p2,p3,p4 : LongInt) : Var_; cdecl;
begin
  // ported, but I don't think it's needed, use ev.engine_callname4
  Result := engine_callname4(name,p1,p2,p3,p4);
end;

function engine_callscript(script,p1,p2,p3,p4 : LongInt) : Var_; cdecl;
begin
  // ported, but I don't think it's needed, use ev.engine_callscript4
  Result := engine_callscript4(script,p1,p2,p3,p4);
end;

function engine_bind : LongInt; cdecl;
begin
  // ported, but not needed for delphi
  Result := DLL_VERSION;
end;

end.