千年红豆千年纪念碑代码

Init/DynamicObject.sdb
红豆千年1,红豆千年纪念碑,8,101,,,,1,0,0,0,7,8,15,,9164,9165,,,,,,,,,30000,,4000,,,,,,,

Init/Script/红豆千年纪念碑.txt
unit 红豆千年纪念碑;

interface

function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation

procedure OnGetResult (aStr : String);
var
Str, Name : String;
begin
if aStr = 'close' then begin
exit;
end;
if aStr <> '' then begin
str := 'showwindow .help' + aStr;
Str := Str + '.txt';
print (str);
end;
end;

procedure OnLeftClick (aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
str := 'showwindow .help红豆千年纪念碑.txt 0';
print (str);
end;
end;


end.

Setting/CreateDynamicObject1.sdb
7,红豆千年1,151,,,,,,,,524,474,,,,

Script/script.sdb

151,红豆千年纪念碑.txt,,

注意:上面那两个151的对应.

Help/红豆千年纪念碑.txt





对红豆千年有卓越贡献的玩家将永远刻入石碑!!!


关闭

目前没有内容!!!