战神引擎添加杀怪任务

这个逼装的我给82分，剩下的用666的方式打给你！

你端坐在那里，我才知道我有多么浅薄，我曾忘情于两汉的歌赋，我曾惊讶于唐宋诗词，也曾流连于宋元的曲牌。如今而你才是人世间真正的圣人。

procedure _renwu(rwfl:Integer);

var

rwzt1,rwzt2,rwzt3,rwzt4,rwzt5,rwzt6:string;

rwjl1,rwjl2,rwjl3,rwjl4,rwjl5,rwjl6:string;

begin

if This_Player.GetV(440,1) > 0 then

begin

rwjl1 := '1:Img:bdrenwu:26:190:30:|';

rwzt1 := '1:Img:bdrenwu:5:240:80:|';

end else

if This_Player.GetV(440,7) > 4 then

begin

rwjl1 := '1:Btn:zydrenwu:28:190:30:<cmdtext@jiangli~1>:addtoscroll2|';

rwzt1 := '1:Img:zydrenwu:5:240:80:|';

end else

begin

rwzt1 := '1:Img:bdrenwu:6:240:80:|';

rwjl1 := '1:Btn:bdrenwu:10:190:30:<cmdtext@zxrenwu~1>:addtoscroll2|';

end;

end;

if rwfl = 1 then

begin

This_Player.PlayerDialog(

'Bg:zydrenwu:1|'+

'Exit:zydrenwu:33:520:335|'+

'1:Text:280:230:20:<新手任务(color251)>|'+

'1:Text:140:195:16:<任务目标：(color255)>|'+

'1:Text:220:195:16:<前去[比奇省]地图击杀[5只鸡](color250)>|'+

'1:Text:140:160:16:<当前击杀：(color255)>|'+

'1:Text:140:125:16:<任务奖励：(color255)>|'+

'1:Text:140:90:16:<任务状态： (color255)>|'+

'1:Text:220:160:16:<'+inttostr(This_Player.GetV(440,7))+' / 5 只(color250)>|'+

'1:Text:220:125:16:<2000经验 + 10级新手礼包(color242)>|'+

rwzt1+ // 任务状态

'1:Btn:bdrenwu:12:20:230:<cmdtext@renwu~1>:addtoscroll2|' +

'1:Btn:bdrenwu:20:20:190:<cmdtext@renwu~2>:addtoscroll2|' +

'1:Btn:bdrenwu:21:20:150:<cmdtext@renwu~3>:addtoscroll2|' +

'1:Btn:bdrenwu:22:20:110:<cmdtext@renwu~4>:addtoscroll2|' +

'1:Btn:bdrenwu:23:20:70:<cmdtext@renwu~5>:addtoscroll2|' +

'1:Btn:bdrenwu:25:20:30:<cmdtext@renwu~6>:addtoscroll2|' +

rwjl1+ // 奖励领取

'1:Btn:bdrenwu:11:360:30:<cmdtext@doexit>:addtoscroll2|' +

'|{cmd}</@renwu~1> </@renwu~2> </@renwu~3> </@renwu~4> </@renwu~5> </@renwu~6> '+

'|{cmd}</@renwu1~1> </@renwu1~2> </@zxrenwu~1> </@jiangli~1> </@GM> </@doexit>'

);

end;

procedure _jiangli(rwjl:Integer);

begin

if rwjl = 1 then

begin

if This_Player.FreeBagNum > 1 then

begin

if This_Player.GetV(440,1) <= 0 then

begin

if This_Player.GetV(440,7) > 4 then

begin

This_Player.SetV(440,1,10);

This_Player.Give('经验',2000);

This_Player.Give('10级新手礼包',1);

This_Player.AddGold(10000);

sendClientMSG('event|msgbox|领取成功：获得经验[2000]，金币[1W]，10级新手礼包[1]个！')

end else

begin

sendClientMSG('event|msgbox|领取失败：杀[鸡]数量不足[5]只！')

end;

end else

begin

sendClientMSG('event|msgbox|领取失败：已经领取过奖励！')

end;

end else

begin

sendClientMSG('event|msgbox|领取失败：背包空格不足1格！')

end;

end;

procedure _zxrenwu(zxrw:Integer);

begin

if zxrw = 1 then

begin

This_Player.Flyto('0',265+random(5),579+random(5));

end;

就这么写