Ultima Online

[cap_slock]

Old Paradic или как там его уже..

 

Pomashka

 

А так ников столько же, сколько и шардов. 

На моих скриптах рунбуки зарежали.

DK - скрипты на мининг и авто кач ...со скидывание лута на корабль.

Скрипт на прокачку алхимии через вендора...покупал реги делал бутылки , продовал и по кругу...

 

Ну и Дрв для личного использования боевые скрипты.

 

 

[WitheR]

Парадис хуита

[cap_slock]

Парадис хуита

 

Больше всего нравилось DK, дрв и The myst.

 

[WitheR]

      finditem * G_3

              if #findkind = 1

                  {

                  exevent drag #findid #findstack

                  wait 1

                  exevent dropc #BACKPACKID

                  wait 1

                  }

SLEEP 1

[cap_slock]

      finditem * G_3

              if #findkind = 1

                  {

                  exevent drag #findid #findstack

                  wait 1

                  exevent dropc #BACKPACKID

                  wait 1

                  }

SLEEP 1

G_3

 

Это еще что?

[WitheR]

ground 3 tiles

[cap_slock]

Ты че уо. пилотом пользовался!?    :palevo:

[WitheR]

Это изиуо, она лучше чем инжект.

 

А пилотом офк в 2002-начале 2003 в клубе ставил на свой скрипт чужих чаров на мининг, а мне за это оплачивали комп на ночь

[Гость i have lost my keds]

send F5

wait 11000

 

scriptiruu 

[WitheR]

; TUF

set %meshokkamnei KMDQQND

set %meshokscrollov IQXCNND

set %meshokpandor NWQBCND

set %meshokagil CXTLBND

set %meshokbijuhi MEDPLND

set %meshokruin RMJPPND

set %meshokexpov MBKBAND

set %meshokregpak HTAYFND

set %meshokkart MCJDMMD

;

set %maptype XVH_SVH

set %foodtype KPE_ZPE_GQE_BDF_RGG_OQE_YSD_FWI_RQE_PQD_TQE_JQE_SPE_IQE_UPE

set %gemtype GVF_UVF_BVF_FVF_EVF_OVF_HVF_RVF

set %jeweltype hjg_ujg

set %highscrolltype avl_cvl_fvl_gvl_hvl_ivl_lul_nul_oul_tul_uul_vul_wul_xul_yul_zul

;

set %maces GFF_FFF_ZPF_CQF

set %max_weight 615

set %boxs_for_bags ZYZZBND

set %boxformask GRAXKMD

set %els BD

set %bank_id YYGNCND

set %pandors_box CUD

set %money POF

set %lockpicks NWH

set %bags CKF

set %item_for_collect_into_bank A

set %treeID CEWUOMD

set %msgnosell way

;=-=-=-=-=-=- От банка к кладбону

set %x1 5968

set %y1 1492

set %x2 5968

set %y2 1492

set %x3 5977

set %y3 1494

set %x4 5977

set %y4 1501

set %x5 5995

set %y5 1501

set %x6 5995

set %y6 1500

set %x7 6006

set %y7 1500

set %x8 6006

set %y8 1481

set %x9 6006

set %y9 1457

set %x10 5981

set %y10 1457

set %x11 5971

set %y11 1457

set %x12 5954

set %y12 1457

set %x13 5942

set %y13 1457

set %x14 5942

set %y14 1467

set %x15 5926

set %y15 1467

set %x16 5914

set %y16 1467

set %x17 5914

set %y17 1459

set %x18 5914

set %y18 1452

set %x19 5925

set %y19 1441

set %x20 5925

set %y20 1435

set %x21 5940

set %y21 1435

set %x22 5940

set %y22 1426

;=-=-=-=-=-=- от кладбона до ресалки

set %x200 5940

set %y200 1426

set %x201 5940

set %y201 1436

set %x202 5928

set %y202 1436

set %x203 5914

set %y203 1450

set %x204 5914

set %y204 1457

set %x205 5914

set %y205 1459

set %x206 5914

