Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Gogogo : (Yesterday, 17:42) Sell veteran plawik 60durba 5kk sell full gods chain+ shield 20kkSell 2 gods bow 23 durb i 69 20kk
@  kirko : (Yesterday, 15:14) cjo ze ti posti udaljaew?
@  kirko : (Yesterday, 15:14) Djukok
@  kirko : (Yesterday, 15:14) ;
@  Gogogo : (Yesterday, 14:48) buy RP
@  Gogogo : (12 November 2018 - 23:37) Sell 2 gods bow 23 durb i 69 20kk
@  Gogogo : (12 November 2018 - 23:36) Sell veteran plawik 60durba 5kk sell full gods chain+ shield 20kk
@  Gogogo : (12 November 2018 - 22:17) nu tak odevjtesj i idem draca
@  Imobilaizer : (12 November 2018 - 22:02) @Gogogo idem 3x3 4x4 nazivaite luboe mesto i vremja, a tak sidite v gz
@  Gogogo : (12 November 2018 - 21:44) @Djukok muti varki lutshi
@  Djukok : (12 November 2018 - 20:19) @GA GA GA Тебе не то что молчанки, тебя уже пора по 1.2 сажать. Но пока молчанка...
@  GA GA GA : (12 November 2018 - 19:11) Idi ikonu s Djukokom protri ot pyli,fanat Djuka Nr1
@  OLDPFUN : (12 November 2018 - 19:06) da che ti nojiw~? pravdo to estj gdeto no ti neponemajew eto nekomu neinteresno!
@  GA GA GA : (12 November 2018 - 18:57) Na forume nazovesh Aigara krisoj kotoraja obvorovivaet Acc (4to dokazanno) -MOL4ANKA ... V tom zhe topike Aigar nazivaet Lancelota-Narkomanom,Bomzhom i t.d (Ja s etim soglasen,no eto daleko ne FAKT :) - Vse normalno-Aigar molodec,mol4anki net... i eto po vashemu adekvatno? i takih primerov 1000000....
@  GA GA GA : (12 November 2018 - 18:50) Shanu davno pofig na server,da i shan vsegda prikrival Staff servera,butj to Nil libo Djuk...vspomni kak vy plakali 4to Nil palit Seerom i t.d...Shanu vygodno 4to djuk delaet vsju 4ernuju rabotu...sazaet v jail,otve4aet na PageGM i t.d ...
@  Imobilaizer : (12 November 2018 - 18:27) @GA GA GA i shan ego prikrivaet?
@  GA GA GA : (12 November 2018 - 15:32) @Djukok,kakie ne adkvatnye posti? Vsem uzhe nadoeli tvoi,ne adkvatnie postupki...mol4anki svoim ne daet,v jail nikogo iz svoih ne sazaet...a drugim mol4anki,jaili 4to eto za STAFF takoj? :D :D :D
@  Артемий Шан : (12 November 2018 - 13:21) Пусть почитает гайд про лост: http://forum.oldp.ne...howtopic=102608
@  sensation : (12 November 2018 - 10:51) @Djukok неадекват это своим всё можно а других сразу в тюрьму
@  Gogogo : (12 November 2018 - 10:41) tak shjas pri tvajom priduprizhdenie chelovek budet bojaca hoditj na lost shtob neulitetj v jail ,ga ga ga prav !

Photo

Begging[atlīdzība Garentēta]


  • Please log in to reply
1 reply to this topic

#1 doxen

doxen

    Newbie

  • Members
  • 15 posts

Posted 10 August 2013 - 09:03

Vai kāds izpalīdzētu aiz gara laika ar enflame scriptu?

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

; 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 EVSMKMD

set %failTime 3000; 600 = 1min

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

set #sysmsgcol 38

chooseskill Begging

if #skill < 2000

set %uoTitle #true

else

set %uoTitle #false

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

RecallingSystem:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

gosub Recall 540 453 KYGGC; 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::..

Bet lai viņš darbotos uz šāda paskata runebook = link
Un vadās pēc šādiem tekstiem:
1."You cant ask help twice for this char"
2."You failed to get something.."
3."You put the gold coin in your pack"

Un lai var izvēlēties iespēju no diviem runebook lidināties apkārt.

Ja tik ļoti nepieciešama atlīdzība par padarīto darbu un protams pēc pārbaudes atlīdzināšu ar:

1. Cargo ringmail full [packed] @ oldp shard
Cargo bow +9fs [2 dur] @ oldp shard
Elfian queen horse [shrinked] @ old shard

2. vai arī rp.
3. Vai wgp atiecīgajā shardā.

skype: knifer15 sīkāk visu var aprunāt.

#2 doxen

doxen

    Newbie

  • Members
  • 15 posts

Posted 11 August 2013 - 08:34

up




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users