hedgewars: comparison hedgewars/uScript.pas

equal deleted inserted replaced

-:803b277e4894
+:3f21a9dc93d0
 procedure free_uScript;
 implementation
 {$IFNDEF IPHONEOS}
 uses LuaPas in 'LuaPas.pas',
-	uConsole,
+uConsole,
-	uMisc,
+uMisc,
-	uConsts,
+uConsts,
-	uGears,
+uGears,
-	uFloat,
+uFloat,
-	uWorld,
+uWorld,
-	uAmmos,
+uAmmos,
-	uSound,
+uSound,
-	uTeams,
+uTeams,
-	uKeys,
+uKeys,
-	typinfo;
+typinfo;
 var luaState : Plua_State;
-	ScriptAmmoStore : shortstring;
+ScriptAmmoStore : shortstring;
-	ScriptLoaded : boolean;
+ScriptLoaded : boolean;
 procedure ScriptPrepareAmmoStore; forward;
 procedure ScriptApplyAmmoStore; forward;
 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability: Byte); forward;
 // wrapped calls //
 // where L contains the state, returns the number of return values on the stack
 // call lua_gettop(L) to receive number of parameters passed
 function lc_writelntoconsole(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) = 1 then
+if lua_gettop(L) = 1 then
-		begin
+begin
-		WriteLnToConsole('LUA: ' + lua_tostring(L ,1));
+WriteLnToConsole('LUA: ' + lua_tostring(L ,1));
-		end
+end
-	else
+else
-		WriteLnToConsole('LUA: Wrong number of parameters passed to WriteLnToConsole!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to WriteLnToConsole!');
-	lc_writelntoconsole:= 0;
+lc_writelntoconsole:= 0;
 end;
 function lc_parsecommand(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) = 1 then
+if lua_gettop(L) = 1 then
-		begin
+begin
-		ParseCommand(lua_tostring(L ,1), true);
+ParseCommand(lua_tostring(L ,1), true);
-		end
+end
-	else
+else
-		WriteLnToConsole('LUA: Wrong number of parameters passed to ParseCommand!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to ParseCommand!');
-	lc_parsecommand:= 0;
+lc_parsecommand:= 0;
 end;
 function lc_showmission(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) = 5 then
