wuduz游戏站

标题: 千年红豆千年纪念碑代码 [打印本页]

---

: 无度站    时间: 2022-10-12 21:51     标题: 千年红豆千年纪念碑代码

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





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


关闭

目前没有内容!!!

---

欢迎光临 wuduz游戏站 (http://bbs.wuduz.com/)