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

Begging


  • Please log in to reply
1 reply to this topic

#1 Karluha

Karluha

    Newbie

  • Members
  • 19 posts

Posted 19 July 2013 - 22:02

Kads varetu ludzu izmainit so scriptu lai vins teleporteetos ar recalliem nevis spellu kautvai pasam kad ik pa tiem 18 recaliem jarechargo books, Paldies jau ieprieks!

initevents

set %runebookID YPNGLMD

set %failTime 2000; 1800 = 1min

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

set #sysmsgcol 38

chooseskill Begging

if #skill < 2000

set %uoTitle #true

else

set %uoTitle #false

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

RecallingSystem:

gosub Recall 266 280 EVMZB; check

gosub Recall 266 453 SVMZB; check

gosub Recall 301 280 WBKAC; check

gosub Recall 301 453 GPMZB; check

gosub Recall 335 280 KFJZB; check

gosub Recall 335 453 YCJZB; check

gosub Recall 370 280 KXFZB; check

gosub Recall 370 453 QGGZB; check

gosub Recall 434 280 MPFAC; check

gosub Recall 434 453 OHUZB; check

gosub Recall 471 280 PIUZB; check

gosub Recall 471 453 GPWZB; check

gosub Recall 505 280 LOWZB; check

gosub Recall 505 453 WSWZB; check

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

gosub Recall 540 453 KJZZB; 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


#2 Poisoned

Poisoned

    Player

  • Members
  • 182 posts

Posted 20 July 2013 - 15:13

Vnk uzvelc savam warioram/archeram mantas uz magery (50) un lido ar regiem. Beggings neatmaksātos ja lidotu uz rekāliem.




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users