+if lua_gettop(L) = 5 then
-		begin
+begin
-		ShowMission(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
+ShowMission(lua_tostring(L, 1), lua_tostring(L, 2), lua_tostring(L, 3), lua_tointeger(L, 4), lua_tointeger(L, 5));
-		end
+end
-	else
+else
-		WriteLnToConsole('LUA: Wrong number of parameters passed to ShowMission!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to ShowMission!');
-	lc_showmission:= 0;
+lc_showmission:= 0;
 end;
 function lc_hidemission(L : Plua_State) : LongInt; Cdecl;
 begin
-	HideMission;
+HideMission;
-	lc_hidemission:= 0;
+lc_hidemission:= 0;
 end;
 function lc_addgear(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
-	x, y, s, t: LongInt;
+x, y, s, t: LongInt;
-	dx, dy: hwFloat;
+dx, dy: hwFloat;
-	gt: TGearType;
+gt: TGearType;
 begin
-	if lua_gettop(L) <> 7 then
+if lua_gettop(L) <> 7 then
-		begin
+begin
-		WriteLnToConsole('LUA: Wrong number of parameters passed to AddGear!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to AddGear!');
-		lua_pushnil(L); // return value on stack (nil)
+lua_pushnil(L); // return value on stack (nil)
-		end
+end
-	else
+else
-		begin
+begin
-		x:= lua_tointeger(L, 1);
+x:= lua_tointeger(L, 1);
-		y:= lua_tointeger(L, 2);
+y:= lua_tointeger(L, 2);
-		gt:= TGearType(lua_tointeger(L, 3));
+gt:= TGearType(lua_tointeger(L, 3));
-		s:= lua_tointeger(L, 4);
+s:= lua_tointeger(L, 4);
-		dx:= int2hwFloat(round(lua_tonumber(L, 5) * 1000)) / 1000;
+dx:= int2hwFloat(round(lua_tonumber(L, 5) * 1000)) / 1000;
-		dy:= int2hwFloat(round(lua_tonumber(L, 6) * 1000)) / 1000;
+dy:= int2hwFloat(round(lua_tonumber(L, 6) * 1000)) / 1000;
-		t:= lua_tointeger(L, 7);
+t:= lua_tointeger(L, 7);
-		gear:= AddGear(x, y, gt, s, dx, dy, t);
+gear:= AddGear(x, y, gt, s, dx, dy, t);
-		lua_pushnumber(L, gear^.uid)
+lua_pushnumber(L, gear^.uid)
-		end;
+end;
-	lc_addgear:= 1; // 1 return value
+lc_addgear:= 1; // 1 return value
 end;
 function lc_getgeartype(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-	if lua_gettop(L) <> 1 then
+if lua_gettop(L) <> 1 then
-		begin
+begin
-		WriteLnToConsole('LUA: Wrong number of parameters passed to GetGearType!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to GetGearType!');
-		lua_pushnil(L); // return value on stack (nil)
+lua_pushnil(L); // return value on stack (nil)
-		end
+end
-	else
+else
-		begin
+begin
-		gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(lua_tointeger(L, 1));
-		if gear <> nil then
+if gear <> nil then
-			lua_pushinteger(L, ord(gear^.Kind))
+lua_pushinteger(L, ord(gear^.Kind))
-		end;
+end;
-	lc_getgeartype:= 1
+lc_getgeartype:= 1
 end;
 function lc_sethealth(L : Plua_State) : LongInt; Cdecl;
 var gear : PGear;
 begin
-	if lua_gettop(L) <> 2 then
+if lua_gettop(L) <> 2 then
-		begin
+begin
-		WriteLnToConsole('LUA: Wrong number of parameters passed to SetHealth!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to SetHealth!');
-		end
+end
-	else
+else
-		begin
+begin
-		gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(lua_tointeger(L, 1));
-		if (gear <> nil) and (gear^.Kind = gtHedgehog) then gear^.Health:= lua_tointeger(L, 2)
+if (gear <> nil) and (gear^.Kind = gtHedgehog) then gear^.Health:= lua_tointeger(L, 2)
-		end;
+end;
-	lc_sethealth:= 0
+lc_sethealth:= 0
 end;
 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
 begin
-	GameState:= gsExit;
+GameState:= gsExit;
-	lc_endgame:= 0
+lc_endgame:= 0
 end;
 function lc_findplace(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
-	fall: boolean;
+fall: boolean;
-	left, right: LongInt;
+left, right: LongInt;
 begin
-	if lua_gettop(L) <> 4 then
+if lua_gettop(L) <> 4 then
-		WriteLnToConsole('LUA: Wrong number of parameters passed to FindPlace!')
+WriteLnToConsole('LUA: Wrong number of parameters passed to FindPlace!')
-	else
+else
-		begin
+begin
-		gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(lua_tointeger(L, 1));
-		fall:= lua_toboolean(L, 2);
+fall:= lua_toboolean(L, 2);
-		left:= lua_tointeger(L, 3);
+left:= lua_tointeger(L, 3);
-		right:= lua_tointeger(L, 4);
+right:= lua_tointeger(L, 4);
-		if gear <> nil then
+if gear <> nil then
-			FindPlace(gear, fall, left, right)
+FindPlace(gear, fall, left, right)
-		end;
+end;
-	lc_findplace:= 0
+lc_findplace:= 0
 end;
 function lc_playsound(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) <> 1 then
+if lua_gettop(L) <> 1 then
-		WriteLnToConsole('LUA: Wrong number of parameters passed to PlaySound!')
+WriteLnToConsole('LUA: Wrong number of parameters passed to PlaySound!')
-	else
+else
-		PlaySound(TSound(lua_tointeger(L, 1)));
+PlaySound(TSound(lua_tointeger(L, 1)));
-	lc_playsound:= 0;
+lc_playsound:= 0;
 end;
 function lc_addteam(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) <> 5 then
+if lua_gettop(L) <> 5 then
-		begin
+begin
-		WriteLnToConsole('LUA: Wrong number of parameters passed to AddTeam!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to AddTeam!');
-		//lua_pushnil(L)
+//lua_pushnil(L)
-		end
+end
-	else
+else
-		begin
+begin
-		ParseCommand('addteam x ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 1), true);
+ParseCommand('addteam x ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 1), true);
-		ParseCommand('grave ' + lua_tostring(L, 3), true);
+ParseCommand('grave ' + lua_tostring(L, 3), true);
-		ParseCommand('fort ' + lua_tostring(L, 4), true);
+ParseCommand('fort ' + lua_tostring(L, 4), true);
-		ParseCommand('voicepack ' + lua_tostring(L, 5), true);
+ParseCommand('voicepack ' + lua_tostring(L, 5), true);
-		CurrentTeam^.Binds:= DefaultBinds;
+CurrentTeam^.Binds:= DefaultBinds;
-		// fails on x64
+// fails on x64
-		//lua_pushinteger(L, LongInt(CurrentTeam));
+//lua_pushinteger(L, LongInt(CurrentTeam));
-		end;
+end;
-	lc_addteam:= 0;//1;
+lc_addteam:= 0;//1;
 end;
 function lc_addhog(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) <> 4 then
+if lua_gettop(L) <> 4 then
-		begin
+begin
-		WriteLnToConsole('LUA: Wrong number of parameters passed to AddHog!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to AddHog!');
-		lua_pushnil(L)
+lua_pushnil(L)
-		end
+end
-	else
+else
-		begin
+begin
-		ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true);
+ParseCommand('addhh ' + lua_tostring(L, 2) + ' ' + lua_tostring(L, 3) + ' ' + lua_tostring(L, 1), true);
-		ParseCommand('hat ' + lua_tostring(L, 4), true);
+ParseCommand('hat ' + lua_tostring(L, 4), true);
-		lua_pushinteger(L, CurrentHedgehog^.Gear^.uid);
+lua_pushinteger(L, CurrentHedgehog^.Gear^.uid);
-		end;
+end;
-	lc_addhog:= 1;
+lc_addhog:= 1;
 end;
 function lc_getgearposition(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
 begin
-	if lua_gettop(L) <> 1 then
+if lua_gettop(L) <> 1 then
-		begin
+begin
-		WriteLnToConsole('LUA: Wrong number of parameters passed to GetGearPosition!');
+WriteLnToConsole('LUA: Wrong number of parameters passed to GetGearPosition!');
-		lua_pushnil(L);
+lua_pushnil(L);
-		lua_pushnil(L)
+lua_pushnil(L)
-		end
+end
-	else
+else
-		begin
+begin
-		gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(lua_tointeger(L, 1));
-		if gear <> nil then
+if gear <> nil then
-			begin
+begin
-			lua_pushinteger(L, hwRound(gear^.X));
+lua_pushinteger(L, hwRound(gear^.X));
-			lua_pushinteger(L, hwRound(gear^.Y))
+lua_pushinteger(L, hwRound(gear^.Y))
-			end
+end
-		end;
+end;
-	lc_getgearposition:= 2;
+lc_getgearposition:= 2;
 end;
 function lc_setgearposition(L : Plua_State) : LongInt; Cdecl;
 var gear: PGear;
-	x, y: LongInt;
+x, y: LongInt;
 begin
-	if lua_gettop(L) <> 3 then
+if lua_gettop(L) <> 3 then
-		WriteLnToConsole('LUA: Wrong number of parameters passed to SetGearPosition!')
+WriteLnToConsole('LUA: Wrong number of parameters passed to SetGearPosition!')
-	else
+else
-		begin
+begin
-		gear:= GearByUID(lua_tointeger(L, 1));
+gear:= GearByUID(lua_tointeger(L, 1));
-		if gear <> nil then
+if gear <> nil then
-			begin
+begin
-			x:= lua_tointeger(L, 2);
+x:= lua_tointeger(L, 2);
-			y:= lua_tointeger(L, 3);
+y:= lua_tointeger(L, 3);
-			gear^.X:= int2hwfloat(x);
+gear^.X:= int2hwfloat(x);
-			gear^.Y:= int2hwfloat(y);
+gear^.Y:= int2hwfloat(y);
-			end
+end
-		end;
+end;
-	lc_setgearposition:= 0
+lc_setgearposition:= 0
 end;
 function lc_setammo(L : Plua_State) : LongInt; Cdecl;
 begin
-	if lua_gettop(L) <> 3 then
+if lua_gettop(L) <> 3 then
-		WriteLnToConsole('LUA: Wrong number of parameters passed to SetAmmo!')
+WriteLnToConsole('LUA: Wrong number of parameters passed to SetAmmo!')
-	else
+else
-		begin
+begin
-		ScriptSetAmmo(TAmmoType(lua_tointeger(L, 1)), lua_tointeger(L, 2), lua_tointeger(L, 3));
+ScriptSetAmmo(TAmmoType(lua_tointeger(L, 1)), lua_tointeger(L, 2), lua_tointeger(L, 3));
-		end;
+end;
-	lc_setammo:= 0
+lc_setammo:= 0
 end;
 ///////////////////
 procedure ScriptPrintStack;
 var n, i : LongInt;
 begin
-	n:= lua_gettop(luaState);
+n:= lua_gettop(luaState);
-	WriteLnToConsole('LUA: Stack (' + inttostr(n) + ' elements):');
+WriteLnToConsole('LUA: Stack (' + inttostr(n) + ' elements):');
-	for i:= 1 to n do
+for i:= 1 to n do
-		if not lua_isboolean(luaState, i) then
+if not lua_isboolean(luaState, i) then
-			WriteLnToConsole('LUA:  ' + inttostr(i) + ': ' + lua_tostring(luaState, i))
+WriteLnToConsole('LUA:  ' + inttostr(i) + ': ' + lua_tostring(luaState, i))
-		else if lua_toboolean(luaState, i) then
+else if lua_toboolean(luaState, i) then
-			WriteLnToConsole('LUA:  ' + inttostr(i) + ': true')
+WriteLnToConsole('LUA:  ' + inttostr(i) + ': true')
-		else
+else
-			WriteLnToConsole('LUA:  ' + inttostr(i) + ': false');
+WriteLnToConsole('LUA:  ' + inttostr(i) + ': false');
 end;
 procedure ScriptClearStack;
 begin
 lua_settop(luaState, 0)
 lua_pop(luaState, 1);
 end;
 procedure ScriptOnGameInit;
 begin
-	// not required if there's no script to run
+// not required if there's no script to run
-	if not ScriptLoaded then
+if not ScriptLoaded then
-		exit;
+exit;
-	// push game variables so they may be modified by the script
+// push game variables so they may be modified by the script
-	ScriptSetInteger('GameFlags', GameFlags);
+ScriptSetInteger('GameFlags', GameFlags);
-	ScriptSetString('Seed', cSeed);
+ScriptSetString('Seed', cSeed);
-	ScriptSetInteger('TurnTime', cHedgehogTurnTime);
+ScriptSetInteger('TurnTime', cHedgehogTurnTime);
-	ScriptSetInteger('CaseFreq', cCaseFactor);
+ScriptSetInteger('CaseFreq', cCaseFactor);
-	ScriptSetInteger('LandAdds', cLandAdditions);
+ScriptSetInteger('LandAdds', cLandAdditions);
-	ScriptSetInteger('Delay', cInactDelay);
+ScriptSetInteger('Delay', cInactDelay);
-	ScriptSetString('Map', '');
+ScriptSetString('Map', '');
-	ScriptSetString('Theme', '');
+ScriptSetString('Theme', '');
-	ScriptCall('onGameInit');
+ScriptCall('onGameInit');
-	// pop game variables
+// pop game variables
-	ParseCommand('seed ' + ScriptGetString('Seed'), true);
+ParseCommand('seed ' + ScriptGetString('Seed'), true);
-	ParseCommand('$gmflags ' + ScriptGetString('GameFlags'), true);
+ParseCommand('$gmflags ' + ScriptGetString('GameFlags'), true);
-	ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true);
+ParseCommand('$turntime ' + ScriptGetString('TurnTime'), true);
-	ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true);
+ParseCommand('$casefreq ' + ScriptGetString('CaseFreq'), true);
-	ParseCommand('$landadds ' + ScriptGetString('LandAdds'), true);
+ParseCommand('$landadds ' + ScriptGetString('LandAdds'), true);
-	ParseCommand('$delay ' + ScriptGetString('Delay'), true);
+ParseCommand('$delay ' + ScriptGetString('Delay'), true);
-	if ScriptGetString('Map') <> '' then
+if ScriptGetString('Map') <> '' then
-		ParseCommand('map ' + ScriptGetString('Map'), true);
+ParseCommand('map ' + ScriptGetString('Map'), true);
-	if ScriptGetString('Theme') <> '' then
+if ScriptGetString('Theme') <> '' then
-		ParseCommand('theme ' + ScriptGetString('Theme'), true);
+ParseCommand('theme ' + ScriptGetString('Theme'), true);
-	ScriptPrepareAmmoStore;
+ScriptPrepareAmmoStore;
-	ScriptCall('onAmmoStoreInit');
+ScriptCall('onAmmoStoreInit');
-	ScriptApplyAmmoStore;
+ScriptApplyAmmoStore;
 end;
 procedure ScriptLoad(name : shortstring);
 var ret : LongInt;
 begin
-	ret:= luaL_loadfile(luaState, Str2PChar(name));
+ret:= luaL_loadfile(luaState, Str2PChar(name));
-	if ret <> 0 then
+if ret <> 0 then
-		WriteLnToConsole('LUA: Failed to load ' + name + '(error ' + IntToStr(ret) + ')')
+WriteLnToConsole('LUA: Failed to load ' + name + '(error ' + IntToStr(ret) + ')')
-	else
+else
-		begin
+begin
-		WriteLnToConsole('LUA: ' + name + ' loaded');
+WriteLnToConsole('LUA: ' + name + ' loaded');
-		// call the script file
+// call the script file
-		lua_pcall(luaState, 0, 0, 0);
+lua_pcall(luaState, 0, 0, 0);
-		ScriptLoaded:= true
+ScriptLoaded:= true
-		end
+end
 end;
 procedure SetGlobals;
 begin
-	ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
+ScriptSetInteger('TurnTimeLeft', TurnTimeLeft);
 end;
 procedure GetGlobals;
 begin
-	TurnTimeLeft:= ScriptGetInteger('TurnTimeLeft');
+TurnTimeLeft:= ScriptGetInteger('TurnTimeLeft');
 end;
 procedure ScriptCall(fname : shortstring);
 begin
-	if not ScriptLoaded then
+if not ScriptLoaded then
-		exit;
+exit;
-	SetGlobals;
+SetGlobals;
-	lua_getglobal(luaState, Str2PChar(fname));
+lua_getglobal(luaState, Str2PChar(fname));
-	if lua_pcall(luaState, 0, 0, 0) <> 0 then
+if lua_pcall(luaState, 0, 0, 0) <> 0 then
-		begin
+begin
-		WriteLnToConsole('LUA: Error while calling ' + fname + ': ' + lua_tostring(luaState, -1));
+WriteLnToConsole('LUA: Error while calling ' + fname + ': ' + lua_tostring(luaState, -1));
-		lua_pop(luaState, 1)
+lua_pop(luaState, 1)
-		end;
+end;
-	GetGlobals;
+GetGlobals;
 end;
 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 begin
 ScriptCall:= ScriptCall(fname, par1, 0, 0, 0)
 ScriptCall:= ScriptCall(fname, par1, par2, par3, 0)
 end;
 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;
 begin
-	if not ScriptLoaded then
+if not ScriptLoaded then
-		exit;
+exit;
-	SetGlobals;
+SetGlobals;
-	lua_getglobal(luaState, Str2PChar(fname));
+lua_getglobal(luaState, Str2PChar(fname));
-	lua_pushinteger(luaState, par1);
+lua_pushinteger(luaState, par1);
-	lua_pushinteger(luaState, par2);
+lua_pushinteger(luaState, par2);
-	lua_pushinteger(luaState, par3);
+lua_pushinteger(luaState, par3);
-	lua_pushinteger(luaState, par4);
+lua_pushinteger(luaState, par4);
-	ScriptCall:= 0;
+ScriptCall:= 0;
-	if lua_pcall(luaState, 4, 1, 0) <> 0 then
+if lua_pcall(luaState, 4, 1, 0) <> 0 then
-		begin
+begin
-		WriteLnToConsole('LUA: Error while calling ' + fname + ': ' + lua_tostring(luaState, -1));
+WriteLnToConsole('LUA: Error while calling ' + fname + ': ' + lua_tostring(luaState, -1));
-		lua_pop(luaState, 1)
+lua_pop(luaState, 1)
-		end
+end
-	else
+else
-		begin
+begin
-		ScriptCall:= lua_tointeger(luaState, -1);
+ScriptCall:= lua_tointeger(luaState, -1);
-		lua_pop(luaState, 1)
+lua_pop(luaState, 1)
-		end;
+end;
-	GetGlobals;
+GetGlobals;
 end;
 procedure ScriptPrepareAmmoStore;
 var i: ShortInt;
 begin
 ScriptAmmoStore:= '';
 for i:=1 to ord(High(TAmmoType)) do
-	ScriptAmmoStore:= ScriptAmmoStore + '0000';
+ScriptAmmoStore:= ScriptAmmoStore + '0000';
 end;
 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability: Byte);
 begin
 if (ord(ammo) < 1) or (count > 9) or (count < 0) or (propability < 0) or (propability > 8) then
-	exit;
+exit;
 ScriptAmmoStore[ord(ammo)]:= inttostr(count)[1];
 ScriptAmmoStore[ord(ammo) + ord(high(TAmmoType))]:= inttostr(propability)[1];
 end;
 procedure ScriptApplyAmmoStore;
 begin
-	AddAmmoStore(ScriptAmmoStore);
+AddAmmoStore(ScriptAmmoStore);
 end;
 // small helper functions making registering enums a lot easier
 function str(const en : TGearType) : shortstring; overload;
 begin
 end;
 ///////////////////
 procedure init_uScript;
 var at : TGearType;
-	am : TAmmoType;
+am : TAmmoType;
-	st : TSound;
+st : TSound;
 begin
 // initialize lua
 luaState:= lua_open;
 // open internal libraries
 ScriptSetInteger('gfRandomOrder',gfRandomOrder);
 ScriptSetInteger('gfKing',gfKing);
 // register gear types
 for at:= Low(TGearType) to High(TGearType) do
-	ScriptSetInteger(str(at), ord(at));
+ScriptSetInteger(str(at), ord(at));
 // register sounds
 for st:= Low(TSound) to High(TSound) do
-	ScriptSetInteger(str(st), ord(st));
+ScriptSetInteger(str(st), ord(st));
 // register ammo types
 for am:= Low(TAmmoType) to High(TAmmoType) do
-	ScriptSetInteger(str(am), ord(am));
+ScriptSetInteger(str(am), ord(am));
 // register functions
 lua_register(luaState, 'AddGear', @lc_addgear);
 lua_register(luaState, 'WriteLnToConsole', @lc_writelntoconsole);
 lua_register(luaState, 'GetGearType', @lc_getgeartype);
 lua_register(luaState, 'EndGame', @lc_endgame);

changeset 2948	3f21a9dc93d0
parent 2924	908851e59958
child 2949	d137a9da7701