set %y206 1469

;=-=-=-=-=-=- От банка к масочнику

set %x300 5969

set %y300 1492

set %x301 5977

set %y301 1494

set %x302 5977

set %y302 1506

set %x303 5972

set %y303 1506

 

main:

ignoreitem reset

gosub set_interface

gosub sort_items_in_bank

gosub goto_place_with_els

gosub check_ghost

gosub attack_els

gosub check_ghost

gosub goto_bank

goto main

 

sub set_Interface

event macro 31

wait 5

event macro 8 1

wait 5

contpos 767 -31

wait 5

event macro 8 7

wait 5

contpos 785 305

wait 5

event macro 8 2

wait 5

contpos 749 507

wait 5

return

 

sub open_bags_in_backpack

deletevar opened_bags_in_backpack

finditem %bags C_ , #backpackid

if #findkind = 0

{

  for #findindex #findindex #findcnt

  {

      if #findindex = 1

      {

        set %opened_bags_in_backpack #findid

      }

      else

      {

        set %opened_bags_in_backpack %opened_bags_in_backpack , _ , #findid

      }

      set #lobjectid #findid

      event macro 17

      wait 6

  }

}

return

 

sub take_item_from_opened_bags

finditem * C

if #findkind = 0

{

  for #findindex #findindex #findcnt

  {

      if #findbagid in %opened_bags_in_backpack

      {

        exevent drag #findid #findstack

        wait 3

        exevent dropc #backpackid

        wait 3

      }

  }

}

return

 

sub open_pandors_box

while #true

{

  finditem %lockpicks C_ , #backpackid

  if #findkind = 0

  {

      set %lockpicks_id #findid

  }

  else

  {

      break

  }

  finditem %pandors_box C_ , #backpackid

  if #findkind = 0

  {

      set #lobjectid %lockpicks_id

      event macro 17

      target

      set #ltargetid #findid

      set #ltargetkind 1

      event macro 22

      wait 1s

  }

  else

  {

      break

  }

}

return

 

sub open_pandors_box_blue

while #true

{

  finditem %lockpicks C_ , #backpackid

  if #findkind = 0

  {

      set %lockpicks_id #findid

  }

  else

  {

      break

  }

  finditem %pandors_box C_ , #backpackid

  if #findkind = 0

  {

    if  #findcol = 1456

      {

      set #lobjectid %lockpicks_id

      event macro 17

      target

      set #ltargetid #findid

      set #ltargetkind 1

      event macro 22

      wait 1s

      }

    else

      {

      ignoreitem #findid

      }

  }

  else

  {

      break

  }

}

return

 

sub empty_pack

set #lobjectid %2

event Macro 17

wait 2s

bla_loop:

finditem %1 C_ , #backpackid

if #findkind = 0

{

      exevent drag #findid #findstack

      wait 3

      exevent dropc %2

      wait 3

      ignoreitem #findid

      goto bla_loop

}

return

 

sub maskout

finditem NZH C_ , #backpackid

if #findkind = 0

{

exevent drag #findid

wait 5

exevent dropc %boxformask

wait 5

}

return

 

sub bags_in_backpack_ignore

repeat

finditem CKF C_ , #backpackid

wait 1

if #findkind = 0

    ignoreitem #findid

