17 replies to this topic

[RedBull]

Pomagite pazhalusto zdelatj bolshe zaderzhku na chenilku veshej i skladavanie v bank ato menja pastojanno cl kagda chenusj ili skidavaju v bank




set %maxWeight 600 ; Max ves
set %weapon JOH ; pushka
set %armor AIK ; shield
set %additio
nalClothes ; Half-apron, sandels u.c.
set %skillRobe GQOPKMD ; Skill Roba
set %skillCloak NYLPKMD ; Skill Cloack
set %skillMask OXMVKMD ; Skill Mask
set %simpleRobe FNHYJMD ; Parasta Roba
set %simpleCloak DGJYJMD ; Parastais cloack
set %simpleMask KLMBKMD ; Parasta maska
set %container EMURJMD ; ID konteinera v banke
set %items OZF_RMK_EQD_LPF_POF_CUD ; Fish, bones i.t.d
set %repairTool MASRKMD ; ID Repair tool's
set %repairSewingKit FGKLKMD ; ID Reair Sewing Kit
set %gloryColor 1084 ; cvet ingov dlja repair armor i pushki
set %oldpColor 1084 ; cvet oldp
set %botsToKill 10 ; posle kotorova ubitova bota nada chintj bow



;**********************************************
namespace global BotsKilledByCleric
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:
gosub check
msg back$
wait 18s
msg stop$
gosub fishing

gosub check
msg back$
wait 18s
msg stop$
gosub fishing

gosub check
msg right $
wait 18s
msg stop$
gosub fishing

gosub check
msg right $
wait 18s
msg stop$
gosub fishing

gosub check
msg forward$
wait 18s
msg stop$
gosub fishing

gosub check
msg forward$
wait 18s
msg stop$
gosub fishing

gosub check
msg left$
wait 18s
msg stop$
gosub fishing

gosub check
msg left$
wait 18s
msg stop$
gosub fishing
goto moving

sub fishing
for %xx -5 -3
{
for %yy -5 5
{
gosub throw
}
}
for %xx -2 2
{
for %yy -5 -2
{
gosub throw
}
}
for %xx 3 5
{
for %yy -5 5
{
gosub throw
}
}
return

sub throw
if #weight > %maxWeight
gosub trashFish
gosub ghost
gosub check
if #weight > %maxWeight
{
gosub openBank
gosub razgruzka
}
finditem XHF
set #LOBJECTID #FINDID
event macro 17 0
wait 2
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 + 15
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
gosub check
goto loop

sub loot
finditem YFM G_4
set %lootTime #scnt + 25
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && #scnt < %lootTime
wait 1
wait 20
repeat
{
finditem POF C_ , #contid
if #findcnt <> 0
{
exevent drag #findid #findstack
wait 10
exevent dropc #backpackid
wait 15
}
}
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
if #findcol = %gloryColor || #findcol = %oldpColor
{
ignoreitem #findid 1
finditem #findid
}
exevent Drag #Findid #findstack
exevent Dropc %container
wait 20
}
until #false

sub openBank
repeat
{
finditem UVX G_3
set #lobjectid #findid
event macro 17 0
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
set %charX #charposx
set %charY #charposy
set %charz #charposz
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
if %checkDurab
gosub checkDurability
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 ghost
if #charghost = YES
{
terminate uo
halt
}
return

sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 5s
return

sub repairWeapon
put:
repeat
{
finditem %weapon C_ , #charid
exevent drag #findid
exevent dropc #backpackid
wait 20
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
gosub changeClothesTo %skillMask %skillRobe %skillCloak
return

sub attack
sound
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 %simpleMask %simpleRobe %simpleCloak
msg $.arm$
gosub kill
gosub changeClothesTo %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 20
}
}
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 20
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

[RedBull]

i s assist ja tozhe proboval menja cl'it!!

[imja1]

nu i u menja CL ... Delo ne v zaderzke , delo v klijente.
Pravdo bivajet , 4to no4 normalno rabotajet ...
V osnovnom zavisajet klijent , kogda pereodevajetsa personazh ili otkrivajet bank , 4to bi razgruzitsa.

P.S ja otkli4il zvuk v klijente , 4to bi umenshit' zavisanije ...

Da , sravnil tvoj scp so svojim , u tebja dejstvitel'no jest' mesta , gde zaredzki otsutstvujut
No eto lish umen'shit zavisanije , a ne polnostju jego ustranit...

[RedBull]

a nehotel b mne pomoch hotjabe umenshitj problemu cl'a??

[imja1]

set %milk ZBM; молоко (хавка №1)

set %bacon GND; бекон (хавка №2)

set %maxWeight 500; maksimalnij ves

set %weapon JOH; type pushki

