11 replies to this topic

[Karluha]

Could someone please change this script to use recall not teleport by spell ? Even if i have to recharg book my self ... Thanks!

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

[opas]

Could u write in russian language please

[Karluha]

Could u write in russian language please

I am quate bad in russian language so i wrote in english, sorry if you can ...

[opas]

I am quate bad in russian language so i wrote in english, sorry if you can ...

Make sure that u have some GP or RP for make update your script because nobody not will do it for free.

[Karluha]

Make sure that u have some GP or RP for make update your script because nobody not will do it for free.

I have kk i could give like 1kk for script ...

[opas]

I have kk i could give like 1kk for script ...

Ok, good luck

[vinnie]

tolks uz recaliem paartaisiit?

[Karluha]

tolks uz recaliem paartaisiit?

Taa lai ar warrioru varu lidinaaties, vai tad reali nav vienalga ja pat maksaju xD

Kr4 doshu 2kk kas var uztaisit rakstat PM

[Hurricane]

uzvilki reddragon studed armoru un aiziet.

[Karluha]

uzvilki reddragon studed armoru un aiziet.

Es vnk ari speleju cita serveri kuraa runebooks ir mazliet savadaaks ka XL

[opas]

за 5кк перепишу тебе с добором в доме

[Karluha]

Kr4 ja kaads var uztaisit tad sutat pm un par cenu vienosimies