Find content
Not Telling
Я вот месяца 2 ловил с +40% ,скрипт с чинилкой и со всеми прибамбасами.В последнее время после починки вещёй подвисает УО и цл.Я так понел надо гдето задержку поставить,но где не знаю.Знающих людей прошу помочь.
Собственно сам скрипт:set %milk ZBM; ?????? (????? ?1) set %bacon GND; ????? (????? ?2) set %maxWeight 710; maksimalnij ves set %weapon JOH; type pushki set %armor ISH_OSH_MSH_NSH_LSH_HSH_CIK_JOH; Armor + shield set %additionalClothes XDI_NVI_PAM_LDI; Half-apron, sandels, surcoat, kit, pantoloni itd set %skillRobe AWWJKMD; Skill Roba set %skillCloak NGUJKMD; Skill Cloack set %skillMask KLVJKMD; Skill Mask set %GODSart JJUSKMD; GODS artefact set %simplePants NLRGMMD; Pantaloni set %simpleRobe MJPYJMD; Priostaja Roba set %simpleCloak SWNHKMD; Prostoj cloack set %simpleMask EHYSJMD; Prostaja mrepairrepairrepairrepairrepairaska set %container PTIZJMD; ID konteinera v banke set %items MPF_OZF_EQD_LPF_RMK, pandorki, ingi i.t.d. set %repairTool IXGZLMD; ID Repair tool's set %repairSewingKit WJKHKMD; ID Reair Sewing Kit set %botsToKill 3; posle skolko ubitih botov nada chinitj pushku i veshchi ;========================================================================= event sysmessage Setting Paperdoll in right position.. event macro 8 1 wait 30 event macro 8 1 wait 30 contpos 780 -26 namespace global BotsKilledByWarrior set !bot 0 set !totalBots 0 set !botsToKill %botsToKill ignoreitem #charid 1 setuotitle Ultima Online - #charname ( , #shard , ) Bots killed !bot , / , !botsToKill of total !totalBots , #dot moving: msg back$ wait 14s msg stop$ gosub fishing msg back$ wait 14s msg stop$ gosub fishing msg back$ wait 14s msg stop$ gosub fishing msg back$ wait 14s msg stop$ gosub fishing msg forward$ wait 64s msg stop$ gosub fishing wait 1s goto moving sub fishing sub fishing for %xx -5 5 { for %yy -5 5 { if #weight > %maxWeight gosub trashFish gosub ghost gosub check if #weight > %maxWeight { gosub openBank gosub razgruzka } finditem CJGFKMD set #LOBJECTID #FINDID event macro 17 0 target 7s set #LTARGETX #CHARPOSX + %xx set #LTARGETY #CHARPOSY + %yy set #LTARGETKIND 3 event macro 22 0 gosub proverka } } return sub proverka set %overtime #SCNT + 30 loop: if #hits < #maxhits { gosub attack } scanjournal 1 if hungry in #sysmsg { gosub eat return } if There_are_no_ in #journal || Try_fishing_ in #journal || + unexpected_target_info in #journal || That_is_too in #journal || + You_fail_to_catch_ in #journal || Fishing_has in #journal || + You_put in #journal || You_pull in #journal || you_have_got in #journal return if #scnt >= %overtime return goto loop sub loot finditem YFM G_4 if #findcnt <> 0 { set #lobjectid #findid event macro 17 0 while #contkind <> ASEB && #contsize <> 144_212 wait 1 wait 20 set %lootTime #scnt + 25 repeat { finditem POF C_ , #contid if #findcnt <> 0 { exevent drag #findid #findstack exevent dropc #backpackid wait 25 } } until #findcnt = 0 || #scnt > %lootTime set !bot !bot + 1 set !totalBots !totalBots + 1 ignoreitem #contID 1 event macro 21 0 return sub razgruzka ignoreitem reset 1 finditem %container C_ , %bank if #findcnt = 0 { event sysmessage Container not found! pause } repeat { finditem %items c_ , #backpackid if #findcnt = 0 return exevent Drag #Findid #findstack exevent Dropc %container wait 25 } until #false sub openBank finditem UVX G repeat { finditem #findid event pathfind #findx #findy #findz 1 3s wait 20 } until #finddist < 2 repeat { finditem UVX G_3 wait 5 set #lobjectid #findid event macro 17 0 wait 10 while #contname <> generic_gump && #contsize <> 330_270 wait 1 nextcpos 0 0 click 601 245 wait 40 click 601 245 r wait 40 } until #conttype = IKF set %bank #contid return sub kill repeat { if #hits < 50 msg .usevolcano$ finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s gosub ghost } until #findcnt = 0 gosub loot repeat { event pathfind %charX %charY %charZ 0 wait 20 } until #charposx = %charX && #charposy = %charY return sub changeClothesTo repeat { finditem %1 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %1 C_ , #backpackid } until #findcnt = 0 repeat { finditem %2 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %2 C_ , #backpackid } until #findcnt = 0 repeat { Finditem %3 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %3 C_ , #backpackid } until #findcnt = 0 Finditem %4 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %4 C_ , #backpackid } until #findcnt = 0 return sub ghost if #charghost = YES { repeat { click 992 82 wait 10 click 547 388 wait 10 } until #clilogged = 0 wait 10 halt } return sub eat finditem #BackpackID set #lobjectid #findid event macro 17 0 wait 15 finditem %milk c_ , #BackpackID exevent drag #findid exevent dropc #backpackid set #lobjectid #findid event macro 17 0 wait 15 finditem %bacon c_ , #BackpackID exevent drag #findid exevent dropc #backpackid set #lobjectid #findid event macro 17 0 wait: set %time #scnt + 4 wait1: deletejournal scanjournal 1 if _kallories_ in #journal goto wait if #scnt => %time return sub repairWeapon ignoreitem %GODSart 1 put: repeat { finditem %weapon C_ , #charid exevent drag #findid exevent dropc #backpackid wait 25 finditem %weapon C_ , #charid } until #findcnt = 0 finditem %weapon C_ , #backpackid if #findcnt = 0 goto put _repair: set #lobjectid %repairTool C finditem %weapon C_ , #backpackid set #ltargetid #findid set #ltargetkind 1 set %lag #scnt + 10 event macro 17 0 target while #targcurs <> 1 && #scnt < %lag wait 1 event macro 22 0 if #scnt > %lag goto _repair gosub take&repair %armor %repairTool _repaircloak: set #lobjectid %repairSewingKit set #ltargetid %simpleCloak set #ltargetkind 1 set %lag #scnt + 10 event macro 17 0 target while #targcurs <> 1 && #scnt < %lag wait 1 event macro 22 0 if #scnt > %lag goto _repaircloak wait 10 _repairrobe: set #lobjectid %repairSewingKit set #ltargetid %simpleRobe set #ltargetkind 1 set %lag #scnt + 10 event macro 17 0 target while #targcurs <> 1 && #scnt < %lag wait 1 event macro 22 0 if #scnt > %lag goto _repairrobe wait 10 gosub take&repair %additionalClothes %repairSewingKit ignoreitem reset 1 gosub changeClothesTo %GODSart %skillMask %skillRobe %skillCloak return sub attack set %charX #charposx set %charY #charposy set %charz #charposz repeat { finditem %weapon c_ , #BackpackId set #lobjectID #findid event macro 17 0 wait 5 finditem %weapon c_ , #BackpackId } until #findcnt = 0 event macro 27 0 gosub changeClothesTo %simplePants %simpleMask %simpleRobe %simpleCloak msg $.arm$ gosub kill gosub changeClothesTo %GODSart %skillMask %skillRobe %skillCloak setuotitle Ultima Online - #charname ( , #shard , ) Bots killed !bot , / , !botsToKill of total !totalBots , #dot if !botsToKill = !bot { gosub repairWeapon set !bot 0 } return sub trashFish repeat { finditem FQD_DQD_EQD_GQD C_ , #backpackid if #findcol <> 0 ignoreitem #findid 1 if #findcol = 0 { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 25 } } until #findcnt = 0 return sub check repeat { finditem IS G if #findid = #charid ignoreitem #findid 1 finditem IS G if #findcnt <> 0 { set #ltargetid #findid gosub attack return } } until #findcnt = 0 return sub take&repair repeat { finditem %1 C_ , #charid exevent drag #findid #findstack exevent dropc #backpackid wait 25 finditem %1 C_ , #charid } until #findcnt = 0 repeat { finditem %1 C_ , #backpackid _repairing: set #lobjectid %2 set #ltargetid #findid set #ltargetkind 1 set %lag #scnt + 10 event macro 17 0 target while #targcurs <> 1 && #scnt < %lag wait 1 event macro 22 0 if #scnt > %lag goto _repairing wait 10 set #lobjectid #findid event macro 17 0 wait 20 finditem %1 C_ , #backpackid } until #findcnt = 0 return
UP tolko u menja on nepereodevaet gods art. mozhet kto pomo4?
:D:D