set %armor IMH_YLH_WLH_BMH_CSH_HSH_AIK_JOH; Armor + shield

set %additionalClothes XDI_NVI_PAM_LDI; Half-apron, sandels, surcoat, kit, pantoloni itd

set %skillRobe DZABKMD; Skill Roba

set %skillCloak SCABKMD; Skill Cloack

set %skillMask KKABKMD; Skill Mask

set %GODSart JJUSKMD; GODS artefact

set %simplePants NLRGMMD; Pantaloni

set %simpleRobe QSTELMD; Priostaja Roba

set %simpleCloak TYAYLMD; Prostoj cloack

set %simpleMask FHURLMD; Prostaja mrepairrepairrepairrepairrepairaska

set %container YHCAMMD; ID konteinera v banke

set %items DQD_EQD_FQD_GQD_DMF_EQD_FQD_NSH_DPH_CUD_POF_LPF_OZF; kosti, pandorki, ingi i.t.d.

set %repairTool BTXFMMD; ID Repair tool's

set %repairSewingKit QDEVLMD; ID Reair Sewing Kit

set %botsToKill 10; 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 BotsKilledByCleric

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:

gosub check

msg back$

wait 4s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back $

wait 14s

msg stop$

gosub fishing



gosub check

msg back $

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg forward$

wait 200s

msg stop$

gosub fishing

goto moving



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 KDF

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

Skript nastrojem pod klerika 5lvl
v bakpake dolzhno bit':
moloko, bekon, repair tool , tailor repair tool ( esli netu gorgeta , to ne objazatel'no ), glory ring set , glory axe , +skill items (plas4, maska, roba) , smennaja plas4 i roba , ignoti glory , glory s4it, tkan' dlja po4inki odezdi (smennoj).
V obs4em kartinku prikrepil , smatri sam...

Kak i skazal , mozhet zavisnut' , a mozhet i otrabotat' normalno.
Jesli idjosh na makros , perezagruzi klijent i easyuo , inogda pomogajet proderzatsa 5-7 4asov bez zavisanija.
Mozhno jes4o ispolzovat' inject , dlja rekonekta , t.k jesli ribalish v more , to password dlja security ne prosit.
Jesli klijent perezagruzajetsa ne dolgo , to easyuo prodolzajet rabotat' (=
Ah da , ja ubral 4ast' skripta , gde razgruzajet ignoti v bank , t.k u menja cvet ne srabatival, v itoge lomalas' pushka.
ne tak uzh i mnogo lovitsa OLDP ignotov , 4to bi vesu meshalo. K tomuzhe glory 4initsa i ves osvobozdajetsa.

Ispolzuju klijent modificirovanij s bolshim razreshenijem (900x600 vrode).
Easyuo 1.5 Version 137...

Vrode vsjo...

[RedBull]

a mozew moj slitj s toim scpt prosto bukvi mne drug stavil i.t.d

[imja1]

ghm... nu eto jerunda polu4itsa.
kak mozhno proverit' , rabotajet li programma , ne zapuskaja jejo ?
Gde ja proverju to , 4to sojedinil vo jedino?
Nu vozmi pro4ti ves' kod , posmatri gde stojit "wait" i vstav' v svoj skript.
jesli CL budet , zna4it delo ne v skripte.
Na servere stojit filtracija poketov , jesli 4to-to ne tak , tebja vikidivajet iz igri.

Eto uzhe ne igra polu4ajetsa, kogda prihoditsa 4asami sidet' i razberatsa , po4emu , da po4emu...
Ja vrode vsjo detal'no objasnil i raspisal, probuj!

[RedBull]

ok sps za pomosh! ese u kavo est kakoj variant katorij mozhet pomoch scripteram pishem nestisnaimsja (poderzhite temu )

[imja1]

Protiv CLa , netu zas4iti... Jest' lishi vozmozhnost' umenshit'.
Horosheje sojedinenije , bistrij kompjuter , umelije ruki i golova....
Kstati , mozhet u tebja dc ili torrent klijent vklju4en ? Izza nih tozhe mozhet vikidivat',
oni trafik sjedajut horosho i eto vlijajet na sojedinenije s serverom Oldp ;]

[Megatron]

