equal
deleted
inserted
replaced
648 params = 'text [, color, captiongroup]'; |
648 params = 'text [, color, captiongroup]'; |
649 begin |
649 begin |
650 if CheckAndFetchParamCount(L, 1, 3, call, params, cg) then |
650 if CheckAndFetchParamCount(L, 1, 3, call, params, cg) then |
651 begin |
651 begin |
652 if cg = 1 then |
652 if cg = 1 then |
653 AddCaption(lua_tostringA(L, 1), cWhiteColor, capgrpMessage) |
653 AddCaption(lua_tostringA(L, 1), capcolDefault, capgrpMessage) |
654 else |
654 else |
655 begin |
655 begin |
656 cg:= LuaToCapGroupOrd(L, 3, call, params); |
656 cg:= LuaToCapGroupOrd(L, 3, call, params); |
657 if cg >= 0 then |
657 if cg >= 0 then |
658 AddCaption(lua_tostringA(L, 1), Trunc(lua_tonumber(L, 2)) shr 8, TCapGroup(cg)); |
658 AddCaption(lua_tostringA(L, 1), Trunc(lua_tonumber(L, 2)) shr 8, TCapGroup(cg)); |
3958 for mg:= Low(TMapGen) to High(TMapGen) do |
3958 for mg:= Low(TMapGen) to High(TMapGen) do |
3959 ScriptSetInteger(EnumToStr(mg), ord(mg)); |
3959 ScriptSetInteger(EnumToStr(mg), ord(mg)); |
3960 |
3960 |
3961 for we:= Low(TWorldEdge) to High(TWorldEdge) do |
3961 for we:= Low(TWorldEdge) to High(TWorldEdge) do |
3962 ScriptSetInteger(EnumToStr(we), ord(we)); |
3962 ScriptSetInteger(EnumToStr(we), ord(we)); |
|
3963 |
|
3964 ScriptSetInteger('capcolDefault' , capcolDefault); |
|
3965 ScriptSetInteger('capcolSetting' , capcolSetting); |
3963 |
3966 |
3964 ScriptSetInteger('gstDrowning' , gstDrowning); |
3967 ScriptSetInteger('gstDrowning' , gstDrowning); |
3965 ScriptSetInteger('gstHHDriven' , gstHHDriven); |
3968 ScriptSetInteger('gstHHDriven' , gstHHDriven); |
3966 ScriptSetInteger('gstMoving' , gstMoving); |
3969 ScriptSetInteger('gstMoving' , gstMoving); |
3967 ScriptSetInteger('gstAttacked' , gstAttacked); |
3970 ScriptSetInteger('gstAttacked' , gstAttacked); |