a6dlllib.pas

3D GameStudio 的Delphi开发包

/////////////////////////////////////////////////////////
// ACKNEX Engine - Script function list
// (c) Conitec / JCL 1996..2004
/////////////////////////////////////////////////////////
//
// Delphi Conversion for creating an A6_5x Engine plugin dll done by
// Michal Messerschmidt aka LazyDog of Lazy Dog Software
// (www.LazyDogSoftware.com)
//
// SDK Version 6.50.6
//
// tested on Delphi 5,6,7,2005 & 2006
//////////////////////////////////////////////////////////////////////

unit A6DllLib;

interface
uses A6DLL;

function A6_DLLAPI(ENGINE_VARS : PEngine_Vars) : VAR_; cdecl; exports A6_DLLAPI;

function engine_callname(name : PChar; p1,p2,p3,p4 : LongInt) : Var_; cdecl; exports engine_callname;
function engine_callscript(script,p1,p2,p3,p4 : LongInt) : Var_; cdecl; exports engine_callscript;
function engine_bind : LongInt; cdecl; exports engine_bind;

implementation

Const DLL_VERSION = 630;	// must match A6DLL_VERSION

function A6_DLLAPI(ENGINE_VARS : PEngine_Vars) : VAR_; cdecl;
begin
  Result := DLL_VERSION;
  ev := ENGINE_VARS;

  _str                  := ptr(ev.getfunc('_str'));
  _vec                  := ptr(ev.getfunc('_vec'));
  absv                  := ptr(ev.getfunc('absv'));
  accelerate            := ptr(ev.getfunc('accelerate'));
  add_buffer            := ptr(ev.getfunc('add_buffer'));
  add_folder            := ptr(ev.getfunc('add_folder'));
  add_resource          := ptr(ev.getfunc('add_resource'));
  add_struct            := ptr(ev.getfunc('add_struct'));
  ang                   := ptr(ev.getfunc('ang'));
  ang_add               := ptr(ev.getfunc('ang_add'));
  ang_for_bone          := ptr(ev.getfunc('ang_for_bone'));
  ang_rotate            := ptr(ev.getfunc('ang_rotate'));
  acosv                 := ptr(ev.getfunc('acosv'));
  asinv                 := ptr(ev.getfunc('asinv'));
  atanv                 := ptr(ev.getfunc('atanv'));
  _beep                 := ptr(ev.getfunc('beep'));
  bmap_blit             := ptr(ev.getfunc('bmap_blit'));
  bmap_create           := ptr(ev.getfunc('bmap_create'));
  bmap_createblack      := ptr(ev.getfunc('bmap_createblack'));
  bmap_fill             := ptr(ev.getfunc('bmap_fill'));
  bmap_for_entity       := ptr(ev.getfunc('bmap_for_entity'));
  bmap_for_screen       := ptr(ev.getfunc('bmap_for_screen'));
  bmap_for_buffer       := ptr(ev.getfunc('bmap_for_buffer'));
  bmap_height           := ptr(ev.getfunc('bmap_height'));
  bmap_lock             := ptr(ev.getfunc('bmap_lock'));
  bmap_preload          := ptr(ev.getfunc('bmap_preload'));
  bmap_purge            := ptr(ev.getfunc('bmap_purge'));
  bmap_remove           := ptr(ev.getfunc('bmap_remove'));
  bmap_unlock           := ptr(ev.getfunc('bmap_unlock'));
  bmap_load             := ptr(ev.getfunc('bmap_load'));
  bmap_save             := ptr(ev.getfunc('bmap_save'));
  bmap_to_cubemap       := ptr(ev.getfunc('bmap_to_cubemap'));
  bmap_to_mipmap        := ptr(ev.getfunc('bmap_to_mipmap'));
  bmap_to_normals       := ptr(ev.getfunc('bmap_to_normals'));
  bmap_to_format        := ptr(ev.getfunc('bmap_to_format'));
  bmap_to_uv            := ptr(ev.getfunc('bmap_to_uv'));
  bmap_width            := ptr(ev.getfunc('bmap_width'));
  button_state          := ptr(ev.getfunc('button_state'));
  c_scan                := ptr(ev.getfunc('c_scan'));
  cd_pause              := ptr(ev.getfunc('cd_pause'));
  cd_play               := ptr(ev.getfunc('cd_play'));
  cd_start              := ptr(ev.getfunc('cd_start'));
  cd_track              := ptr(ev.getfunc('cd_track'));
  clamp                 := ptr(ev.getfunc('clamp'));
  client_drop           := ptr(ev.getfunc('client_drop'));
  content               := ptr(ev.getfunc('content'));
  cosv                  := ptr(ev.getfunc('cosv'));
  cycle                 := ptr(ev.getfunc('cycle'));
  diag                  := ptr(ev.getfunc('diag'));
  diag_frame            := ptr(ev.getfunc('diag_frame'));
  diag_var              := ptr(ev.getfunc('diag_var'));
  digits_set            := ptr(ev.getfunc('digits_set'));
  dll_open              := ptr(ev.getfunc('dll_open'));
  draw_begin            := ptr(ev.getfunc('draw_begin'));
  draw_box3d            := ptr(ev.getfunc('draw_box3d'));
  draw_line             := ptr(ev.getfunc('draw_line'));
  draw_line3d           := ptr(ev.getfunc('draw_line3d'));
  draw_point3d          := ptr(ev.getfunc('draw_point3d'));
  draw_text             := ptr(ev.getfunc('draw_text'));
  draw_textmode         := ptr(ev.getfunc('draw_textmode'));
  effect                := ptr(ev.getfunc('effect'));
  effect_cpy            := ptr(ev.getfunc('effect_cpy'));
  effect_load           := ptr(ev.getfunc('effect_load'));
  effect_local          := ptr(ev.getfunc('effect_local'));
  ent_animate           := ptr(ev.getfunc('ent_animate'));
  ent_blend             := ptr(ev.getfunc('ent_blend'));
  ent_blendpose         := ptr(ev.getfunc('ent_blendpose'));
  ent_bonemove          := ptr(ev.getfunc('ent_bonemove'));
  ent_bonename          := ptr(ev.getfunc('ent_bonename'));
  ent_bonereset         := ptr(ev.getfunc('ent_bonereset'));
  ent_bonereset_all     := ptr(ev.getfunc('ent_bonereset_all'));
  ent_bonereset_branch  := ptr(ev.getfunc('ent_bonereset_branch'));
  ent_bonerotate        := ptr(ev.getfunc('ent_bonerotate'));
  ent_bonerotate_parent := ptr(ev.getfunc('ent_bonerotate_parent'));
  ent_bones             := ptr(ev.getfunc('ent_bones'));
  ent_bonescale         := ptr(ev.getfunc('ent_bonescale'));
  ent_create            := ptr(ev.getfunc('ent_create'));
  ent_createlayer       := ptr(ev.getfunc('ent_createlayer'));
  ent_createlocal       := ptr(ev.getfunc('ent_createlocal'));
  ent_createterrain     := ptr(ev.getfunc('ent_createterrain'));
  ent_fixnormals        := ptr(ev.getfunc('ent_fixnormals'));
  ent_for_name          := ptr(ev.getfunc('ent_for_name'));
  ent_frames            := ptr(ev.getfunc('ent_frames'));
  ent_mesh              := ptr(ev.getfunc('ent_mesh'));
  ent_morph             := ptr(ev.getfunc('ent_morph'));
  ent_morphskin         := ptr(ev.getfunc('ent_morphskin'));
  ent_move              := ptr(ev.getfunc('ent_move'));
  ent_mtlset            := ptr(ev.GetFunc('ent_mtlset'));
  ent_next              := ptr(ev.GetFunc('ent_next'));
  ent_playloop          := ptr(ev.getfunc('ent_playloop'));
  ent_playsound         := ptr(ev.getfunc('ent_playsound'));
  ent_preload           := ptr(ev.getfunc('ent_preload'));
  ent_purge             := ptr(ev.getfunc('ent_purge'));
  ent_remove            := ptr(ev.getfunc('ent_remove'));
  ent_sendnow           := ptr(ev.getfunc('ent_sendnow'));
  ent_skins             := ptr(ev.getfunc('ent_skins'));
  ent_vertices          := ptr(ev.getfunc('ent_vertices'));

  A6DLL.error           := ptr(ev.getfunc('error'));

  exec                  := ptr(ev.getfunc('exec'));
  execute               := ptr(ev.getfunc('execute'));
  expv                  := ptr(ev.getfunc('expv'));
  facos                 := ptr(ev.getfunc('facos'));
  fasin                 := ptr(ev.getfunc('fasin'));
  fatan                 := ptr(ev.getfunc('fatan'));
  fcos                  := ptr(ev.getfunc('fcos'));
  file_asc_read         := ptr(ev.getfunc('file_asc_read'));
  file_asc_write        := ptr(ev.getfunc('file_asc_write'));
  file_chr_read         := ptr(ev.getfunc('file_chr_read'));
  file_close            := ptr(ev.getfunc('file_close'));
  file_cpy              := ptr(ev.getfunc('file_cpy'));
  file_delete           := ptr(ev.getfunc('file_delete'));
  file_find             := ptr(ev.getfunc('file_find'));
  file_for_screen       := ptr(ev.getfunc('file_for_screen'));
  file_length           := ptr(ev.getfunc('file_length'));
  file_load             := ptr(ev.getfunc('file_load'));
  file_open_append      := ptr(ev.getfunc('file_open_append'));
  file_open_game        := ptr(ev.getfunc('file_open_game'));
  file_open_read        := ptr(ev.getfunc('file_open_read'));
  file_open_write       := ptr(ev.getfunc('file_open_write'));
  file_rename           := ptr(ev.getfunc('file_rename'));
  file_save             := ptr(ev.getfunc('file_save'));
  file_seek             := ptr(ev.getfunc('file_seek'));
  file_str_read         := ptr(ev.getfunc('file_str_read'));
  file_str_readto       := ptr(ev.getfunc('file_str_readto'));
  file_str_write        := ptr(ev.getfunc('file_str_write'));
  file_var_read         := ptr(ev.getfunc('file_var_read'));
  file_var_write        := ptr(ev.getfunc('file_var_write'));
  font_create           := ptr(ev.getfunc('font_create'));
  font_remove           := ptr(ev.getfunc('font_remove'));
  fsin                  := ptr(ev.getfunc('fsin'));
  ftan                  := ptr(ev.getfunc('ftan'));
  fraction              := ptr(ev.getfunc('fraction'));
  game_save             := ptr(ev.getfunc('game_save'));
  game_load             := ptr(ev.getfunc('game_load'));
  handle                := ptr(ev.getfunc('handle'));
  _integer              := ptr(ev.getfunc('integer'));
  key_pressed           := ptr(ev.getfunc('key_pressed'));
  key_set               := ptr(ev.getfunc('key_set'));
  layer_sort            := ptr(ev.getfunc('layer_sort'));
  level_load            := ptr(ev.getfunc('level_load'));
  level_mark            := ptr(ev.getfunc('level_mark'));
  level_free            := ptr(ev.getfunc('level_free'));
  logv                  := ptr(ev.getfunc('logv'));
  log10v                := ptr(ev.getfunc('log10v'));
  mat_effect            := ptr(ev.getfunc('mat_effect'));
  mat_identity          := ptr(ev.getfunc('mat_identity'));
  mat_inverse           := ptr(ev.getfunc('mat_inverse'));
  mat_multiply          := ptr(ev.getfunc('mat_multiply'));
  mat_scale             := ptr(ev.getfunc('mat_scale'));
  mat_set               := ptr(ev.getfunc('mat_set'));
  mat_transpose         := ptr(ev.getfunc('mat_transpose'));
  maxv                  := ptr(ev.getfunc('maxv'));
  minv                  := ptr(ev.getfunc('minv'));
  mtl_create            := ptr(ev.getfunc('mtl_create'));
  media_loop            := ptr(ev.getfunc('media_loop'));
  media_pause           := ptr(ev.getfunc('medial_pause'));
  media_play            := ptr(ev.getfunc('media_play'));
  media_playing         := ptr(ev.getfunc('media_playing'));
  media_start           := ptr(ev.getfunc('media_start'));