U mina obichno tozhe CL`lil, no was vot otstojal 17 chasov, tok sel za komp i 1 acc crashnulo

[RedBull]

Protiv CLa , netu zas4iti... Jest' lishi vozmozhnost' umenshit'.
Horosheje sojedinenije , bistrij kompjuter , umelije ruki i golova....
Kstati , mozhet u tebja dc ili torrent klijent vklju4en ? Izza nih tozhe mozhet vikidivat',
oni trafik sjedajut horosho i eto vlijajet na sojedinenije s serverom Oldp ;]

hmmm.... da bivaet! uchtu!

[RedBull]

ktonitj ishe dajte kakiji soveti pazhalusta ...

[RedBull]

ktonitj ishe dajte kakiji soveti pazhalusta ...

mne tak ishe nepomoglji

[Klikyn]

А у меня вот проблемы... прописал все как нужно все ИД Тайпы. (Банка.)

И не ложыт вещи в банк... хотя вес уже 554 а стоит 450 когда ложыть в банк должен!

set %maxWeight 450; Max ves

set %weapon JOH; Pushka

set %armor IMH_WLH_YLH_BMH_CSH_AIK; Armor + shield + steel fameale & ring legs

set %additionalClothes XDI_NVI_PAM_LDI; Half-apron, sandelji itd

set %skillRobe UUKGMMD; Skill Roba

set %skillCloak TKKGMMD; Skill Cloack

set %skillMask ANKGMMD; Skill Mask

set %simpleRobe WNTDMMD; Prostaja Roba

set %simpleCloak HZTDMMD; Prostoj cloack

set %simpleMask CSH; Prostoj shlem

set %container YFBMMMD; ID konteinera, gde razgruzivatj veshchi

set %items OZF_RMK_EQD_LPF_CUD_POF_LPF; pandorki, bones idt

set %repairTool ZKEMLMD; ID Repair tool's

set %repairSewingKit GZNAMMD; ID Repair Sewing Kit

set %plazmaColor 1084; cvet ingov, s kotorim nado chinitj armor

set %steelColor 2421; cvet ingov, s kotorim nado chinitj armor

set %infernoColor 2164; cvet ingov, s kotorim nado chinitj pushku [ OLDP - 1097; Glory - 1084; Inferno - 2164 ]

set %botsToKill 10; Posle skolko ubitix botov chinitj armor i pushku









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:

gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg right $

wait 14s

msg stop$

gosub fishing



gosub check

msg right $

wait 14s

msg stop$

gosub fishing



gosub check

msg forward$

wait 14s

msg stop$

gosub fishing



gosub check

msg forward$

wait 14s

msg stop$

gosub fishing



gosub check

msg left$

wait 14s

msg stop$

gosub fishing



gosub check

msg left$

wait 14s

msg stop$

gosub fishing

goto moving



sub fishing

for %xx -5 -3

{

for %yy -5 5

{

gosub throw

}

}

for %xx -2 2

{

for %yy -5 -2

{

gosub throw

}

}

for %xx 3 5

{

for %yy -5 5

{

gosub throw

}

}

return



sub throw

if #weight > %maxWeight

gosub trashFish

gosub ghost

gosub check

if #weight > %maxWeight

{

gosub dropGhostBone

}

finditem XHF

set #LOBJECTID #FINDID

event macro 17 0

wait 2

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 + 15

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

return

if #scnt >= %overtime

return

goto loop



sub loot

set %lootTime #scnt + 20

finditem YFM G_4

if #findcnt >= 1

{

set #lobjectid #findid

set %body #findid

event macro 17 0

while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt

wait 1

wait 10

repeat

{

finditem POF C_ , %body

if #findcnt = 0 || #scnt > %lootTime

{

ignoreitem %body 2

set !bot !bot + 1

set !totalBots !totalBots + 1

event macro 21 0

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait 20

}

until #false

}

return



sub razgruzka

ignoreitem reset 1

finditem %container C_ , %bank

if #findcnt = 0

{

event sysmessage Kontainer ne naiden!

pause

}

repeat

{

finditem %items c_ , #backpackid

if #findcnt = 0

return

if #findcol = %infernoColor || #findcol = %steelColor || #findcol = %plazmaColor

{

ignoreitem #findid 1

finditem #findid

}

exevent Drag #Findid #findstack

exevent Dropc %container

wait 25

}

until #false

return



sub openBank

repeat

{

finditem UVX G_3

set #lobjectid #findid

wait 10

event macro 17 0

wait 10

while #contname <> generic_gump && #contsize <> 330_270

wait 1

click 601 245

wait 40

click 601 245 r

wait 40

}

until #conttype = IKF

set %bank #contid

return



sub kill

msg .arm$

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

return



sub ghost

if #charghost = YES

{

repeat

{

click 992 82

wait 10

click 547 388

wait 10

}

until #clilogged = 0

sound

wait 10

sound

wait 10

sound

halt

}

return



sub eat

finditem ZBM C

set #lobjectid #findid

event macro 17 0

wait 10

finditem GND C

set #lobjectid #findid

event macro 17 0

wait 10

event macro 17 0

wait 5s

return





sub repairWeapon

put:

repeat

{

finditem %weapon C_ , #charid

exevent drag #findid

wait 10

exevent dropc #backpackid

wait 20

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

gosub changeClothesTo %skillMask %skillRobe %skillCloak

return



sub take&repair

repeat

{

finditem %1 C_ , #charid

exevent drag #findid #findstack

wait 10

exevent dropc #backpackid

wait 15

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



sub attack

sound

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 %simpleMask %simpleRobe %simpleCloak

msg $.arm$

gosub kill

gosub changeClothesTo %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

{

set #ltargetkind 1

set #ltargetid #findid

msg $.dropitem$

target 2s

event macro 22 0

wait 20

}

}

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 dropGhostBone

repeat

{

finditem EQD C_ , #backpackid

if #findcol = 913

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 25

}

else

ignoreitem #findid

finditem EQD C_ , #backpackid

}

until #findcnt = 0

return

[Prey]

А у меня вот проблемы... прописал все как нужно все ИД Тайпы. (Банка.)
----------------------------------------------------------------------------------------

Надо прописывать не ИД банка, а сумки в банке куда все скидываешь.

[Tristan]

Nada prosta na4inat riba4it v tom meste gde naxoditsa bank ---> vsamom nosu koroblja Jesli ti gdeto zadi zapustil scp to on nemozet dotenutsa do bank ai razgruzit veshi

[Klikyn]

Я Рыбачю рядом с трюмом. Также прописал трапед который кидать и который в банке. и всёравно не ХУЯ!

[UOlife]

set %milk ZBM; молоко (хавка №1)

set %bacon GND; бекон (хавка №2)

set %maxWeight 500; maksimalnij ves

set %weapon JOH; type pushki

set %armor IMH_YLH_WLH_BMH_CSH_HSH_AIK_JOH; Armor + shield

set %additionalClothes XDI_NVI_PAM_LDI; Half-apron, sandels, surcoat, kit, pantoloni itd

set %skillRobe DZABKMD; Skill Roba

set %skillCloak SCABKMD; Skill Cloack

set %skillMask KKABKMD; Skill Mask

set %GODSart JJUSKMD; GODS artefact

set %simplePants NLRGMMD; Pantaloni

set %simpleRobe QSTELMD; Priostaja Roba

set %simpleCloak TYAYLMD; Prostoj cloack

set %simpleMask FHURLMD; Prostaja mrepairrepairrepairrepairrepairaska

set %container YHCAMMD; ID konteinera v banke

set %items DQD_EQD_FQD_GQD_DMF_EQD_FQD_NSH_DPH_CUD_POF_LPF_OZF; kosti, pandorki, ingi i.t.d.

set %repairTool BTXFMMD; ID Repair tool's

set %repairSewingKit QDEVLMD; ID Reair Sewing Kit

set %botsToKill 10; 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 BotsKilledByCleric

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:

gosub check

msg back$

wait 4s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back $

wait 14s

msg stop$

gosub fishing



gosub check

msg back $

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg back$

wait 14s

msg stop$

gosub fishing



gosub check

msg forward$

wait 200s

msg stop$

gosub fishing

goto moving



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 KDF

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

Skript nastrojem pod klerika 5lvl
v bakpake dolzhno bit':
moloko, bekon, repair tool , tailor repair tool ( esli netu gorgeta , to ne objazatel'no ), glory ring set , glory axe , +skill items (plas4, maska, roba) , smennaja plas4 i roba , ignoti glory , glory s4it, tkan' dlja po4inki odezdi (smennoj).
V obs4em kartinku prikrepil , smatri sam...

Kak i skazal , mozhet zavisnut' , a mozhet i otrabotat' normalno.
Jesli idjosh na makros , perezagruzi klijent i easyuo , inogda pomogajet proderzatsa 5-7 4asov bez zavisanija.
Mozhno jes4o ispolzovat' inject , dlja rekonekta , t.k jesli ribalish v more , to password dlja security ne prosit.
Jesli klijent perezagruzajetsa ne dolgo , to easyuo prodolzajet rabotat' (=
Ah da , ja ubral 4ast' skripta , gde razgruzajet ignoti v bank , t.k u menja cvet ne srabatival, v itoge lomalas' pushka.
ne tak uzh i mnogo lovitsa OLDP ignotov , 4to bi vesu meshalo. K tomuzhe glory 4initsa i ves osvobozdajetsa.

Ispolzuju klijent modificirovanij s bolshim razreshenijem (900x600 vrode).
Easyuo 1.5 Version 137...

Vrode vsjo...

Вписал в этот скрипт все свои данныйе, правдо не клерик а арчер одел его в глори ринг, зделал вилы ! запускаю скрипт, он плывёт назад на несколько тайлов пишет стоп и стоит нихера не делает ! чё за хрень ?!