Perku Script Pa Rp

#1 freak1234

Newbie

Members
19 posts

Posted 21 March 2011 - 02:34

Perku begging script ar 2 runebook uz vendoriem par rp

#2 Ganjakur

Guru

Members
2552 posts

Gender:Male
Location:Pakistan

Posted 21 March 2011 - 03:00

kĀ AR tevi var sazināties?
Ja, kas mans skype - Aigars.Natra

https://www.youtube....WwIO-1g0_9WAOHA

uo video

#3 freak1234

Newbie

Members
19 posts

Posted 23 March 2011 - 00:07

skype - jenotsuns1

#5 freak1234

Newbie

Members
19 posts

Posted 23 March 2011 - 17:19

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

FNX . bet rune book vari iedot ar visiem vendoriem un script lai teleport ?

#6 Ganjakur

Guru

Members
2552 posts

Gender:Male
Location:Pakistan

Posted 24 March 2011 - 13:30

10rp->iedošu skriptu, divus runbukus, viss jau ir sarunkots, sibindots. Tev atliksies palaist skriptu un mierīgi iet gulēt.
Par papildus 5rp, iedošu vēl otru scp, kas lido pa citām runkām, bet te ir tikai ar vienu runbuku. (protams, viss jau ir sarunkots un strādājošs)

https://www.youtube....WwIO-1g0_9WAOHA

uo video

#7 Mezhuliene

Novice Player

Members
129 posts

Posted 25 March 2011 - 16:11

GANJAkur.. atceros tevi.. pirku skriptu begging ar runbukaam.. apcakareeji iedevi tukshaas.... TU ESI bLEEDIS

#8 Ganjakur

Guru

Members
2552 posts

Gender:Male
Location:Pakistan

Posted 25 March 2011 - 17:51

GANJAkur.. atceros tevi.. pirku skriptu begging ar runbukaam.. apcakareeji iedevi tukshaas.... TU ESI bLEEDIS

nice posts! Es esmu blēdis!!!!!!!!!1111

https://www.youtube....WwIO-1g0_9WAOHA

uo video

#9 Bexe

Novice Player

Members
123 posts

Gender:Male
Location:Riga
Interests:WEB Master / WEB Developer / SYS Admin

Posted 06 December 2011 - 08:47

uzraksti man vilcansj scp buss norm
ja kas vari prasit Bils vai izabela vai debilais par mani vai ari Komentators vai Ozzy-roc vai Diablo
visi pieradis ka es iedosu normalu scp kurs strada uz dazadam vietam ar 2 dazadiem bookiem

Toggle shoutbox Chat

#1 freak1234

#2 Ganjakur

#3 freak1234

#4 Creative^^

#5 freak1234

#6 Ganjakur

#7 Mezhuliene

#8 Ganjakur

#9 Bexe

0 user(s) are reading this topic

Perku Script Pa Rp

0 user(s) are reading this topic

Sign In