Monkas

Hello i need help to past anti dissarm script to Farm script. Any1 can help me? const BUFF_ID = 28015; //COV SCROLL_OF_SCAPE = 736; //SOE TPDelay = 30 * 1000; // Time to wait after teleporting, change according to your computer debug = false; type TCity = (DWARVEN = 0, ORC = 1, DARK_ELVEN = 2, ELVEN = 3, KAMAEL = 4, TALKING_ISLAND = 5, HEINE = 6, DION = 7, GIRAN = 8, ADEN = 9, GODDARD = 10, GLUDIO = 11, GLUDIN = 12, SHTUTTGART = 13, RUNE = 14, OREN = 15, HUNTER = 16, NON_CITY = 17, PRIMEVAL_ISLE = 18); procedure ToGk; begin if User.InRange(110912,219584,-3664, 250, 150) then begin Engine.MoveTo(110912,219584,-3664); Engine.MoveTo(111154,219735,-3675); Engine.MoveTo(111176,219395,-3546); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(111888,219584,-3664, 250, 150) then begin Engine.MoveTo(111888,219584,-3664); Engine.MoveTo(111617,219703,-3674); Engine.MoveTo(111591,219371,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(112064,219792,-3664, 250, 150) then begin Engine.MoveTo(112064,219792,-3664); Engine.MoveTo(111665,219800,-3675); Engine.MoveTo(111580,219329,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(107808,217856,-3672, 250, 150) then begin Engine.MoveTo(107808,217856,-3672); Engine.MoveTo(107769,217524,-3673); Engine.MoveTo(109387,217509,-3747); Engine.MoveTo(110037,217257,-3747); Engine.MoveTo(110072,219029,-3477); Engine.MoveTo(111202,219130,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(110896,220768,-3664, 250, 150) then begin Engine.MoveTo(110896,220768,-3664); Engine.MoveTo(111191,219621,-3663); Engine.MoveTo(111190,219303,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(110768,219824,-3664, 250, 150) then begin Engine.MoveTo(110768,219824,-3664); Engine.MoveTo(111163,219763,-3671); Engine.MoveTo(111199,219319,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(112112,220576,-3664, 250, 150) then begin Engine.MoveTo(112112,220576,-3664); Engine.MoveTo(111600,219666,-3669); Engine.MoveTo(111586,219305,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(110688,220576,-3664, 250, 150) then begin Engine.MoveTo(110688,220576,-3664); Engine.MoveTo(111183,219655,-3669); Engine.MoveTo(111201,219292,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(108032,218048,-3672, 250, 150) then begin Engine.MoveTo(108032,218048,-3672); Engine.MoveTo(107862,218003,-3673); Engine.MoveTo(107840,217532,-3673); Engine.MoveTo(109383,217465,-3747); Engine.MoveTo(110036,217280,-3747); Engine.MoveTo(110096,219040,-3478); Engine.MoveTo(111086,219100,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(107568,218256,-3672, 250, 150) then begin Engine.MoveTo(107568,218256,-3672); Engine.MoveTo(107542,217872,-3673); Engine.MoveTo(107840,217532,-3673); Engine.MoveTo(109383,217465,-3747); Engine.MoveTo(110036,217280,-3747); Engine.MoveTo(110096,219040,-3478); Engine.MoveTo(111086,219100,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(107552,218000,-3672, 250, 150) then begin Engine.MoveTo(107552,218000,-3672); Engine.MoveTo(107862,218003,-3673); Engine.MoveTo(107840,217532,-3673); Engine.MoveTo(109383,217465,-3747); Engine.MoveTo(110036,217280,-3747); Engine.MoveTo(110096,219040,-3478); Engine.MoveTo(111086,219100,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(111856,220752,-3664, 250, 150) then begin Engine.MoveTo(111856,220752,-3664); Engine.MoveTo(111573,219730,-3675); Engine.MoveTo(111589,219342,-3544); Engine.MoveTo(111387,219387,-3544); end; end; function isDead: boolean; begin isDead := false; if (debug) then print('Check is Dead'); if User.Dead then begin Delay (10000); // In case of resurrection end; if User.Dead then begin isDead := true; Engine.FaceControl (0,false); Print ('Dead. Pressing to village.'); Engine.GoHome; Delay (5000); end; end; function GetCity (shouldGoHome: boolean = true; inCityEvt: boolean = false): TCity; var City: TCity; begin City := NON_CITY; if User.InRange (147509, 25928, User.Z, 5000, 100) then City := ADEN; if User.InRange (11416, 16856, User.Z, 5000, 100) then City := DARK_ELVEN; if User.InRange (18591, 144708, User.Z, 5000, 100) then City := DION; if User.InRange (116569, -179848, User.Z, 7000, 100) then City := DWARVEN; if User.InRange (44904, 49800, User.Z, 7000, 100) then City := ELVEN; if User.InRange (82876, 148960, User.Z, 5000, 100) then City := GIRAN; if User.InRange (-81311, 152663, User.Z, 5000, 100) then City := GLUDIN; if User.InRange (-14236, 123701, User.Z, 5000, 100) then City := GLUDIO; if User.InRange (147713, -56202, User.Z, 5000, 100) then City := GODDARD; if User.InRange (111434, 220426, User.Z, 5000, 100) then City := HEINE; if User.InRange (117144, 76824, User.Z, 5000, 100) then City := HUNTER; if User.InRange (-45080, -113576, User.Z, 5000, 100) then City := ORC; if User.InRange (81150, 54880, User.Z, 5000, 100) then City := OREN; if User.InRange (43838, -48222, User.Z, 5000, 100) or User.InRange (38283, -48102, User.Z, 5000, 100) then City := RUNE; if User.InRange (88041, -142502, User. Z, 5000, 100) then City := SHTUTTGART; if User.InRange (-83139, 243145, User.Z, 5000, 100) then City := TALKING_ISLAND; // If it isn't in one of the previous locations then goHome and try again if (City = NON_CITY) and (shouldGoHome) then begin GoHome (-1, -1, inCityEvt); City := GetCity; end; Result := City; end; function needsBuffs: boolean; var buff: TL2Buff; begin needsBuffs := false; if (debug) then print('Check for buffs'); if not User.Buffs.ByID (BUFF_ID, Buff) or User.Buffs.ById (BUFF_ID, buff) and (buff.EndTime < 60 * 1000) then begin print('Check Buffs [True]'); needsBuffs := true; end; end; procedure GoHome (ItemID: integer = -1; skillID: integer = -1; move: boolean = false); var Skill: TL2Skill; Item: TL2Item; City: TCity; begin print('Go Home'); if not User.Dead then begin City := GetCity (false, false); if City = NON_CITY then begin // Use the item past as parameter if (itemID <> -1) and Inventory.User.ByID(itemID, Item) then begin Engine.UseItem (itemID); Delay (User.Cast.EndTime + TPDelay); end; // Use skill to teleport if no item past as parameter if (skillID <> -1) and (itemID = -1) and SkillList.ByID(skillID, Skill) then begin Engine.UseSkill(skillID); Delay (User.Cast.EndTime + TPDelay); end; // Use SoE if no item or skill provided if (skillID = -1) and (itemID = -1) and Inventory.User.ByID(SCROLL_OF_SCAPE, Item) then begin Engine.UseItem (Item); Delay (User.Cast.EndTime + TPDelay); end; end; //non city end; //user dead end; procedure GetBuffs; begin print('GetBuffs'); Engine.SetTarget(36600); // NPC ID Engine.MoveToTarget; Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel(1); //Warriors Delay(500); end; procedure movetofarm; begin Print ('Teleport to FoS Center'); Engine.SetTarget (30233); Engine.DlgOpen; Delay (500); Engine.DlgSel(1); Delay (500); Engine.DlgSel(7); Delay (5*1000); Print ('Moving to spot'); if user.InRange(73024, 118485, -3696, 300) then begin Engine.MoveTo(73477, 118144, -3720); Engine.MoveTo(75061, 117686, -3736); Engine.MoveTo(79457, 115940, -3720); Engine.MoveTo(81710, 116517, -3208); Engine.MoveTo(83528, 117819, -2992); Engine.MoveTo(83528, 118887, -3032); Engine.MoveTo(86700, 119885, -3072); Engine.MoveTo(88981, 119261, -3056); end; Engine.Facecontrol (0, true); // turn on bot interface Engine.Facecontrol (1, true); // turn on target select interface end; { START } begin //Engine.LoadConfig ('fos_holy'); //User.Name while true do begin if isDead or needsBuffs then begin Engine.FaceControl (1,false); // turn off bot interface while User.InCombat do Delay (3 * 1000); GoHome; ToGK; GetBuffs; //teleport; movetofarm; Print ('Finished'); end; delay(30000); end; end.

