Alucard DK

Псц реклама такая была все будет нормально парни тераяйте свой нет и время в задницу бред Шахахан ты мудак был мудаком и осталься!

vot scp vso delajit skladivajit i perekladivajit :F daze sexam mozit zanatsa[joke]

ты лучше скажы чего тут не хочет скидывать ?

; Set Up The Following Variables: #False - yes, #True - no

set %maxWeight 360		

set %box IPZXLMD		

set %dropMarganece #true

set %dropTin #true

set %dropBronze #true

set %dropLead #true 

set %dropCorrundum #true

set %dropGold #true 

set %dropTourmaline #true

set %dropSilver #true

set %dropMarble #true

set %dropZink #true

set %dropGypsum #true 

set %dropSandstone #true

set %dropCopper #false 

set %dropIron #true

set %dropTitan #false 

set %dropStone #true 

set %dropPlaster #true   

set %skillItemChange #False

set %recall #false		

set %skillRobe PXXBKMD	

set %skillCloak BFKNKMD  

set %skillMask YZSQLMD	

set %simpleRobe VTIPKMD  

set %simpleCloak XJWWKMD  

set %simpleMask OSH  

set %runebookID BSJJLMD 

set %runeNumberToHome 4  

set %runeNumberToCave 4  

set %amountRecalls 10	



set %repairwep #true	   

set %weapon PFPBMMD	   

set %ings RMK			 

set %repairTool XXHTKMD   





; Do Not Set These Variables If %tracking #false

; End Of Set Up Part



set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG

set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL



msg UnFlame script start :)

wait 30



if %recall

{

gosub Instalyze runeNumberToHome 1

gosub Instalyze runeNumberToCave 2

}

if %dropMarganece

set %MarganeceCol 1750

if %dropTin

set %TinCol 1325

if %dropBronze

set %BronzeCol 1160

if %dropLead

set %LeadCol 2125

if %dropCorrundum

set %CorrundumCol 1548

if %dropGold

set %GoldCol 1093

if %dropTourmaline

set %TourmalineCol 1218

if %dropSilver

set %SilverCol 1153

if %dropMarble

set %MarbleCol 1950

if %dropZink

set %ZinkCol 38

if %dropGypsum

set %GypsumCol 995

if %dropSandstone

set %SandstoneCol 144

if %dropCopper

set %CopperCol 1537

if %dropIron

set %IronCol 0

if %dropTitan

set %TitanCol 1107

if %dropStone

set %StoneCol 2313

if %dropPlaster

set %PlasterCol 151

event sysmessage Setting Paperdoll in right position..

event macro 8 1

wait 30

event macro 8 1

wait 30

contpos 780 -26

finditem QRM_FJM_GKM C_ , #backpackid

if #findcnt <> 0

{

set #lobjectid #findid

event macro 17 0

wait 30

}



start:

Сами выстовляйте !





goto start



sub ljing

gosub ghost

gosub checkHP

gosub element

gosub checkWeight

move %1 %2 1 40s

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

gosub scan

return



sub checkWeight

if #weight > %maxWeight

{

if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron && ! %dropTitan && ! %dropStone && ! %dropPlaster

{

if %recall

gosub port

if ! %recall

gosub moveItems

}

if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster ||

{

gosub dropMarganece

return

}

}

return



sub scan

scan:

gosub element

scanjournal

gosub checkHP

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

+ || ( 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 in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )

+ || ( You_can't_use_that in #journal ) || ( That_is_too_far in #journal )

return

gosub checkHP

if #scnt >= %overtime

return

goto scan

return



sub port

msg .arm$

gosub checkHP

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 10

}

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

event macro 13 21

if %skillItemChange

gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak

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

wait 10

gosub moveItems

gosub back

goto start

return



sub moveItems

move x y xy

wait 1

repeat

{

msg bank$

wait 40

}

until #conttype = CKF

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 <> 0

 {

 exevent Drag #Findid #findstack

 exevent Dropc %box

 wait 25

 }

}

until #findcnt = 0

ignoreitem reset 1

; Koordinati obratno do peshcheri

move 1 1 1;?????????? ?? ?????? ?? ????? ? ?????, ?????? ????? ?? ???????

wait 1

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

if %skillItemChange

