Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  fr33 : (17 April 2024 - 11:16) gm pashol v mu igrac
@  Pablo : (15 March 2024 - 21:12) Sell regs from pandora box.
@  Pablo : (15 March 2024 - 21:11) Sell paralyze and poison necklaces 100k 1 piece.
@  fr33 : (11 March 2024 - 16:38) blee gm zb atdai bank
@  GM SOLAR : (10 March 2024 - 17:24) ОпЯТь лаГГи ! ! !
@  Pablo : (06 March 2024 - 17:48) Labākais hot ko esmu jebkad paņēmis :D
@  Senseless : (05 March 2024 - 09:42) Opatj ataki na server powli :(
@  Pablo : (03 March 2024 - 19:19) Riebiigais
@  Ganjakur : (03 March 2024 - 15:10) kāds niks mp?
@  Pablo : (02 March 2024 - 21:31) Var kāds iedot 40 kk priekš 11 lvl ?
@  Senseless : (02 March 2024 - 18:12) bratva estj u kogo script na ckerika na lamber ?
@  GM SOLAR : (02 March 2024 - 16:44) ALL GO NA CTF ! ! ! ! !
@  Ganjakur : (01 March 2024 - 17:32) labi
@  Pablo : (29 February 2024 - 12:08) Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības :D
@  fr33 : (29 February 2024 - 09:45) yes
@  EmmaSb : (28 February 2024 - 21:00) Easyuo still working ?
@  Artemy Shan : (18 February 2024 - 20:42) Еще один фикс поставил. Смотрим, тестируем.
@  jurasiks : (18 February 2024 - 20:04) da pipec tu, zdelal on
@  Senseless : (17 February 2024 - 19:17) Lagi powli opatj
@  Artemy Shan : (17 February 2024 - 12:36) Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.

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 Скрипты


1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users

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