14 replies to this topic

[Jaffa]

Есть у кого скрипт на Алхимию,чтоб сам брал банки и реги делалбскладывал и заного брал ресы?

[invisiblity]

Есть! А что на форуме нету? Я свой просто сам делал.

[Jaffa]

na forume toka na uopilot...i to takoi cto samomu nado stavitj pauzu lozitj i bratj zanogo resursi

[invisiblity]

А ну если такой скрипт негде нету, делится тоже несобераюсь!

[Jaffa]

[Jaffa]

rediska ti ploxoi zadnij celovek ti

[kym4uk]

А ну если такой скрипт негде нету, делится тоже несобераюсь!

я балдю

[invisiblity]

Ну а смысл делится скриптом каторога на форуме нету , чтоб потом разные бизнессмены ставили алхимию на 30% дешевле?

[Jaffa]

nu mozew v licku ee skinutj..tembolee ja ne stavlju

[VIenki]

initevents
initevent
uoswap:
if #charname <> nick
{
UOXL swap
goto uoswap
}

set %BOX WHXGMMD ; Откуда брать
SET %MUSORKA APBCMMD ; куда складовать!
set %eatBOX GHCFLMD
SET %REG LZF ;рег
SET %Skreg 700 ; ск. регов
SET %ITEM PGJ ; Тип изделия
SET %Tool RQF ; Тул
SET %banka PGJ ; Банка
set %skbanka 100
SET %TIME1 150 ; Ждатьб на скане журки
SET %TIME2 15 ; Ждать при перетягивание айтэмов
set %eatTIME 600
set %Drink ZBM
set %eat GND_HND
set %SCNT #SCNT + %eatTIME
GOSUB Craft


SUB Craft
if #SCNT >= %SCNT
gosub eat
Finditem %Tool C_ , #BackpackID
IF #Findkind <> -1 4
SET #LobjectID #FindID
Event Macro 17 0
wait 5
Click 489 454
GOSUB Journal
return
SUB Journal
Deletejournal
set %CNT #SCNT2 + %TIME1
scan:
event SysMessage
Scanjournal
IF You_need IN #Journal ;|| IF You_need IN #Sysmsg
GOSUB Tresh
IF You_put IN #Journal ;|| IF You_put IN #Sysmsg
GOSUB craft
IF #SCNT2 > %CNT
GOSUB craft
goto scan
Return
return

SUB Tresh

Finditem %ITEM C_ , #BackpackID
IF #Findkind <> -1 3
exevent Drag #FindID #FindStack
exevent Dropc %MUSORKA
wait %TIME2
Finditem %Banka C_ , #BackpackID
IF #Findkind <> -1 3
exevent Drag #FindID #FindStack
exevent Dropc %BOX
wait %TIME2

Finditem %REG C_ , #BackpackID
IF #Findkind <> -1 3
exevent Drag #FindID #findstack
exevent Dropc %BOX
wait %TIME2

reg:
Finditem %REG C_ , %BOX
IF #Findkind <> -1 4
exevent Drag #FindID %Skreg
exevent Dropc #BackpackID
wait %TIME2


P.S na easyuo :>

[Jaffa]

spasibo

[Kaljkuljator]

sps

[Graff TrAXuLA]

Реги берёт, банки не берёт. В чём может быть дело?

[lolotajs]

set %box MQDZJMD ; container

set %regsForAlchemy DUF_DAG ; kakie regi nado vzjatj

set %amountRegs 350 ; skolko regov vzjatj                                  DUF_DAG ; DRAGON HEARTS I dragon bloods

set %amountEmptyBottles 50 ; skolko butilkov vzjatj                       IUF_GUF ; dragon hearts, dragon winds

 

display ok Target on Empty Bottle!

set #targcurs 1

while #targcurs = 1

wait 1

finditem #ltargetid

set %eBtype #findtype

set %eBcol #findcol

display ok Target on Ready Product!

set #targcurs 1

while #targcurs = 1

wait 1

finditem #ltargetid

set %Btype #findtype

set %Bcol #findcol

set %eat 0

 

 

_start:

wait 10

for %i 1 5

{

scanjournal %i

deletejournal

}

set %fail 0

finditem RQF

set #lobjectid #findid

event macro 17 0

wait 40

gosub gumpWait

_click:

click 493 455

gosub scan

goto _click

 

sub gumpWait

set %failT #scnt + 15

_wait:

if #contname = generic_gump && #contkind = UCHB

return

if #scnt > %failT

return

wait 10

goto _wait

return

 

sub scan

deletejournal

set %lag #scnt + 15

_scan:

for %i 5 1

{

if world_save in #journal || world_save in #sysmsg

{

wait 35s

goto _start

}

scanjournal %i

if hungry in #journal && #scnt > %eat

{

gosub eat

return

}

if you_put in #journal

return

if you_fail in #journal || you_have_failed in #journal

{

set %fail %fail + 1

if %fail >= 3

{

wait 5s

goto _start

}

else

return

}

if #scnt > %lag

goto _start

if you_can't_make_it in #journal || you_need in #journal

{

gosub drop&take

goto _start

}

}

goto _scan

return

 

sub drop&take

set #lobjectid %box

event macro 17 0

while #contid <> %box

wait 1

repeat

{

finditem %Btype C_ , #backpackid

if #findcol <> %Bcol

ignoreitem #findid 1

finditem %Btype C_ , #backpackid

}

until #findcol = %Bcol

if #findcnt = 0

halt

exevent drag #findid #findstack

exevent dropc %box

wait 15

repeat

finditem #findid C_ , #backpackid

until #findcnt = 0

ignoreitem reset 1

repeat

{

finditem %eBtype C_ , %box

if #findcol <> %eBcol

ignoreitem #findid 1

finditem %eBtype C_ , %box

}

until #findcol = %eBcol

if #findcnt = 0

halt

exevent drag #findid %amountEmptyBottles

exevent dropc #backpackid

wait 25

ignoreitem reset 1

repeat

{

finditem %regsForAlchemy C_ , %box

exevent drag #findid %amountRegs

exevent dropc #backpackid

wait 15

ignoreitem #findtype 1

}

until #findcnt = 0

ignoreitem reset 1

wait 40

finditem %regsForAlchemy C_ , #backpackid

if #findcnt = 0

halt

return

 

sub eat

set %lobjct #lobjectid

finditem ZBM C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 10

finditem GND C_ , #backpackid

set #lobjectid #findid

event macro 17 0

wait 10

event macro 17 0

wait 2s

set #lobjectid %lobjct

set %eat #scnt + 360

return

 

 

 

etot idot

[Graff TrAXuLA]

Спасибо ))))