- 精华
- 阅读权限
- 180
- 好友
- 相册
- 分享
- 听众
- 收听
- 注册时间
- 2008-11-1
- 在线时间
- 小时
- 最后登录
- 1970-1-1
|
[77M2] 传奇引擎 新区冲级赛 脚本
给会使用的朋友. 我不做任何解答. 77M2上手难度++++++
引擎的链接具体大家可以搜索一下 就不发类似广告的链接了.
unit Q28;
interface
uses Classes, SysUtils, DefiniensConst;
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
procedure GetLG(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
implementation
function GetCommand(Player: TPlayObject; V: Integer): String;
begin
Result := '';
case V of
0:
begin
if Player.VarInteger('冲级奖励1').AsInteger = 1 then
Result := '<{S=领取;X=260}/@GetLG(0)>';
end;
1:
begin
if Player.VarInteger('冲级奖励2').AsInteger = 1 then
Result := '<{S=领取;X=260}/@GetLG(1)>';
end;
2:
begin
if Player.VarInteger('冲级奖励3').AsInteger = 1 then
Result := '<{S=领取;X=260}/@GetLG(2)>';
end;
3:
begin
if Player.VarInteger('冲级奖励4').AsInteger = 1 then
Result := '<{S=领取;X=260}/@GetLG(3)>';
end;
end;
end;
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S=
[[
{S=$NAME$;C=243}：\
新区冲级赛火爆进行中，截止至{S=$ENDTIME$;C=249}，率先进入：\
{S=$Lvl1$级：;C=254}可以领取职业祖玛衣服一件，限制{S=$L1Count$;C=#6699CC}人$CMD1$\
{S=$Lvl2$级：;C=254}可以领取职业祖玛武器一件，限制{S=$L2Count$;C=#6699CC}人$CMD2$\
{S=$Lvl3$级：;C=254}可以领取职业赤月项链一件，限制{S=$L3Count$;C=#6699CC}人$CMD3$\
{S=$Lvl4$级：;C=254}可以领取职业赤月套装一套，限制{S=$L4Count$;C=#6699CC}人$CMD4$\\
{S=注：领取资格根据达到指定等级的先后而定;C=249}\
<离开/@exit>
]];
var
AMessage: String;
begin
AMessage := ReplaceStr(S, '$NAME$', Player.Name);
AMessage := ReplaceStr(AMessage, '$ENDTIME$', FormatDateTime('yy年MM月DD日hh时mm分', LvlGame_EndTime));
AMessage := ReplaceStr(AMessage, '$Lvl1$', IntToStr(LvlGame_Level1));
AMessage := ReplaceStr(AMessage, '$L1Count$', IntToStr(LvlGame_L1NumOfPeople));
AMessage := ReplaceStr(AMessage, '$CMD1$', GetCommand(Player, 0));
AMessage := ReplaceStr(AMessage, '$Lvl2$', IntToStr(LvlGame_Level2));
AMessage := ReplaceStr(AMessage, '$L2Count$', IntToStr(LvlGame_L2NumOfPeople));
AMessage := ReplaceStr(AMessage, '$CMD2$', GetCommand(Player, 1));
AMessage := ReplaceStr(AMessage, '$Lvl3$', IntToStr(LvlGame_Level3));
AMessage := ReplaceStr(AMessage, '$L3Count$', IntToStr(LvlGame_L3NumOfPeople));
AMessage := ReplaceStr(AMessage, '$CMD3$', GetCommand(Player, 2));
AMessage := ReplaceStr(AMessage, '$Lvl4$', IntToStr(LvlGame_Level4));
AMessage := ReplaceStr(AMessage, '$L4Count$', IntToStr(LvlGame_L4NumOfPeople));
AMessage := ReplaceStr(AMessage, '$CMD4$', GetCommand(Player, 3));
Npc.Say(Player, AMessage);
end;
procedure GetLG(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
case Args.Int[0] of
0:
begin
if Player.VarInteger('冲级奖励1').AsInteger = 1 then
begin
//满足第一个冲级条件，根据职业及性别赠送45级衣服一件
case Player.Job of
0:
begin
case Player.Gender of
Gender_Man: Npc.Give(Player, '天魔神甲', 1, True);
Gender_Woman: Npc.Give(Player, '圣战宝甲', 1, True);
end;
end;
1:
begin
case Player.Gender of
Gender_Man: Npc.Give(Player, '法神披风', 1, True);
Gender_Woman: Npc.Give(Player, '霓裳羽衣', 1, True);
end;
end;
2:
begin
case Player.Gender of
Gender_Man: Npc.Give(Player, '天尊道袍', 1, True);
Gender_Woman: Npc.Give(Player, '天师长袍', 1, True);
end;
end;
end;
Player.VarInteger('冲级奖励1').AsInteger := 2;
Player.VarInteger('冲级奖励1').Save;
end;
end;
1:
begin
if Player.VarInteger('冲级奖励2').AsInteger = 1 then
begin
//满足第二个冲级条件，送武器
if Player.ItemSize < Player.MaxBagSize then
begin
case Player.Job of
0: Npc.Give(Player, '裁决之杖', 1, True);
1: Npc.Give(Player, '骨玉权杖', 1, True);
2: Npc.Give(Player, '龙纹剑', 1, True);
end;
Player.VarInteger('冲级奖励2').AsInteger := 2;
Player.VarInteger('冲级奖励2').Save;
end
else
Npc.MessageBox(Player, '请确保背包至少有一个空位！');
end;
end;
2:
begin
if Player.VarInteger('冲级奖励3').AsInteger = 1 then
begin
//满足第三个冲级条件，送项链
if Player.ItemSize < Player.MaxBagSize then
begin
case Player.Job of
0: Npc.Give(Player, '圣战项链', 1, True);
1: Npc.Give(Player, '法神项链', 1, True);
2: Npc.Give(Player, '天尊项链', 1, True);
end;
Player.VarInteger('冲级奖励3').AsInteger := 2;
Player.VarInteger('冲级奖励3').Save;
end
else
Npc.MessageBox(Player, '请确保背包至少有一个空位！');
end;
end;
3:
begin
if Player.VarInteger('冲级奖励4').AsInteger = 1 then
begin
//满足第四个冲级条件，送全套
if Player.ItemSize < Player.MaxBagSize - 8 then
begin
case Player.Job of
0:
begin
case Player.Gender of
Gender_Man: Npc.Give(Player, '天魔神甲', 1, True);
Gender_Woman: Npc.Give(Player, '圣战宝甲', 1, True);
end;
Npc.Give(Player, '裁决之杖', 1, True);
Npc.Give(Player, '圣战项链', 1, True);
Npc.Give(Player, '圣战头盔', 1, True);
Npc.Give(Player, '圣战手镯', 2, True);
Npc.Give(Player, '圣战戒指', 2, True);
end;
1:
begin
case Player.Gender of
Gender_Man: Npc.Give(Player, '法神披风', 1, True);
Gender_Woman: Npc.Give(Player, '霓裳羽衣', 1, True);
end;
Npc.Give(Player, '骨玉权杖', 1, True);
Npc.Give(Player, '法神项链', 1, True);
Npc.Give(Player, '法神头盔', 1, True);
Npc.Give(Player, '法神手镯', 2, True);
Npc.Give(Player, '法神戒指', 2, True);
end;
2:
begin
case Player.Gender of
Gender_Man: Npc.Give(Player, '天尊道袍', 1, True);
Gender_Woman: Npc.Give(Player, '天师长袍', 1, True);
end;
Npc.Give(Player, '龙纹剑', 1, True);
Npc.Give(Player, '天尊项链', 1, True);
Npc.Give(Player, '天尊头盔', 1, True);
Npc.Give(Player, '天尊手镯', 2, True);
Npc.Give(Player, '天尊戒指', 2, True);
end;
end;
Player.VarInteger('冲级奖励4').AsInteger := 2;
Player.VarInteger('冲级奖励4').Save;
end
else
Npc.MessageBox(Player, '请确保背包至少有八个空位！');
end;
end;
end;
Main(Npc, Player, Args);
end;
end.
|
|
发表于 2015-6-24 10:50:59
楼主
发表于 2015-6-24 12:03:47