Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

@  Artemy Shan : (Yesterday, 04:18) Оживил форум
@  fr33 : (27 October 2025 - 01:54) 5 clientov
@  fr33 : (21 September 2025 - 00:23) 8 clientov
@  MousT : (07 September 2025 - 09:04) Опять сервер лагует.
@  opas : (17 August 2025 - 21:52) Сервер ещё ддосят?
@  Costesti : (05 August 2025 - 20:36) Акк Kosmo тебе делать больше нету Бомжара ходить по шахтам убивать минера ?
@  Artemy Shan : (04 July 2025 - 03:34) Перезапуск проекта: https://forum.oldp.n...howtopic=106329
@  Costesti : (10 June 2025 - 22:26) Артём закрой сервер толку от него ноль так как лаги бешеные ничего не сделать
@  Costesti : (10 June 2025 - 21:03) бля это у меня сервер только логает или у всех?
@  papasha : (10 June 2025 - 15:13) @Costesti da kanesna vvodit, uze dohuja obnov vishlo za 7 let poslednix!!
@  Costesti : (09 June 2025 - 18:34) Артём ты там нововведения водишь?
@  Costesti : (09 June 2025 - 18:31) Сервер работает?
@  Costesti : (31 May 2025 - 23:46) Шан комп меняй уже игру не тянет
@  Costesti : (31 May 2025 - 20:02) мда никому не нужен этот сервер
@  fr33 : (29 May 2025 - 14:07) shenahnan gnom
@  fr33 : (29 May 2025 - 14:07) gm zb!!!1 lagi ept
@  Costesti : (28 May 2025 - 22:43) и это опять и за сейвы
@  Costesti : (28 May 2025 - 22:43) Народ да у кого там номер Шана пускай чинит сервер
@  Costesti : (27 May 2025 - 21:38) Вопрос Крафтить молоко можно?
@  fr33 : (26 May 2025 - 17:33) gm blad chini lag

Photo

Scripts Mining Lumber Fishing

Started by Tadeus, Jun 16 2008 14:27

  • Please log in to reply
32 replies to this topic

#21 Tadeus

Tadeus

    Advanced Player

  • Members
  • 360 posts
  • Gender:Male
  • Location:Jelgava
  • Interests:Tomis 5 Level Clerik

Posted 23 June 2008 - 12:14

:blink: :blink: :blink:



Prosta togda ion neperedivait skill vesi jesli oni vmeste

#22 XAHTEP

XAHTEP

    Journeyman

  • Members
  • 54 posts
  • Gender:Male

Posted 23 June 2008 - 18:57

Всё уже перепробывал , но раз через 10-30 о всё равно одевает пуху , потом сразу кирку и рубит голема киркой - соответсвенно падаю =(

#23 EnFlame

EnFlame

    Thief of Horses

  • Members
  • 2041 posts
  • Gender:Male
  • Location:Беломорканал
  • Interests:A bit of this & a bit of that.

Posted 24 June 2008 - 08:40

а может бить это поэтому, что там нету этой скобки? :))
sub follow&kill

repeat