gosub changeClothesTo %skillMask %skillRobe %skillCloak

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

wait 10

return



sub runToBox

{

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

}

if hungry in #sysmsg

{

gosub eat

return

}

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

wait 20

}

until #findcnt = 0

repeat

{

finditem %2 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

finditem %2 C_ , #backpackid

wait 20

}

until #findcnt = 0

repeat

{

Finditem %3 C_ , #backpackid

set #lobjectID #findid

event macro 17 0

finditem %3 C_ , #backpackid

wait 20

}

until #findcnt = 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 15s

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

  if #weight >= %maxweight

   {

   if %recall

   gosub port

   if ! %recall

   gosub moveItems

   return

   }

  if #weight < %maxweight

   return

}

if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol ||

{

exevent drag #findid #findstack

exevent dropg #charposx #charposy #charposz

wait 50

}

ignoreitem #findid 1

goto dropLoop

return



sub loot

set %lootTime #scnt + 30

finditem YFM G_4

if #findcnt > 0

{

set #lobjectid #findid

event macro 17 0

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

wait 2s

wait 20

if #conttype = UID

set %corpse #contid

repeat

{

finditem %loot C_ , %corpse

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

{

ignoreitem %corpse 2

return

}

exevent drag #findid #findstack

exevent dropc #backpackid

wait 35

}

until #false

}

return



sub element

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

msg Uh, kak ja ego! Ubit, padla! $

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

finditem WTL C_ , %box

exevent drag #findid %amountRecalls

exevent dropc #backpackid

wait 20

}

return



sub repairWeapon

repeat {

put1:

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 put1

take1:

  set #lobjectid %box

  event macro 17 0

  wait 25

  finditem %ings C_, %box

  exevent drag #findid 5

  exevent dropc #backpackid

  wait 25

finditem %ings C_, #backpackid

if #findcnt = 0

goto take1



_repair:

  set #lobjectid %repairTool

  set #ltargetid %weapon

  set #ltargetkind 1

  set %lag #scnt + 10

  event macro 17 0

  wait 20

  target

  while #targcurs <> 1 && #scnt < %lag

  wait 1

  event macro 22 0

  wait 20

  finditem %ings C_, #backpackid



until You_fully_repaired || Your in #sysmsg

msg repaired sucessfully! $



take2:

  set #lobjectid %box

  event macro 17 0

  wait 10

  finditem %ings C_, #backpackid

  exevent drag #findid #findstack

  exevent dropc %box

  wait 25

finditem %ings C_, #backpackid

if #findcnt > 0

{ goto take2  }

msg resursi polozhil nazad, snova v put! $

return

кстати у меня такаяже беда после обновления перестал скидывать не которые виды руды в банк а также логов =( unflame твое решение не помогает =(

народ а как сделать чтобы он скидывал не только магрганц а еше ченить ? например тотже тин ?

Вот развели сопли во первых что такое Фулл Скиллкап это все свое , 2 легко по данжам и хардкоре пвп, 3 не обычайно интересные турниры должны быть , 4 как и говорили это мясо груглосуточно мясо с 300 онлайна к котором либо ты наварилься либо потерялься зато получил удовольствие от того что побывал в таком замесе , когда я играл на абиссе я год из щахты не вылазил чтобы купить 1 жалкий дом и то подфортило еше что знакомых завел которые поселили у себя в сартире , когда купил свой как счас помню был большой 2 этажный дом Tree Story Willa and Balkon вродь так называлься я его поставил возле гильдии которая рулила в то время рядом жили Colobok, Chaos , Rain , Immortal может кто помнит их еше жил Colombo но редко тусовалься дома обычно когото пинал так вот я все арморы сливал что были за годы накоплены за 1 день и кайфовал от этого а вы со своими классами сидите и только и знаете что палакаца а как там будет вар рулить с луком если магию кастовать , ты просто папробуй сыграть люди докачивались до такого что одеты были на 10кк ( Абисс ) и валили пол сервера спокойно тоже не плохо одетых приблизительно на 3-5кк а то што вы думаете типо все будут голыми бегать и фсить это бред ипо лута нету в добавот тут отнуть не плохо копаеца....

в кратце просто папробуйте и сами все поймете не надо сдоваца как достанет кочать лоры с крафтами вы о будушем подумайте что потом уже будет проше!