关于制作破复活装备
游客 游客组 9月前

 

1 ,打开了盘古穿戴触发 ,破复活的功能 
 
2  在D:\mud2.0\Mir200\Envir\CommonScripts \runquest.pas脚本里面直接写进你得穿戴部位,破复活方法
 
例子如下
procedure TZdemo(); 
var yaodai , xuezi, xianl , toukui , zshou , yshou , zjie , yjie , xunzhang ,  douli , wuqi , yifu: string;
//chiyue: integer;
begin        
//0衣服 1武器 2勋章 3项链 4头盔 5左手镯 6右手镯  7左戒指 8右戒指  9毒符 10腰带 11靴子 13斗笠  29宝石 
yaodai := This_Player.GetItemNameOnBody(10); 
xuezi := This_Player.GetItemNameOnBody(11);
xianl := This_Player.GetItemNameOnBody(3); 
toukui := This_Player.GetItemNameOnBody(4); 
zshou := This_Player.GetItemNameOnBody(5); 
yshou := This_Player.GetItemNameOnBody(6); 
zjie := This_Player.GetItemNameOnBody(7); 
yjie := This_Player.GetItemNameOnBody(8); 
xunzhang := This_Player.GetItemNameOnBody(2);
douli := This_Player.GetItemNameOnBody(13);
wuqi := This_Player.GetItemNameOnBody(1);
yifu := This_Player.GetItemNameOnBody(0);
if( (wuqi = '屠龙')or(wuqi='嗜魂法杖')or(wuqi='逍遥扇'))  then  
begin
This_Player.LingXiValue := 1;
This_Player.PlayerNotice('破复活状态已生效',0);
//This_Player.PlayerNotice('灵犀值:'+inttostr(This_Player.LingXiValue),0);
end;
end;
 
3  在runquest.pas得盘古穿戴触发方法里面直接调用你做第2步破复活方法
//盘古穿戴触发
procedure ChangeEquip();
begin
TZdemo();//破复活
end;

 

最新回复 (0)
返回