Simba Code:
program ReflectionScript;
{$DEFINE SMART}
{$i srl\srl.scar}
{$i reflection\reflection.simba}
{$i srl/srl/misc/paintsmart.scar}
const
{---SMART Setup Constants---}
WORLD = 32;
MEMBERS = false;
SIGNED = true;
{---------------------------}
var
Playerss: TPlayerArray;
Dots, TextDots: array of TPointArray;
Colors: TIntegerArray;
i, Level, x, y, z: Integer;
TempPoint: TTile;
Ratio: string;
begin
Smart_Members := MEMBERS;
Smart_Server := WORLD;
Smart_Signed := SIGNED;
SetupSRL;
SetupReflectionEx(true);
SetArrayLength(Dots, 3);
Colors:= [65280, 16776960, 255];
repeat
Dots[0]:= [];
Dots[1]:= [];
Dots[2]:= [];
TextDots:= [];
Playerss:= GetPlayers;
Level:= GetMe.Level;
for i:=0 to High(Players) do
if (Playerss[i].Level < Level) then
begin
SetArrayLength(Dots[0], Length(Dots[0])+9);
TempPoint:= TileToMM(Playerss[i].Tile);
for z:=0 to 8 do
begin
x:= (z mod 3);
y:= (z div 3);
Dots[0][High(Dots[0])-z]:= Tile(TempPoint.x-1+x, TempPoint.y-1+y);
end;
end else
if (Playerss[i].Level = Level) then
begin
SetArrayLength(Dots[1], Length(Dots[1])+9);
TempPoint:= TileToMM(Playerss[i].Tile);
for z:=0 to 8 do
begin
x:= (z mod 3);
y:= (z div 3);
Dots[1][High(Dots[1])-z]:= Tile(TempPoint.x-1+x, TempPoint.y-1+y);
end;
end else
if (Playerss[i].Level > Level) then
begin
SetArrayLength(Dots[2], Length(Dots[2])+9);
TempPoint:= TileToMM(Playerss[i].Tile);
for z:=0 to 8 do
begin
x:= (z mod 3);
y:= (z div 3);
Dots[2][High(Dots[2])-z]:= Tile(TempPoint.x-1+x, TempPoint.y-1+y);
end;
end;
x:= 0;
for i:=0 to High(Players) do
if TileOnMS(Playerss[i].Tile, 30) then
begin
SetArrayLength(TextDots, Length(TextDots)+1);
TempPoint:= TileToMS(Playerss[i].Tile, 30);
if (Playerss[i]. HPRatio = 0) then
Ratio:= '100%'
else
Ratio:= IntToStr(Playerss[i].HPRatio)+'%';
TextDots[x]:= TPAFromText(Ratio, 'SmallChars', z, y);
for z:=0 to High(TextDots[x]) do
begin
IncEx(TextDots[x][z].x, TempPoint.x);
IncEx(TextDots[x][z].y, TempPoint.y);
end;
Inc(x);
end;
SMART_DrawDotsEx(True, Dots[0], Colors[0]);
SMART_DrawDotsEx(False, Dots[1], Colors[1]);
SMART_DrawDotsEx(False, Dots[2], Colors[2]);
for z:=0 to High(TextDots) do
Smart_DrawDotsEx(False, TextDots[z], 16776960);
until(false);
end.