const BUFF_ID = 28015; //COV SCROLL_OF_SCAPE = 736; //SOE TPDelay = 30 * 1000; // Time to wait after teleporting, change according to your computer debug = false; type TCity = (DWARVEN = 0, ORC = 1, DARK_ELVEN = 2, ELVEN = 3, KAMAEL = 4, TALKING_ISLAND = 5, HEINE = 6, DION = 7, GIRAN = 8, ADEN = 9, GODDARD = 10, GLUDIO = 11, GLUDIN = 12, SHTUTTGART = 13, RUNE = 14, OREN = 15, HUNTER = 16, NON_CITY = 17, PRIMEVAL_ISLE = 18); procedure ToGk; begin if User.InRange(110912,219584,-3664, 250, 150) then begin Engine.MoveTo(110912,219584,-3664); Engine.MoveTo(111154,219735,-3675); Engine.MoveTo(111176,219395,-3546); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(111888,219584,-3664, 250, 150) then begin Engine.MoveTo(111888,219584,-3664); Engine.MoveTo(111617,219703,-3674); Engine.MoveTo(111591,219371,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(112064,219792,-3664, 250, 150) then begin Engine.MoveTo(112064,219792,-3664); Engine.MoveTo(111665,219800,-3675); Engine.MoveTo(111580,219329,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(107808,217856,-3672, 250, 150) then begin Engine.MoveTo(107808,217856,-3672); Engine.MoveTo(107769,217524,-3673); Engine.MoveTo(109387,217509,-3747); Engine.MoveTo(110037,217257,-3747); Engine.MoveTo(110072,219029,-3477); Engine.MoveTo(111202,219130,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(110896,220768,-3664, 250, 150) then begin Engine.MoveTo(110896,220768,-3664); Engine.MoveTo(111191,219621,-3663); Engine.MoveTo(111190,219303,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(110768,219824,-3664, 250, 150) then begin Engine.MoveTo(110768,219824,-3664); Engine.MoveTo(111163,219763,-3671); Engine.MoveTo(111199,219319,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(112112,220576,-3664, 250, 150) then begin Engine.MoveTo(112112,220576,-3664); Engine.MoveTo(111600,219666,-3669); Engine.MoveTo(111586,219305,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(110688,220576,-3664, 250, 150) then begin Engine.MoveTo(110688,220576,-3664); Engine.MoveTo(111183,219655,-3669); Engine.MoveTo(111201,219292,-3544); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(108032,218048,-3672, 250, 150) then begin Engine.MoveTo(108032,218048,-3672); Engine.MoveTo(107862,218003,-3673); Engine.MoveTo(107840,217532,-3673); Engine.MoveTo(109383,217465,-3747); Engine.MoveTo(110036,217280,-3747); Engine.MoveTo(110096,219040,-3478); Engine.MoveTo(111086,219100,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(107568,218256,-3672, 250, 150) then begin Engine.MoveTo(107568,218256,-3672); Engine.MoveTo(107542,217872,-3673); Engine.MoveTo(107840,217532,-3673); Engine.MoveTo(109383,217465,-3747); Engine.MoveTo(110036,217280,-3747); Engine.MoveTo(110096,219040,-3478); Engine.MoveTo(111086,219100,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(107552,218000,-3672, 250, 150) then begin Engine.MoveTo(107552,218000,-3672); Engine.MoveTo(107862,218003,-3673); Engine.MoveTo(107840,217532,-3673); Engine.MoveTo(109383,217465,-3747); Engine.MoveTo(110036,217280,-3747); Engine.MoveTo(110096,219040,-3478); Engine.MoveTo(111086,219100,-3541); Engine.MoveTo(111387,219387,-3544); end; if User.InRange(111856,220752,-3664, 250, 150) then begin Engine.MoveTo(111856,220752,-3664); Engine.MoveTo(111573,219730,-3675); Engine.MoveTo(111589,219342,-3544); Engine.MoveTo(111387,219387,-3544); end; end; function isDead: boolean; begin isDead := false; if (debug) then print('Check is Dead'); if User.Dead then begin Delay (10000); // In case of resurrection end; if User.Dead then begin isDead := true; Engine.FaceControl (0,false); Print ('Dead. Pressing to village.'); Engine.GoHome; Delay (5000); end; end; function GetCity (shouldGoHome: boolean = true; inCityEvt: boolean = false): TCity; var City: TCity; begin City := NON_CITY; if User.InRange (147509, 25928, User.Z, 5000, 100) then City := ADEN; if User.InRange (11416, 16856, User.Z, 5000, 100) then City := DARK_ELVEN; if User.InRange (18591, 144708, User.Z, 5000, 100) then City := DION; if User.InRange (116569, -179848, User.Z, 7000, 100) then City := DWARVEN; if User.InRange (44904, 49800, User.Z, 7000, 100) then City := ELVEN; if User.InRange (82876, 148960, User.Z, 5000, 100) then City := GIRAN; if User.InRange (-81311, 152663, User.Z, 5000, 100) then City := GLUDIN; if User.InRange (-14236, 123701, User.Z, 5000, 100) then City := GLUDIO; if User.InRange (147713, -56202, User.Z, 5000, 100) then City := GODDARD; if User.InRange (111434, 220426, User.Z, 5000, 100) then City := HEINE; if User.InRange (117144, 76824, User.Z, 5000, 100) then City := HUNTER; if User.InRange (-45080, -113576, User.Z, 5000, 100) then City := ORC; if User.InRange (81150, 54880, User.Z, 5000, 100) then City := OREN; if User.InRange (43838, -48222, User.Z, 5000, 100) or User.InRange (38283, -48102, User.Z, 5000, 100) then City := RUNE; if User.InRange (88041, -142502, User. Z, 5000, 100) then City := SHTUTTGART; if User.InRange (-83139, 243145, User.Z, 5000, 100) then City := TALKING_ISLAND; // If it isn't in one of the previous locations then goHome and try again if (City = NON_CITY) and (shouldGoHome) then begin GoHome (-1, -1, inCityEvt); City := GetCity; end; Result := City; end; function needsBuffs: boolean; var buff: TL2Buff; begin needsBuffs := false; if (debug) then print('Check for buffs'); if not User.Buffs.ByID (BUFF_ID, Buff) or User.Buffs.ById (BUFF_ID, buff) and (buff.EndTime < 60 * 1000) then begin print('Check Buffs [True]'); needsBuffs := true; end; end; procedure GoHome (ItemID: integer = -1; skillID: integer = -1; move: boolean = false); var Skill: TL2Skill; Item: TL2Item; City: TCity; begin print('Go Home'); if not User.Dead then begin City := GetCity (false, false); if City = NON_CITY then begin // Use the item past as parameter if (itemID <> -1) and Inventory.User.ByID(itemID, Item) then begin Engine.UseItem (itemID); Delay (User.Cast.EndTime + TPDelay); end; // Use skill to teleport if no item past as parameter if (skillID <> -1) and (itemID = -1) and SkillList.ByID(skillID, Skill) then begin Engine.UseSkill(skillID); Delay (User.Cast.EndTime + TPDelay); end; // Use SoE if no item or skill provided if (skillID = -1) and (itemID = -1) and Inventory.User.ByID(SCROLL_OF_SCAPE, Item) then begin Engine.UseItem (Item); Delay (User.Cast.EndTime + TPDelay); end; end; //non city end; //user dead end; procedure GetBuffs; begin print('GetBuffs'); Engine.SetTarget(36600); // NPC ID Engine.MoveToTarget; Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel(1); //Warriors Delay(500); end; procedure movetofarm; begin Print ('Teleport to FoS Center'); Engine.SetTarget (30233); Engine.DlgOpen; Delay (500); Engine.DlgSel(1); Delay (500); Engine.DlgSel(7); Delay (5*1000); Print ('Moving to spot'); if user.InRange(73024, 118485, -3696, 300) then begin Engine.MoveTo(73477, 118144, -3720); Engine.MoveTo(75061, 117686, -3736); Engine.MoveTo(79457, 115940, -3720); Engine.MoveTo(81710, 116517, -3208); Engine.MoveTo(83528, 117819, -2992); Engine.MoveTo(83528, 118887, -3032); Engine.MoveTo(86700, 119885, -3072); Engine.MoveTo(88981, 119261, -3056); end; Engine.Facecontrol (0, true); // turn on bot interface Engine.Facecontrol (1, true); // turn on target select interface end; { START } begin //Engine.LoadConfig ('fos_holy'); //User.Name while true do begin if isDead or needsBuffs then begin Engine.FaceControl (1,false); // turn off bot interface while User.InCombat do Delay (3 * 1000); GoHome; ToGK; GetBuffs; //teleport; movetofarm; Print ('Finished'); end; delay(30000); end; end.

Its not working 2 min and bot have dc

If i pay u Clockman u can send me and tell what i need to do with this l2 tower??

This walker dont see buffs on valkiria;/ only haste and battle heal or i make something wrong

How he get this walker?? He dont have it 80 posts

Now i must learn how to play without walkers

Yep sh1t i must write 80 post for this;/;/

But old IG and OOG walkers dont working now maybe u have some working walkers

a

can u show me this link with walker btw ig walker not work too

plss send me this walker on private msg

any1 can send me msg what to do or link for working walker??? plsssssss