until ( #FINDCNT < 1 ) || ( #charghost = YES )

return

 

sub goto_tree_trash

ignoreitem POF

treetrash:

finditem * C_ , #backpackid

if #findkind = 0

{

        set #lobjectid %treeID

        event macro 17

        target

        set #ltargetid #findid

        set #ltargetkind 1

        event macro 22

        wait 10

        exevent drag #findid #findstack

        wait 5

        exevent dropg #charposx #charposy #charposz

        wait 5

        ;gosub nosell;######################################################################################

goto treetrash

}

return

 

sub nosell

scanJournal 1

        if %msgnosell in #journal

        {

        deletejournal

        hideitem #findid

        ignoreitem #findid

        sleep 10

        }

return

 

sub Maceon

  finditem %maces C_ , #backpackid

  if #findkind = 0

  {

  set #lobjectid #findid

  wait 10

  event macro 17

  }

return

 

sub unload_regpaks

set #lobjectid %meshokregpak

event Macro 17

wait 2s

finditem TVH C_ , %meshokregpak

if #FINDCNT < 250

  {

  repeat

      {

      finditem TVH C_ , #backpackid

      if #findcol = 0

      {

      exevent drag #findid #findstack

      wait 1

      exevent dropc %meshokregpak

      wait 1

      }

      else

      {

        exevent drag #findid #findstack

        wait 5

        exevent dropg #charposx #charposy #charposz

        wait 5

      }

  until #FINDCNT < 1

  }

return

 

sub unload_agility

set #lobjectid %meshokagil

event Macro 17

wait 2s

finditem YUF C_ , %meshokagil

if #FINDCNT < 250

  {

  repeat

      {

      finditem YUF C_ , #backpackid

      exevent drag #findid #findstack

      wait 1

      exevent dropc %meshokagil

      wait 1

      }

  until #FINDCNT < 1

  }

return

 

sub unload_explogens

set #lobjectid %meshokexpov

event Macro 17

wait 8

finditem TUF C_ , %meshokexpov

if #FINDCNT < 30

  {

  repeat

      {

      finditem TUF C_ , #backpackid

      exevent drag #findid #findstack

      wait 1

      exevent dropc %meshokexpov

      wait 1

      }

  until #FINDCNT < 1

  }

return

 

sub unload_backpack

ignoreitem reset

msg bank $

wait 1s

finditem %bags C_ , #backpackid

set %bagsinbackpak #FINDCNT

finditem %boxs_for_bags C_ , %bank_id

set #lobjectid #findid

event Macro 17

wait 2s

finditem %bags C_ , %boxs_for_bags

set %bagsinbank #FINDCNT

set %totalbags %bagsinbackpak + %bagsinbank

if %totalbags > 252

{

  repeat

  {

      for %i %bagsinbackpak 253

      {

      finditem %bags C_ , %boxs_for_bags

      exevent drag #findid #findstack

      wait 1

      exevent dropc #backpackid

      wait 1

      }

      finditem %bags C_ , #backpackid

      wait 1

      set %bagsinbackpak #FINDCNT 

  }

  until ( %bagsinbackpak > 249 ) || ( #charghost = YES )

  gosub check_loaded_boxs

}

else

{

  repeat

  {

  finditem %bags C_ , #backpackid

    if #FINDCNT > 0

    {

      exevent drag #findid #findstack

      wait 1

      exevent dropc %boxs_for_bags

      wait 1

    }

  }

  until ( #FINDCNT < 1 ) || ( #charghost = YES )

}

return

 

sub goldout

finditem POF C_ , #backpackid

if #findkind = 0

{

exevent drag #findid #findstack

wait 5

exevent dropc %bank_id

wait 5

}

return

 

sub check_loaded_boxs

  for %i 301 303

  {

      repeat

      move %x . %i %y . %i 0 4s

      until ( #charposx = %x . %i ) && ( #charposy = %y . %i )

  }

      repeat

  {

  set #lobjectid YISVO

  event macro 17

  wait 20

  contpos 1 1

  wait 10

  click 30 227 d

  wait 2s

  click 20 300

  wait 15

      finditem NZH C_ , #backpackid

  wait 1s

  }

  until #findkind = 0

  for %i 303 300

  {

  repeat

  {

      move %x . %i %y . %i 0 4s

      }

            until ( #charposx = %x . %i ) && ( #charposy = %y . %i )

  }

  repeat

  {

  move 5969 1492 0 4s

  }

        until ( #charposx = 5969 ) && ( #charposy = 1492 )

}

return

 

sub sort_items_in_bank

if #charghost = YES

  return

msg bank $

wait 2s

gosub open_bags_in_backpack

gosub take_item_from_opened_bags

gosub pandignore

gosub open_pandors_box_blue

ignoreitem reset

gosub open_pandors_box

gosub empty_pack %gemtype %meshokkamnei

gosub empty_pack %jeweltype %meshokbijuhi

gosub empty_pack %highscrolltype %meshokscrollov

gosub empty_pack %maptype %meshokkart

gosub unload_regpaks

;gosub Maceon

;gosub unload_agility

;gosub empty_pack %pandors_box %meshokpandor

gosub empty_pack_ruins

ignoreitem reset

;gosub unload_explogens

gosub maskout

gosub eating

ignoreitem reset

gosub bags_in_backpack_ignore

gosub goto_tree_trash

gosub unload_backpack

msg bank $

wait 1s

gosub goldout

gosub maskout

gosub unload_backpack

msg bank $

wait 1s

gosub maskout

return

 

sub empty_pack_ruins

repeat

finditem * C_ , #backpackid

if #findkind = 0

  {

  if #findCol = 2449

    {

    exevent drag #findid #findstack

    wait 3

    exevent dropc %meshokruin

    wait 3

    ignoreitem #findid

    }

  else

    {

    ignoreitem #findid

    }

  }

until ( #FINDCNT < 1 ) || ( #charghost = YES )

return

 

sub goto_bank

for %i 22 1

{

repeat

{

  move %x . %i %y . %i 0 4s

  }

        until ( #charposx = %x . %i ) && ( #charposy = %y . %i )

}

repeat

{

move 5968 1492 0 4s

}

      until ( #charposx = 5968 ) && ( #charposy = 1492 )

return

 

sub check_ghost

if #charghost = YES

{

  for %i 200 206

  {

  repeat

  {

    move %x . %i %y . %i 0 4s

    }

          until ( #charposx = %x . %i ) && ( #charposy = %y . %i )

  }

  repeat

  {

  finditem ZC G_5

  if #findkind = 1

  {

    set #lobjectid #findid

    event macro 17

    wait 1

    event macro 17

    wait 1

    gosub set_Interface

    }

  }

  until #charghost = no

  for %i 206 200

  {

  repeat

    {

    move %x . %i %y . %i 0 4s

    }

          until ( #charposx = %x . %i ) && ( #charposy = %y . %i )

  }

}

return

 

sub attack_els

repeat

{

      for %j 1 10

      {

        finditem BD G_ , %j

        if #findkind = 1

        {

            set %j 1

          event Pathfind #findx #findy 0

            repeat

            {

              finditem #findid G_10

              set #ltargetid #findid

              set #ltargetkind 1

              event macro 27 0

              move #findx #findy 1 4

            }

            until ( #findkind = -1 ) || ( #charghost = YES )

            wait 3

            if #charposy < 1435 || #charposx > 5949 || #charposx < 5933

                repeat

                {

              move 5940 1427 0 4s

              }

                    until ( #charposx = 5940 ) && ( #charposy = 1427 )

        }

        if ( #weight > %max_weight || #charghost = YES )

            set %j 11

      }

      if ( #FINDCNT < 1 && %j > 9 )

      repeat

      {

        move 5940 1427 0 4s

        }

              until ( #charposx = 5940 ) && ( #charposy = 1427 )

}

gosub check_ghost

until #weight > %max_weight

return

 

sub goto_place_with_els

for %i 1 21

{

repeat

{

  move %x . %i %y . %i 0 4s

}

      until ( #charposx = %x . %i ) && ( #charposy = %y . %i )

}

return

 

sub eating

repeat

  {

  finditem %foodtype C_ , #backpackid

  if #FINDCNT > 0

    {

    set #lobjectid #findid

    event Macro 17

    wait 1

    ignoreitem #findid

    }

  }

until ( #FINDCNT < 1 ) || ( #charghost = YES )

return

 

[cap_slock]

Чем лучше?

Что пишется на паскале?

 

Сложно сравнивать...И для Пвп инжект в разы лучше 

[WitheR]

pascal O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O

[cap_slock]

pascal O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O O_O

 

"  }

  }

"

похожесть убивает меня?