equal
deleted
inserted
replaced
1067 for j:= 0 to 7 do |
1067 for j:= 0 to 7 do |
1068 begin |
1068 begin |
1069 hh:= team^.Hedgehogs[j]; |
1069 hh:= team^.Hedgehogs[j]; |
1070 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then |
1070 if (hh.Gear <> nil) or (hh.GearHidden <> nil) then |
1071 begin |
1071 begin |
1072 FreeTexture(hh.NameTagTex); |
1072 FreeAndNilTexture(hh.NameTagTex); |
1073 hh.NameTagTex:= RenderStringTex(ansistring(hh.Name), clan^.Color, fnt16); |
1073 hh.NameTagTex:= RenderStringTex(ansistring(hh.Name), clan^.Color, fnt16); |
1074 RenderHealth(hh); |
1074 RenderHealth(hh); |
1075 end; |
1075 end; |
1076 end; |
1076 end; |
1077 FreeTexture(team^.NameTagTex); |
1077 FreeAndNilTexture(team^.NameTagTex); |
1078 team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16); |
1078 team^.NameTagTex:= RenderStringTex(ansistring(clan^.Teams[i]^.TeamName), clan^.Color, fnt16); |
1079 end; |
1079 end; |
1080 |
1080 |
1081 FreeTexture(clan^.HealthTex); |
1081 FreeAndNilTexture(clan^.HealthTex); |
1082 clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color); |
1082 clan^.HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, clan^.Teams[0]^.NameTagTex^.h, clan^.Color); |
1083 end; |
1083 end; |
1084 |
1084 |
1085 lc_setclancolor:= 0 |
1085 lc_setclancolor:= 0 |
1086 end; |
1086 end; |
1109 gear := GearByUID(lua_tointeger(L, 1)); |
1109 gear := GearByUID(lua_tointeger(L, 1)); |
1110 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then |
1110 if (gear <> nil) and ((gear^.Kind = gtHedgehog) or (gear^.Kind = gtGrave)) and (gear^.Hedgehog <> nil) then |
1111 begin |
1111 begin |
1112 gear^.Hedgehog^.Team^.TeamName := lua_tostring(L, 2); |
1112 gear^.Hedgehog^.Team^.TeamName := lua_tostring(L, 2); |
1113 |
1113 |
1114 FreeTexture(gear^.Hedgehog^.Team^.NameTagTex); |
1114 FreeAndNilTexture(gear^.Hedgehog^.Team^.NameTagTex); |
1115 gear^.Hedgehog^.Team^.NameTagTex:= RenderStringTex(ansistring(gear^.Hedgehog^.Team^.TeamName), gear^.Hedgehog^.Team^.Clan^.Color, fnt16); |
1115 gear^.Hedgehog^.Team^.NameTagTex:= RenderStringTex(ansistring(gear^.Hedgehog^.Team^.TeamName), gear^.Hedgehog^.Team^.Clan^.Color, fnt16); |
1116 end |
1116 end |
1117 else |
1117 else |
1118 lua_pushnil(L); |
1118 lua_pushnil(L); |
1119 end |
1119 end |
1148 gear:= GearByUID(lua_tointeger(L, 1)); |
1148 gear:= GearByUID(lua_tointeger(L, 1)); |
1149 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
1149 if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then |
1150 begin |
1150 begin |
1151 gear^.Hedgehog^.Name:= lua_tostring(L, 2); |
1151 gear^.Hedgehog^.Name:= lua_tostring(L, 2); |
1152 |
1152 |
1153 FreeTexture(gear^.Hedgehog^.NameTagTex); |
1153 FreeAndNilTexture(gear^.Hedgehog^.NameTagTex); |
1154 gear^.Hedgehog^.NameTagTex:= RenderStringTex(ansistring(gear^.Hedgehog^.Name), gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
1154 gear^.Hedgehog^.NameTagTex:= RenderStringTex(ansistring(gear^.Hedgehog^.Name), gear^.Hedgehog^.Team^.Clan^.Color, fnt16) |
1155 end |
1155 end |
1156 end; |
1156 end; |
1157 lc_sethogname:= 0; |
1157 lc_sethogname:= 0; |
1158 end; |
1158 end; |