0 Members and 4 Guests are viewing this topic.
Semicolon after that:constColor = $FFFFFF;
constColor = $FFFFFF;var
const ClimbVersion = '1.0';{version of script} Color1 = $FFFFFF;{may add here for you to know later the color} Color2 = $ffff3333;{Red} Color3 = $FFFFFFFF;{White} Color4 = $7CFC00;{Sexy Green} Color5 = $00AA00;{bit darker Green} Color6 = $AA00AA;{Purple<3} Color7 = $ff999999;{Gray}varprocedure ActivateServer();begin writeln('> ClimbMode v' + ClimbVersion + ' loaded! ');end;
function Explode(Source: string; const Delimiter: string): array of string;var TempStr: string;begin Source := Source + Delimiter;repeat TempStr := GetPiece(Source, Delimiter, 0); SetArrayLength(Result, GetArrayLength(Result) + 1); Result[GetArrayLength(Result) - 1] := TempStr; Delete(Source, 1, Length(TempStr) + Length(Delimiter)); until Length(Source) = 0;end;
just 1 color.My next:We need a quick readCode: [Select]function Explode(Source: string; const Delimiter: string): array of string;var TempStr: string;begin Source := Source + Delimiter;repeat TempStr := GetPiece(Source, Delimiter, 0); SetArrayLength(Result, GetArrayLength(Result) + 1); Result[GetArrayLength(Result) - 1] := TempStr; Delete(Source, 1, Length(TempStr) + Length(Delimiter)); until Length(Source) = 0;end;Continue you...