Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  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% и вроде как я поправил это.
@  Artemy Shan : (13 February 2024 - 02:44) Сменился айпи для входа в игру. Теперь заходим через: loginserver=login.oldp.net,2593 или loginserver=91.121.232.151,2593

Photo

Переделка скрипта


  • Please log in to reply
5 replies to this topic

#1 Keshka

Keshka

    Master

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

Posted 26 September 2010 - 11:18

Итак я вырос на инже и в скриптах изиуо нечего непонемаю...вопрос в следушем вазможно ли переделать ниже указаный скрипт так чтобы он летал не по одному рунебооку а по 3? подкоректируйте если это реально...Убедительная прозьба сюда невыкладывать лучше пришлите в личку!куча клонов ненужна мне ;)

;=====================================================================

; Script Name: OldParadise Begger

; Author: EnFlame

; Version: 1.1

; Client tested with: 2.0.3

; EUO version tested with: EasyUO 1.5 Version 137

; Shard OSI/FS: FS

; Public Release: 03/20/06

; Revision Date: 07/31/07

; Global Variables Used: -

; Purpose: Fast to train begging skill and earn some money.

; Description: Script recalls to vendor using reagents, uses begging

; skill, follows to vendor, recalls to the next vendor.

;=====================================================================

initevents

set %runebookID DCBMLMD

set %failTime 1800; 600 = 1min

;---------------------------------------------------------------------

set #sysmsgcol 38

chooseskill Begging

if #skill < 2000

set %uoTitle #true

else

set %uoTitle #false

;---------------------------------------------------------------------

RecallingSystem:

gosub Recall 266 280 GKJGB; 1st recall rune [by reagents] & vendor's ID

gosub Recall 266 453 XQYHB; 2nd recall rune [by reagents] & vendor's ID

gosub Recall 301 280 EIFIB; 3rd recall rune [by reagents] & vendor's ID

gosub Recall 301 453 TLJIB; 4th --/--/--

gosub Recall 335 280 HUYHB; 5th --/--/--

gosub Recall 335 453 XRKIB; 6th --/--/--

gosub Recall 370 280 XNUHB; 7th --/--/--

gosub Recall 370 453 USZIB; 8th --/--/--

gosub Recall 434 280 AATIB; 9th --/--/--

gosub Recall 434 453 BRNIB; 10th --/--/--

gosub Recall 471 280 CRJLC; 11th --/--/--

gosub Recall 471 453 SZYIB; 12th --/--/--

gosub Recall 505 280 TPSIB; 13th --/--/--

gosub Recall 505 453 XZYGB; 14th --/--/--

gosub Recall 540 280 ZEFIB; 15th --/--/--

gosub Recall 540 453 AZLIB; 16th --/--/--

goto RecallingSystem

;---------------------------------------------------------------------

sub Recall

set %tries 0

if %uoTitle

gosub setTitle

set %oldPosX #charposx

set %oldPosY #charposy

if #mana < #maxmana

event macro 13 46

_openRunebook:

finditem %runebookID C_ , #backpackid

if #findkind = -1

{

  event sysmessage Runebook not found.

  pause

}

set #lobjectid #findid

event macro 17 0

wait 20

gosub check

_click:

click %1 386

wait 10

click %2 349

gosub check

if #result = failed && %tries < 5

{

set %tries %tries + 1

goto _openRunebook

}

if %tries = 5

return

gosub Begging

return

;---------------------------------------------------------------------

sub Begging

set %failTimer #scnt2 + %failTime

set %currentGold #gold

set %try 0

_begging:

finditem %3 G_12

if #findcnt < 1

  return

gosub moveToVendor

_target:

event macro 13 6

set %lag #scnt + 10

while #targcurs <> 1

{

  wait 1

   if ( ( %currentGold <> #gold ) || ( #scnt2 > %failTimer ) )

	return

   if #scnt > %lag

	{

	gosub moveToVendor

	goto _target

	}

}

finditem %3

  if #findcnt = 0 || #scnt2 > %failTimer

  return

if #targcurs = 1 && #finddist < 3

{

finditem %3

set #ltargetid #findid

set #ltargetkind 1

event macro 22 0

}

else

{

gosub moveToVendor

goto _target

}

wait 20

event macro 13 6

set #scnt 0

repeat

{

  finditem %3

  event pathfind #findx #findy #findz 1

  wait 20

   if ( ( %currentGold <> #gold ) || ( #targcurs = 1 ) || ( #scnt2 > %failTimer ) )

	return

}

until #scnt > 35

if ( ( %currentGold <> #gold ) || ( #targcurs = 1 ) || ( #scnt2 > %failTimer ) )

  return

if #scnt > 35

  {

   set %try %try + 1

   event sysmessage Retrying begging ( , %try , )

  }

goto _begging

return

;---------------------------------------------------------------------

sub setTitle

if #skill = 2000

  {

   set %uoTitle #false

   setuotitle Ultima Online - #charname ( , #shard , )

   return

  }

str len #skill

str ins #skill #dot #strres

setuotitle Ultima Online - #charname ( , #shard , ) Begging Skill: #strres , %

return

;---------------------------------------------------------------------

sub moveToVendor

event macro 23 0

wait 10

repeat

{

  finditem %3

  if #findcnt = 0

  return

  event pathfind #findx #findy #findz

  wait 20

}

until #finddist < 2 || #scnt2 > %failTimer

return

;---------------------------------------------------------------------

sub check

set %teleportOverTime #scnt + 20

_checking:

if #contname = generic_gump && #contsize = 577_426

return

if ! ( ( #charposx = %oldPosX ) && ( #charposy = %oldPosY ) )

return

if #scnt > %teleportOverTime

{

click 400 360

return failed

}

wait 10

goto _checking

return

;---------------------------------------------------------------------

; ..::eNd::..

Я дико модный!

#2 Опять Забанили

Опять Забанили

    Journeyman

  • Members
  • 83 posts

Posted 26 September 2010 - 11:45

Если до вечера никто не переделает, то сам помогу :)

#3 Keshka

Keshka

    Master

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

Posted 26 September 2010 - 12:21

Если до вечера никто не переделает, то сам помогу :)

спс! мог бы и сразу помоч тут мало добрых людей :)
Я дико модный!

#4 Опять Забанили

Опять Забанили

    Journeyman

  • Members
  • 83 posts

Posted 26 September 2010 - 12:40

спс! мог бы и сразу помоч тут мало добрых людей :)

Да я просто занят до вечера, мотаться туда суда надо сегодня.. Вечером уже смогу нормально за компом посидеть..

Стукани в Skype: effectlive- ( Piff-paff - main )

#5 Keshka

Keshka

    Master

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

Posted 26 September 2010 - 13:20

Всё тему можно закрывать!
Я дико модный!

#6 sheik

sheik

    Newbie

  • Members
  • 5 posts

Posted 28 October 2017 - 22:31

pomagite nastroitj skript ljudi dobriw






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users