千年服务端怪物攻城全部脚本代码
内容介绍
千年服务端怪物攻城全部脚本代码
Help文件夹，怪物攻城.txt。怪物攻城
真的要启动怪物攻城吗？
关闭
递上金月魂 启动东方怪物攻城
递上赤月魂 启动南方怪物攻城
递上银月魂 启动北方怪物攻城
递上翠月魂 启动西方怪物攻城
递上蓝月魂 启动中央怪物攻城
script 文件夹，怪物攻城.txt。
unit 怪物攻城;
interface
functionGetToken (aStr, aToken, aSep : String) : String;
functionCompareStr (aStr1, aStr2 : String) : Boolean;
functioncallfunc (aText: string): string;
procedure print (aText: string);
functionRandom (aScope: integer): integer;
functionLength (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
functionStrToInt (astr: string): integer;
functionIntToStr (aInt: integer): string;
procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
implementation
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);
exit;
end;
end;
procedure OnGetResult (aStr : String);
var
Str, Name : String;
iRandom : Integer;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'nanfang' then begin
Str := callfunc ('getsenderitemexistence 赤月魂:1');
if Str = 'false' then begin
print ('say 用15个月之灵20个月之环加15个月之音合成赤月魂才能启动');
exit;
end;
print ('mapaddobjbyname monster 王冠守护者 493 498 2 0 false');
print ('mapaddobjbyname monster 祭天死神 497 495 2 0 false');
print ('mapaddobjbyname monster 祭天使者 500 492 2 0 false');
print ('mapaddobjbyname monster 神母 507 499 2 0 false');
print ('mapaddobjbyname monster 恐惧魔王 503 500 2 0 false');
print ('mapaddobjbyname monster 深渊魔王 500 503 2 0 false');
Str := 'getsenderitem 赤月魂:1';
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + Name;
Str := Str + '提醒您，南方怪物攻城告急!!';
print (Str);
exit;
end;
if aStr = 'dongfang' then begin
Str := callfunc ('getsenderitemexistence 金月魂:1');
if Str = 'false' then begin
print ('say 用15个月之流20个月之华加15个月之音合成金月魂才能启动');
exit;
end;
print ('mapaddobjbyname monster 聂风 545 501 2 0 false');
print ('mapaddobjbyname monster 第二梦 543 499 2 0 false');
print ('mapaddobjbyname monster 楚楚 541 497 2 0 false');
print ('mapaddobjbyname monster 步惊云 546 492 2 0 false');
print ('mapaddobjbyname monster 刀皇 548 494 2 0 false');
print ('mapaddobjbyname monster 剑圣 550 496 2 0 false');
Str := 'getsenderitem 金月魂:1';
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + Name;
Str := Str + '提醒您，东方怪物攻城告急!!';
print (Str);
exit;
end;
if aStr = 'beifang' then begin
Str := callfunc ('getsenderitemexistence 银月魂:1');
if Str = 'false' then begin
print ('say 用15个月之华20个月之流加15个月之环合成银月魂才能启动');
exit;
end;
print ('mapaddobjbyname monster 张飞 546 448 2 0 false');
print ('mapaddobjbyname monster 关羽 544 450 2 0 false');
print ('mapaddobjbyname monster 赵云 542 452 2 0 false');
print ('mapaddobjbyname monster 隐龙 547 457 2 0 false');
print ('mapaddobjbyname monster 国王 550 454 2 0 false');
print ('mapaddobjbyname monster 神剑守护者 544 460 2 0 false');
Str := 'getsenderitem 银月魂:1';
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + Name;
Str := Str + '提醒您，北方怪物攻城告急!!';
print (Str);
exit;
end;
if aStr = 'xifang' then begin
Str := callfunc ('getsenderitemexistence 翠月魂:1');
if Str = 'false' then begin
print ('say 用15个月之灵15个月之流加20个月之音合成翠月魂才能启动');
exit;
end;
print ('mapaddobjbyname monster 怀空 493 448 2 0 false');
print ('mapaddobjbyname monster 怀灭 496 451 2 0 false');
print ('mapaddobjbyname monster 白伶 498 453 2 0 false');
print ('mapaddobjbyname monster 断浪 504 449 2 0 false');
print ('mapaddobjbyname monster 剑晨 501 446 2 0 false');
print ('mapaddobjbyname monster 左护法 498 443 2 0 false');
Str := 'getsenderitem 翠月魂:1';
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + Name;
Str := Str + '提醒您，西方怪物攻城告急!!';
print (Str);
exit;
end;
if aStr = 'zhongyang' then begin
Str := callfunc ('getsenderitemexistence 蓝月魂:1');
if Str = 'false' then begin
print ('say 用20个月之灵15个月之华加15个月之环合成翠月魂才能启动');
exit;
end;
print ('mapaddobjbyname monster 纯一狼 533 466 2 0 false');
print ('mapaddobjbyname monster 瑤池聖母 527 472 2 0 false');
print ('mapaddobjbyname monster 杨过 529 479 2 0 false');
print ('mapaddobjbyname monster 小龙女 520 478 2 0 false');
print ('mapaddobjbyname monster 人王伏羲 520 469 2 0 false');
print ('mapaddobjbyname monster 破天弓箭手 524 477 2 0 false');
Str := 'getsenderitem 蓝月魂:1';
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + Name;
Str := Str + '提醒您，中央怪物攻城告急!!';
print (Str);
exit;
end;
end;
end.
其他的在SettingInit 文件夹中的文件自己设置即可。
恢复规划规范化规范化
页:
[1]