千年私服五大灵珠与蜀山任务系统
Help
蜀山大师兄.txt
师弟炼制成[圣灵珠]了吗?
关闭
递上圣灵珠
蜀山弟子.txt
这位少侠你可以帮我的忙吗?
当你凑齐雷,风,水,土,火灵珠的时候再来找我!
关闭
交换圣灵珠
Init
Item.sdb
火灵珠,火灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,5,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
水灵珠,水灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,2,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
土灵珠,土灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,85,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
风灵珠,风灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,30,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
雷灵珠,雷灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,7,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
圣灵珠,圣灵珠,4,,,,,,,,TRUE,FALSE,586,,,,,,,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
NpcSetting
蜀山大师兄.sdb
1,TRUE,,,,希望小师弟早日炼制成[圣灵珠],,,,,1000,
2,TRUE,,,,到时...嘿嘿!!!,,,,,1300,
蜀山弟子.sdb
1,TRUE,,,,怎么办呢?怎么办呢?....,,,,,1000,
2,TRUE,,,,五大灵珠什么时候才可以凑齐呢?,,,,,1285,
3,TRUE,,,,有了五大灵珠就可以炼制大师兄需要的[圣灵珠]了!,,,,,1472,
4,TRUE,,,,圣灵珠可是好东西啊!,,,,,1672,
Script
Script.sdb
153,蜀山大师兄.txt,,
154,蜀山弟子.txt,,
蜀山大师兄.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;
iCount, iKind : Integer;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'changeweapon' then begin
Str := callfunc ('getsenderitemexistence 圣灵珠:1');
if Str = 'false' then begin
print ('say 你有圣灵珠?');
exit;
end;
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 您的物品栏已满~');
exit;
end;
print ('getsenderitem 圣灵珠:1');
iKind:= Random (33);
if iKind = 0 then begin
Str := 'putsendermagicitem 百炼血魔宝剑 @蜀山大师兄 4';
print (Str);
end;
if iKind = 1 then begin
Str := 'putsendermagicitem 百炼噬血魔神枪 @蜀山大师兄 4';
print (Str);
end;
if iKind = 2 then begin
Str := 'putsendermagicitem 百炼血皇震天斧 @蜀山大师兄 4';
print (Str);
end;
if iKind = 3 then begin
Str := 'putsendermagicitem 百炼血魔鬼爪 @蜀山大师兄 4';
print (Str);
end;
if iKind = 4 then begin
Str := 'putsendermagicitem 群魔乱舞 @蜀山大师兄 4';
print (Str);
end;
if iKind = 5 then begin
Str := 'putsendermagicitem 百炼男子魔人护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 6 then begin
Str := 'putsendermagicitem 百炼女子魔人护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 7 then begin
Str := 'putsendermagicitem 血轮回 @蜀山大师兄 4';
print (Str);
end;
if iKind = 8 then begin
Str := 'putsendermagicitem 百炼男子血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 9 then begin
Str := 'putsendermagicitem 群魔乱舞 @蜀山大师兄 4';
print (Str);
end;
if iKind = 10 then begin
Str := 'putsendermagicitem 血魔弓术 @蜀山大师兄 4';
print (Str);
end;
if iKind = 11 then begin
Str := 'putsendermagicitem 男子百炼血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 12 then begin
Str := 'putsendermagicitem 男子百炼血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 13 then begin
Str := 'putsendermagicitem 三味真火 @蜀山大师兄 4';
print (Str);
end;
if iKind = 14 then begin
Str := 'putsendermagicitem 女子百炼血魔战靴 @蜀山大师兄 4';
print (Str);
end;
if iKind = 15 then begin
Str := 'putsendermagicitem 三界妖灵 @蜀山大师兄 4';
print (Str);
end;
if iKind = 16 then begin
Str := 'putsendermagicitem 拜月神弓 @蜀山大师兄 4';
print (Str);
end;
if iKind = 17 then begin
Str := 'putsendermagicitem 男子百炼血魔护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 18 then begin
Str := 'putsendermagicitem 女子百炼血魔护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 19 then begin
Str := 'putsendermagicitem 后羿神弓 @蜀山大师兄 4';
print (Str);
end;
if iKind =20 then begin
Str := 'putsendermagicitem 天罡战气 @蜀山大师兄 4';
print (Str);
end;
if iKind = 21 then begin
Str := 'putsendermagicitem 男子百炼血魔护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 22 then begin
Str := 'putsendermagicitem 冰咆哮 @蜀山大师兄 4';
print (Str);
end;
if iKind = 23 then begin
Str := 'putsendermagicitem 男子婚袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 24 then begin
Str := 'putsendermagicitem 女子婚袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 25 then begin
Str := 'putsendermagicitem 阿修罗神弓 @蜀山大师兄 4';
print (Str);
end;
if iKind = 26 then begin
Str := 'putsendermagicitem 诸神黄昏 @蜀山大师兄 4';
print (Str);
end;
if iKind = 27 then begin
Str := 'putsendermagicitem 百炼梅雨弓 @蜀山大师兄 4';
print (Str);
end;
if iKind = 28 then begin
Str := 'putsendermagicitem 百炼血狱斗甲 @蜀山大师兄 4';
print (Str);
end;
if iKind = 29 then begin
Str := 'putsendermagicitem 女子百炼血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 30 then begin
Str := 'putsendermagicitem 女子百炼血魔头盔 @蜀山大师兄 4';
print (Str);
end;
if iKind = 31 then begin
Str := 'putsendermagicitem 百炼血魔神刀 @蜀山大师兄 4';
print (Str);
end;
if iKind = 32 then begin
Str := 'putsendermagicitem 百炼噬血魔神枪 @蜀山大师兄 4';
print (Str);
end;
print ('say 太好了,我终于得到这玩意儿了!');
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 1';
print (Str);
exit;
end;
end;
end.
蜀山弟子.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 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 1';
print (Str);
exit;
end;
end;
procedure OnGetResult (aStr : String);
var
Str, Name : String;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'make' then begin
Str := callfunc ('getsenderitemexistence 雷灵珠:1');
if Str = 'false' then begin
print ('say 可有雷灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 风灵珠:1');
if Str = 'false' then begin
print ('say 可有风灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 水灵珠:1');
if Str = 'false' then begin
print ('say 可有水灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 土灵珠:1');
if Str = 'false' then begin
print ('say 可有土灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 火灵珠:1');
if Str = 'false' then begin
print ('say 可有火灵珠?');
exit;
end;
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 物品栏已满');
exit;
end;
print ('getsenderitem 雷灵珠:1');
print ('getsenderitem 风灵珠:1');
print ('getsenderitem 水灵珠:1');
print ('getsenderitem 土灵珠:1');
print ('getsenderitem 火灵珠:1');
Str := 'putsendermagicitem 圣灵珠 @蜀山弟子 4';
print (Str);
print ('say 拿着圣灵珠去找我大师兄吧!');
exit;
end;
end;
end;
end.
Setting
CreateNpc1.sdb
107,蜀山大师兄,743,963,1,3,153,蜀山大师兄.sdb,
108,蜀山弟子,502,479,1,3,154,蜀山弟子.sdb,
商业版发布站程序下载:发布站程序下载:
蜀山大师兄.txt
师弟炼制成[圣灵珠]了吗?
蜀山弟子.txt
这位少侠你可以帮我的忙吗?
当你凑齐雷,风,水,土,火灵珠的时候再来找我!
Init
Item.sdb
火灵珠,火灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,5,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
水灵珠,水灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,2,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
土灵珠,土灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,85,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
风灵珠,风灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,30,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
雷灵珠,雷灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,7,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
圣灵珠,圣灵珠,4,,,,,,,,TRUE,FALSE,586,,,,,,,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
NpcSetting
蜀山大师兄.sdb
1,TRUE,,,,希望小师弟早日炼制成[圣灵珠],,,,,1000,
2,TRUE,,,,到时...嘿嘿!!!,,,,,1300,
蜀山弟子.sdb
1,TRUE,,,,怎么办呢?怎么办呢?....,,,,,1000,
2,TRUE,,,,五大灵珠什么时候才可以凑齐呢?,,,,,1285,
3,TRUE,,,,有了五大灵珠就可以炼制大师兄需要的[圣灵珠]了!,,,,,1472,
4,TRUE,,,,圣灵珠可是好东西啊!,,,,,1672,
Script
Script.sdb
153,蜀山大师兄.txt,,
154,蜀山弟子.txt,,
蜀山大师兄.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;
iCount, iKind : Integer;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'changeweapon' then begin
Str := callfunc ('getsenderitemexistence 圣灵珠:1');
if Str = 'false' then begin
print ('say 你有圣灵珠?');
exit;
end;
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 您的物品栏已满~');
exit;
end;
print ('getsenderitem 圣灵珠:1');
iKind:= Random (33);
if iKind = 0 then begin
Str := 'putsendermagicitem 百炼血魔宝剑 @蜀山大师兄 4';
print (Str);
end;
if iKind = 1 then begin
Str := 'putsendermagicitem 百炼噬血魔神枪 @蜀山大师兄 4';
print (Str);
end;
if iKind = 2 then begin
Str := 'putsendermagicitem 百炼血皇震天斧 @蜀山大师兄 4';
print (Str);
end;
if iKind = 3 then begin
Str := 'putsendermagicitem 百炼血魔鬼爪 @蜀山大师兄 4';
print (Str);
end;
if iKind = 4 then begin
Str := 'putsendermagicitem 群魔乱舞 @蜀山大师兄 4';
print (Str);
end;
if iKind = 5 then begin
Str := 'putsendermagicitem 百炼男子魔人护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 6 then begin
Str := 'putsendermagicitem 百炼女子魔人护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 7 then begin
Str := 'putsendermagicitem 血轮回 @蜀山大师兄 4';
print (Str);
end;
if iKind = 8 then begin
Str := 'putsendermagicitem 百炼男子血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 9 then begin
Str := 'putsendermagicitem 群魔乱舞 @蜀山大师兄 4';
print (Str);
end;
if iKind = 10 then begin
Str := 'putsendermagicitem 血魔弓术 @蜀山大师兄 4';
print (Str);
end;
if iKind = 11 then begin
Str := 'putsendermagicitem 男子百炼血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 12 then begin
Str := 'putsendermagicitem 男子百炼血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 13 then begin
Str := 'putsendermagicitem 三味真火 @蜀山大师兄 4';
print (Str);
end;
if iKind = 14 then begin
Str := 'putsendermagicitem 女子百炼血魔战靴 @蜀山大师兄 4';
print (Str);
end;
if iKind = 15 then begin
Str := 'putsendermagicitem 三界妖灵 @蜀山大师兄 4';
print (Str);
end;
if iKind = 16 then begin
Str := 'putsendermagicitem 拜月神弓 @蜀山大师兄 4';
print (Str);
end;
if iKind = 17 then begin
Str := 'putsendermagicitem 男子百炼血魔护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 18 then begin
Str := 'putsendermagicitem 女子百炼血魔护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 19 then begin
Str := 'putsendermagicitem 后羿神弓 @蜀山大师兄 4';
print (Str);
end;
if iKind =20 then begin
Str := 'putsendermagicitem 天罡战气 @蜀山大师兄 4';
print (Str);
end;
if iKind = 21 then begin
Str := 'putsendermagicitem 男子百炼血魔护腕 @蜀山大师兄 4';
print (Str);
end;
if iKind = 22 then begin
Str := 'putsendermagicitem 冰咆哮 @蜀山大师兄 4';
print (Str);
end;
if iKind = 23 then begin
Str := 'putsendermagicitem 男子婚袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 24 then begin
Str := 'putsendermagicitem 女子婚袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 25 then begin
Str := 'putsendermagicitem 阿修罗神弓 @蜀山大师兄 4';
print (Str);
end;
if iKind = 26 then begin
Str := 'putsendermagicitem 诸神黄昏 @蜀山大师兄 4';
print (Str);
end;
if iKind = 27 then begin
Str := 'putsendermagicitem 百炼梅雨弓 @蜀山大师兄 4';
print (Str);
end;
if iKind = 28 then begin
Str := 'putsendermagicitem 百炼血狱斗甲 @蜀山大师兄 4';
print (Str);
end;
if iKind = 29 then begin
Str := 'putsendermagicitem 女子百炼血魔道袍 @蜀山大师兄 4';
print (Str);
end;
if iKind = 30 then begin
Str := 'putsendermagicitem 女子百炼血魔头盔 @蜀山大师兄 4';
print (Str);
end;
if iKind = 31 then begin
Str := 'putsendermagicitem 百炼血魔神刀 @蜀山大师兄 4';
print (Str);
end;
if iKind = 32 then begin
Str := 'putsendermagicitem 百炼噬血魔神枪 @蜀山大师兄 4';
print (Str);
end;
print ('say 太好了,我终于得到这玩意儿了!');
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 1';
print (Str);
exit;
end;
end;
end.
蜀山弟子.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 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 1';
print (Str);
exit;
end;
end;
procedure OnGetResult (aStr : String);
var
Str, Name : String;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'make' then begin
Str := callfunc ('getsenderitemexistence 雷灵珠:1');
if Str = 'false' then begin
print ('say 可有雷灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 风灵珠:1');
if Str = 'false' then begin
print ('say 可有风灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 水灵珠:1');
if Str = 'false' then begin
print ('say 可有水灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 土灵珠:1');
if Str = 'false' then begin
print ('say 可有土灵珠?');
exit;
end;
Str := callfunc ('getsenderitemexistence 火灵珠:1');
if Str = 'false' then begin
print ('say 可有火灵珠?');
exit;
end;
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 物品栏已满');
exit;
end;
print ('getsenderitem 雷灵珠:1');
print ('getsenderitem 风灵珠:1');
print ('getsenderitem 水灵珠:1');
print ('getsenderitem 土灵珠:1');
print ('getsenderitem 火灵珠:1');
Str := 'putsendermagicitem 圣灵珠 @蜀山弟子 4';
print (Str);
print ('say 拿着圣灵珠去找我大师兄吧!');
exit;
end;
end;
end;
end.
Setting
CreateNpc1.sdb
107,蜀山大师兄,743,963,1,3,153,蜀山大师兄.sdb,
108,蜀山弟子,502,479,1,3,154,蜀山弟子.sdb,
商业版发布站程序下载:发布站程序下载:
Tags:
作者:佚名评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论