别的怎么把变量和怪物绑定的啊。?来个教程
杀了怪不计数
这个逼装的我给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
rwjl1 := '1:Img:bdrenwu:26:190:30:|';
rwzt1 := '1:Img:bdrenwu:5:240:80:|';
end else
if This_Player.GetV(440,7) > 4 then
rwjl1 := '1:Btn:zydrenwu:28:190:30:<cmdtext@jiangli~1>:addtoscroll2|';
rwzt1 := '1:Img:zydrenwu:5:240:80:|';
rwzt1 := '1:Img:bdrenwu:6:240:80:|';
rwjl1 := '1:Btn:bdrenwu:10:190:30:<cmdtext@zxrenwu~1>:addtoscroll2|';
end;
if rwfl = 1 then
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>'
);
procedure _jiangli(rwjl:Integer);
if rwjl = 1 then
if This_Player.FreeBagNum > 1 then
if This_Player.GetV(440,1) <= 0 then
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]个!')
sendClientMSG('event|msgbox|领取失败:杀[鸡]数量不足[5]只!')
sendClientMSG('event|msgbox|领取失败:已经领取过奖励!')
sendClientMSG('event|msgbox|领取失败:背包空格不足1格!')
procedure _zxrenwu(zxrw:Integer);
if zxrw = 1 then
This_Player.Flyto('0',265+random(5),579+random(5));
就这么写
请登录之后再进行评论
大家都在搜
亲测游戏
自动脚本
手游交流
端游交流
视频教程
#龙途传奇#
#战神引擎#
#剑舞龙城#
这个逼装的我给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;
就这么写