{  ; <-----

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

wait 2

msg .camp Heal $

return

#24 XAHTEP

XAHTEP

    Journeyman

  • Members
  • 54 posts
  • Gender:Male

Posted 24 June 2008 - 23:25

Вобщем ясно или ни кто не занет или просто нехотят помочь !

#25 Graff TrAXuLA

Graff TrAXuLA

    НеАдмнистрация.

  • Members
  • 502 posts
  • Gender:Male
  • Location:Made in D-town!
  • Interests:Кому то дано, превращать воду в вино, а кому только кислород в углекислый газ и пищу в гавно.

Posted 24 June 2008 - 23:48

set %corpse YFM
Sub LOOTING
finditem %corpse G_2
ignoreItem #findid 1
if #findkind = 1
set #lobjectid #findid
event macro 17 0
wait 10
repeat
{
finditem POF_CUD C_ , #contid
if #findcnt > 0
{
exevent drag #findid #findstack
wait 10
exevent dropc #backpackid
wait 1s
}
}
until #findkind = -1
return

после чего это поставить что бы работало?


272270.gif

TrocKiJ.jpg

#26 EnFlame

EnFlame

    Thief of Horses

  • Members
  • 2041 posts
  • Gender:Male
  • Location:Беломорканал
  • Interests:A bit of this &amp; a bit of that.

Posted 25 June 2008 - 15:06

после чего это поставить что бы работало?

если ты не видишь, там 3-4 скрита и я е*у в котором надо это поставить, а также и скажи свой game class.

#27 Graff TrAXuLA

Graff TrAXuLA

    НеАдмнистрация.

  • Members
  • 502 posts
  • Gender:Male
  • Location:Made in D-town!
  • Interests:Кому то дано, превращать воду в вино, а кому только кислород в углекислый газ и пищу в гавно.

Posted 25 June 2008 - 15:53

если ты не видишь, там 3-4 скрита и я е*у в котором надо это поставить, а также и скажи свой game class.

set %ljtool NPF_QPF; set your ljtool here x y title

set %Roba KKKLLMD; Skill Roba

set %Roba2 MMTGLMD; roba

set %Cloack QRVVLMD; Skill Cloack

set %Cloack2 KPTMLMD; cloaks

set %Mask QIUSKMD; Skill Mask

set %Mask2 MJKXJMD; maska

start: 

 GOSUB LJING  2



goto start



sub ljing

move %1 %2 1

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 14s

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 8

set %overtime #scnt + 25

gosub bp10

return



gosub bp10

sub bp10

if #weight > 650

gosub hz450



sub scan

scan:

scanjournal %cnt

if #hits = 0

halt

if #hits < #maxhits

{

msg .arm$

wait 1s

if #hits < #maxhits

msg .drink heal$

wait 5

Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Cloack2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

finditem #enemyid

if #findcnt >= 1

{

gosub follow

}

wait 2

Finditem %Roba c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 10

Finditem %Cloack c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 10

Finditem %Mask c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 10

return

}



if

if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg

return

if You_stop_Mining in #sysmsg

return

if Try_mining_elsewhere in #sysmsg

return

if You_stop_Mining in #sysmsg

return

if YOu_CAN'T_REACH_THIS in #sysmsg

return

if You_have_no_line_of_sight_to_that_location in #sysmsg

return

if You_fail_to_do_that in #sysmsg

return

if You_have_spent_many in #sysmsg

return

if You_can`t_use_the_

return

if #scnt >= %overtime

return

goto scan



sub hz450

move 

gosub moveItems

sub moveItems

{

set !dragTimeout 7;1/10 s

set !dragTimer #scnt2

set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_

if %0 < 2

set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_

set !from #BackpackID

set !to UMDIMMD; <-- ID sunduka

finditem !items C_ , !from

for #findindex 1 #findcnt

{

if #findkind = 0

{

set !amt 1

if #findstack > 1

set !amt #findstack

while #scnt2 < !dragTimer

wait 0

exevent drag #findid !amt

exevent dropc !to

set !dragTimer #scnt2 + !dragTimeout

}

}

namespace clear



}

return



###################################

sub follow

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

wait 5

return
прости ))) я думал вы поймёте

272270.gif

TrocKiJ.jpg

#28 EnFlame

EnFlame

    Thief of Horses

  • Members
  • 2041 posts
  • Gender:Male
  • Location:Беломорканал
  • Interests:A bit of this &amp; a bit of that.

Posted 25 June 2008 - 16:00 

set %ljtool NPF_QPF; set your ljtool here x y title

set %Roba KKKLLMD; Skill Roba

set %Roba2 MMTGLMD; roba

set %Cloack QRVVLMD; Skill Cloack

set %Cloack2 KPTMLMD; cloaks

set %Mask QIUSKMD; Skill Mask

set %Mask2 MJKXJMD; maska

start:

GOSUB LJING  2



goto start



sub ljing

move %1 %2 1

finditem %ljtool

set #lobjectid #findid

event macro 17 0

target 14s

set #ltargetx %1

set #ltargety %2

set #ltargetkind 3

set #ltargettile %3

event macro 22 0

wait 8

set %overtime #scnt + 25

gosub bp10

return



gosub bp10

sub bp10

if #weight > 650

gosub hz450



sub scan

scan:

scanjournal %cnt

if #hits = 0

halt

if #hits < #maxhits

{

msg .arm$

wait 1s

if #hits < #maxhits

msg .drink heal$

wait 5

Finditem %Roba2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Cloack2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 5

Finditem %Mask2 c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 1

finditem #enemyid

if #findcnt >= 1

{

gosub follow

}

wait 2

Finditem %Roba c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 10

Finditem %Cloack c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 10

Finditem %Mask c_ , #backpackid

set #lobjectID #findid

event macro 17 0

wait 10

return

}



if

if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg

return

if You_stop_Mining in #sysmsg

return

if Try_mining_elsewhere in #sysmsg

return

if You_stop_Mining in #sysmsg

return

if YOu_CAN'T_REACH_THIS in #sysmsg

return

if You_have_no_line_of_sight_to_that_location in #sysmsg

return

if You_fail_to_do_that in #sysmsg

return

if You_have_spent_many in #sysmsg

return

if You_can`t_use_the_

return

if #scnt >= %overtime

return

goto scan



sub hz450

move

gosub moveItems

sub moveItems

{

set !dragTimeout 7;1/10 s

set !dragTimer #scnt2

set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_

if %0 < 2

set !items DWJ_EWJ_GWJ_TVJ_POF_DJW_CUD_HJG_IJG_UJG_

set !from #BackpackID

set !to UMDIMMD; <-- ID sunduka

finditem !items C_ , !from

for #findindex 1 #findcnt

{

if #findkind = 0

{

set !amt 1

if #findstack > 1

set !amt #findstack

while #scnt2 < !dragTimer

wait 0

exevent drag #findid !amt

exevent dropc !to

set !dragTimer #scnt2 + !dragTimeout

}

}

namespace clear



}

return



;###################################

sub follow

repeat

{

finditem #enemyid

event pathfind #FINDX #FINDY #FINDZ 1 3s

wait 1s

}

until #findcnt = 0

wait 5

gosub LOOTING

return



Sub LOOTING

finditem YFM G_2

if #findcnt > 0

{

set #lobjectid #findid

event macro 17 0

wait 10

repeat

{

finditem POF_CUD C_ , #contid

if #findcnt > 0

{

exevent drag #findid #findstack

wait 10

exevent dropc #backpackid

wait 1s

}

}

until #findkind = -1

ignoreItem #contid 1

}

return

#29 Graff TrAXuLA

Graff TrAXuLA

    НеАдмнистрация.

  • Members
  • 502 posts
  • Gender:Male
  • Location:Made in D-town!
  • Interests:Кому то дано, превращать воду в вино, а кому только кислород в углекислый газ и пищу в гавно.

Posted 26 June 2008 - 02:08

Спасибо ))) :blush:

