娃娃的41黄色尤氏任务脚本
//声明该脚本最好手动,进入对话界面时最好不停按鼠标左键,在任务地点使用任务物品,也最好手动。全自动的话,20个会成功10个左右。全手动脚本当然全部成功。
Game.AttackAllDog:=true;Game.BeatBack:=true;
Game.ReLifeCheck(300000);
if Game.PacketSize-Game.PacketCount=0 then BuyRepair;
Game.ScriptOnIdle:="MyScriptOnIdle";
while not Game.Terminated do
begin
Game.UsePacketItem("尤氏任务委托单",Game.HumanID);
Game.NpcSelect(5);//你的黄色任务在尤氏任务委托单中第几,括号内就是几,我的就是5
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
if Game.FindGameRetMsg("接到 天之甘霖之一 任务") then DoTask_1
else if Game.FindGameRetMsg("天之甘霖之一 任务 (进行中)") then DoTask_1;
end;
procedure DoTask_1;
var id:dword;
begin
Game.Moveto("济南",821,1971,30);
Game.NpcTalk("龙巫.龙奇");
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.NpcTalk("龙巫.龙奇");
Game.NpcSelect(1);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.DropTask(687);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.ClearTip;
Game.Sleep(1000);
Game.Moveto("雁门关",517,361,30);
Game.UsePacketItem("祈雨供品",Game.HumanID);
Game.Sleep(100000);
end;
procedure MyScriptOnIdle;
begin
if Game.NeedRet then BuyRepair;
if Game.NobenefitState>30 then DoRest;
end;
procedure DoRest;
begin
Game.MoveTo("济南",1373,897,30);
while not Game.Terminated do
begin
if Game.GetSysTime="06:10" then break;//退出循环,
Game.Sleep(1000);
end;
Game.ReLogin;//断线重联,可以取消外挂的无收益状态
end;
procedure BuyRepair;
begin
Game.UsePacketItem("千里镜",Game.HumanID);
Game.Sleep(5000);
Game.Moveto("济南",1373,897);
Game.NpcTalk("鼓货郎");
Game.NpcSelect(2);
Game.NpcSellAllItem;
Game.NpcEndTalk;
Game.Sleep(5000);
Game.NpcTalk("鼓货郎");
Game.NpcSelect(3);
Game.NpcRepairAll;
Game.NpcEndTalk;
Game.RestartScript;
end;