fckyouz

если конечно можно назвать дроп дропом.. итак , сегодня решил побить эльфов , 9 часов я бил этих аболтусов , а в итоге - ниодной вещи..пару эликов и бутылок... МОЖЕТ ЭТО НЕВЕЗЕНИЕ?!?! ок , чёрт сним... с 400 пандор - 2 арта....ладно еслиб нормальных..понимаю...а тааак.....
химия - наука конечно веселая , но ненастолько же....
Шан , Проверь % , может збилось что-то...

initevents
; Set Up The Following Variables:
set %repairWeap 15 ; after how many killed bots repair weapon
set %repairArmor 35 ; after how many killed bots repair all armor
set %maxWeight 600 ; Max svars
set %box RVZILMD ; Kastes ID, kur likt ruudu u.c. itemus
set %xCoord 333 ; X koordinaata tieshi pie kastes
set %yCoord 333 ; Y koordinaata tieshi pie kastes
set %dropMarganece #true ; #true - nomet Marganece ruudu , #false - nenomet
;set %skillItemChange #true ; #true - mainiis dreebes, #false - nemainiis
set %recall #true ; #true - lidos ar runebook, #false - skries taapat
; Do Not Set These Items If %skillItemChange #false
;set %skillRobe VQPFMMD ; Skill Roba (ID)
;set %skillCloak TIPFMMD ; Skill Cloack (ID)
;set %skillMask BUPFMMD ; Skill Mask (ID)
;set %simpleRobe AFZCKMD ; Parasta Roba (ID)
;set %simpleCloak NQJEKMD ; Parastais cloack (ID)
;set %simpleMask KHIBKMD ; Platemail helms (ID)
; End Of Changable Clothes List
; Do Not Set These Numbers If %recall #false
set %runebookID UNNALMD ; Runebooka ID
set %runeNumberToHome 1 ; Runas Nr uz maaju
set %runeNumberToCave 4 ; Runas Nr uz alu
; End Of Set Up Part

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG
set %loot DCI_TVJ_FWL_GWJ_EWJ_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
}

start:





goto start

sub MINING
gosub ghost
gosub checkHP
gosub checkWeight
move %1 %2 1 30s
finditem NPF_QPF C_ , #backpackid
if #findcnt = 0
{
display ok Pickaxe wasn't found!
halt
}
set #lobjectid #findid
event macro 17 0
target 7s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 25
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
if #result = drop
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if #result = mine
return
}
}
return

sub scan
scan:
scanjournal
gosub checkHP
if hungry in #sysmsg
gosub eat
if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #sysmsg )
+ || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg )
+ || ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the ) )
return
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
wait 20
gosub checkHP
finditem ED G
if #findcnt <> 0
{
msg .arm$
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set #ltargetid #findid
event macro 27 0
wait 10
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
click 261 215 ;Recharge runebook
wait 20
gosub openRunebook
click %x1 %y1
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
gosub runToBox
finditem %box G_3
wait 20
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
drop:
finditem %item c_ , #backpackid
if #findkind = -1
return
exevent Drag #Findid #findstack
exevent Dropc %box
wait 20
goto drop
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
click 261 215
wait 20
gosub openRunebook
click %x2 %y2
wait 5s
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return

sub follow&kill
msg .arm$
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
gosub loot
return

sub checkHP
if #hits < #maxhits
{
msg .arm$
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return

sub ghost
if #charGhost = YES
{
terminate uo
halt
}
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
return

sub eat
finditem ZBM C
if #findcnt > 1
{
set #lobjectid #findid
event macro 17 0
wait 5
}
finditem GND C
if #findcnt > 1
{
set #lobjectid #findid
event macro 17 0
wait 5
event macro 17 0
}
wait 10
return

sub Instalyze
if % . %1 <= 8
set %x . %2 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
return

sub repair
event macro 6 0
event exmsg #charid 3 64 repairing..
if %bW = %repairWeap
{
gosub take&repair %repairTools %weapon
set %bW 0
}
if %bA = %repairArmor
{
gosub take&repair %repairTools %armor
set %bA 0
}
return

sub take&repair
if %bW = %repairWeap
{
repeat
{
finditem %2 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
finditem %2 C
}
until #findbagid = #backpackid
}
repeat
{
finditem %2 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
finditem %2 C_ , #charid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
_repairing:
set #lobjectid %1
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
if #findtype = CIK
ignoreitem #findid 1
finditem #findid
set #lobjectid #findid
event macro 17 0
wait 20
finditem %2 C_ , #backpackid
}
until #findcnt = 0
ignoreitem reset 1
msg .arm$
wait 10
msg .arm$
return

sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
if #weight >= %maxweight
return drop
if #weight < %maxweight
return mine
}
if #findcol = 1750
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 20
}
ignoreitem #findid 1
goto dropLoop
return

sub loot
finditem YFM G_4
if #findcnt > 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212
wait 1
_loot:
finditem %loot C_ , #contID
if #findcnt = 0
{
ignoreitem #contID 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 20
goto _loot
}
return


когда вылазет элемент , он не передивает скилл шмот и начинает атаковать элемента.После как убил его , снимает весь скилл шмот и не надев его , начинает сново капать. люди добрые помогите , исправте что нетак...

Шанахан , я седня на твой счёт кинул денюжку.не мог бы ты мне перечислить РП сегодня , хотел сегодня качать чара. Заранее спасибо!
ацц - Fckyou

помогите , если есть у кого скрипт на приследование монстра , типо pathfinding или как - то так... скиньте пожалуйста