272270.gif

TrocKiJ.jpg

#30 Graff TrAXuLA

Graff TrAXuLA

    НеАдмнистрация.

  • Members
  • 502 posts
  • Gender:Male
  • Location:Made in D-town!
  • Interests:Кому то дано, превращать воду в вино, а кому только кислород в углекислый газ и пищу в гавно.

Posted 26 June 2008 - 10:59

Лутает эльку но перестал складывать в сундук ((( придёт скидывает всё в пацк и бежит назад

272270.gif

TrocKiJ.jpg

#31 Graff TrAXuLA

Graff TrAXuLA

    НеАдмнистрация.

  • Members
  • 502 posts
  • Gender:Male
  • Location:Made in D-town!
  • Interests:Кому то дано, превращать воду в вино, а кому только кислород в углекислый газ и пищу в гавно.

Posted 26 June 2008 - 12:20

АП :blush:

272270.gif

TrocKiJ.jpg

#32 RedBull

RedBull

    Advanced Player

  • Members
  • 338 posts
  • Gender:Male
  • Location:Riga

Posted 27 June 2008 - 06:43

NI U KAVO NETU SKRIPTA 4TOB HRENOVUJU RUDU NA POL SKIDIVAL KOGDA KOPAET? :excl:

durak nakapi hrenovuju rudu prileti dvumja personazhami ubej adnavo nasuvaj hrenovuju rudu ili ignoti v sumku trupa resni i leti prodovatj k npc dostanesh nemala denushek...! kstate s logami eto delo luche (bolshe navara)...
Ветеран Олд парадайса :P Hehz Warior-Lust - dal poganatj Mage-Paparazzi - dal pogonatj Cleric-Ustabuga - dal pogonatj :)

#33 XAHTEP

XAHTEP

    Journeyman

  • Members
  • 54 posts
  • Gender:Male

Posted 27 June 2008 - 21:21

Почему Он не Одевает потом скилл вещи обратно ??? Как это исправить ?

Что нужно убрать в первои скрипте на мининг чтоб он не мешал 2 на передевания ?*
Back to Скрипты


0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Old Paradise Forums
  2. → Игровые сервера
  3. → Ultima Online
  4. → Скрипты
  5. Privacy Policy