Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

@  opas : (17 August 2025 - 21:52) Сервер ещё ддосят?
@  Costesti : (05 August 2025 - 20:36) Акк Kosmo тебе делать больше нету Бомжара ходить по шахтам убивать минера ?
@  Artemy Shan : (04 July 2025 - 03:34) Перезапуск проекта: https://forum.oldp.n...howtopic=106329
@  Costesti : (10 June 2025 - 22:26) Артём закрой сервер толку от него ноль так как лаги бешеные ничего не сделать
@  Costesti : (10 June 2025 - 21:03) бля это у меня сервер только логает или у всех?
@  papasha : (10 June 2025 - 15:13) @Costesti da kanesna vvodit, uze dohuja obnov vishlo za 7 let poslednix!!
@  Costesti : (09 June 2025 - 18:34) Артём ты там нововведения водишь?
@  Costesti : (09 June 2025 - 18:31) Сервер работает?
@  Costesti : (31 May 2025 - 23:46) Шан комп меняй уже игру не тянет
@  Costesti : (31 May 2025 - 20:02) мда никому не нужен этот сервер
@  fr33 : (29 May 2025 - 14:07) shenahnan gnom
@  fr33 : (29 May 2025 - 14:07) gm zb!!!1 lagi ept
@  Costesti : (28 May 2025 - 22:43) и это опять и за сейвы
@  Costesti : (28 May 2025 - 22:43) Народ да у кого там номер Шана пускай чинит сервер
@  Costesti : (27 May 2025 - 21:38) Вопрос Крафтить молоко можно?
@  fr33 : (26 May 2025 - 17:33) gm blad chini lag
@  Costesti : (23 May 2025 - 22:37) Бешеные лаги
@  Costesti : (17 May 2025 - 22:54) Опять лаги на Сервере
@  fr33 : (12 May 2025 - 15:21) ble daite mne gm i zdelaju pvp vam
@  Mokasin : (12 May 2025 - 09:04) Puišiem nav garlaicīgi xDDD

Photo

Beggining

Started by Давай замутим ? ), Nov 26 2010 14:33

  • Please log in to reply
32 replies to this topic

#1 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 26 November 2010 - 14:33

Кто небуть сможет помочь в Скрипте чтобы он летал на 2 Runebooke за ранее Спсибо ) :wub: :blush:

#2 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 26 November 2010 - 14:33

====================================================================
; 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 GHAVKMD
set %failTime 3000 ;3000 = 3 min
;---------------------------------------------------------------------
set #sysmsgcol 38
chooseskill Begging
if #skill < 2000
set %uoTitle #true
else
set %uoTitle #false
;---------------------------------------------------------------------
RecallingSystem:
gosub Recall 266 280 AAQZB ; 1st recall rune [by reagents] & vendor's ID
gosub Recall 266 453 FESZB ; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 301 453 EDNZB ; 4th --/--/--
gosub Recall 335 280 DHNZB ; 5th --/--/--
gosub Recall 335 453 VANZB ; 6th --/--/--
gosub Recall 370 280 NWJZB ; 7th --/--/--
gosub Recall 370 453 ROJZB; 8th --/--/--
gosub Recall 434 280 RFNZB; 9th --/--/--
gosub Recall 434 453 DFNZB ; 10th --/--/--
gosub Recall 471 280 VSIAC ; 11th --/--/--
gosub Recall 471 453 WOIAC ; 12th --/--/--
gosub Recall 505 280 WSHAC; 13th --/--/--
gosub Recall 505 453 FYIAC ; 14th --/--/--
gosub Recall 540 280 RXIAC; 15th --/--/--
gosub Recall 540 453 TUHAC; 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::..

#3 Prey

Prey

    Expert

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

Posted 26 November 2010 - 16:04 

====================================================================

; 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 %failTime 3000;3000 = 3 min

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

set #sysmsgcol 38

chooseskill Begging

if #skill < 2000

set %uoTitle #true

else

set %uoTitle #false

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

RecallingSystem:

set %runebookID GHAVKMD;id runbook Nr1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



set %runebookID GHAVKMD;id runbook Nr2



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#4 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 26 November 2010 - 16:11

спасибо ! )

#5 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 26 November 2010 - 16:39

у меня проблема он рунбук ненаходит ! ) всё поставлено правельно :mellow:

#6 Pioner

Pioner

    Novice Player

  • Members
  • 132 posts

Posted 26 November 2010 - 17:03

сколько сейчас за 10 часов 8 лвл маг без вещей %, соберет?

#7 Prey

Prey

    Expert

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

Posted 26 November 2010 - 17:19

у меня проблема он рунбук ненаходит ! ) всё поставлено правельно :mellow:


Там где ИД рунбуков, поставь пробелы перед ; а то на форуме пробел автоматом убирает.

#8 ..Sermulis..

..Sermulis..

    Advanced Player

  • Members
  • 406 posts
  • Gender:Male

Posted 26 November 2010 - 18:03

beggining...

:damaged beyond repair:

 

skype - sermuli

 

#9 Pioner

Pioner

    Novice Player

  • Members
  • 132 posts

Posted 26 November 2010 - 18:06

beggining...

сколько сейчас за 10 часов 8 лвл маг без вещей %, соберет?

#10 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 27 November 2010 - 15:03

у меня проблема в этом скрипте ! ) он телепортируеться к вендору бежит к нему а деньги не клянчит сразу отрывает Runebook и далее телепортируеться в чом проблема ?

====================================================================
; 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 %failTime 3000;3000 = 3 min
;---------------------------------------------------------------------
set #sysmsgcol 38
chooseskill Begging
if #skill < 2000
set %uoTitle #true
else
set %uoTitle #false
;---------------------------------------------------------------------
RecallingSystem:
set %runebookID GHAVKMD ;id runbook Nr1
gosub Recall 266 280 AAQZB; 1st recall rune [by reagents] & vendor's ID
gosub Recall 266 453 FESZB; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 301 453 EDNZB; 4th --/--/--
gosub Recall 335 280 DHNZB; 5th --/--/--
gosub Recall 335 453 VANZB; 6th --/--/--
gosub Recall 370 280 NWJZB; 7th --/--/--
gosub Recall 370 453 ROJZB; 8th --/--/--
gosub Recall 434 280 RFNZB; 9th --/--/--
gosub Recall 434 453 DFNZB; 10th --/--/--
gosub Recall 471 280 VSIAC; 11th --/--/--
gosub Recall 471 453 WOIAC; 12th --/--/--
gosub Recall 505 280 WSHAC; 13th --/--/--
gosub Recall 505 453 FYIAC; 14th --/--/--
gosub Recall 540 280 RXIAC; 15th --/--/--
gosub Recall 540 453 TUHAC; 16th --/--/--

set %runebookID HDRTKMD ;id runbook Nr2

gosub Recall 266 280 AAQZB; 1st recall rune [by reagents] & vendor's ID
gosub Recall 266 453 FESZB; 2nd recall rune [by reagents] & vendor's ID
gosub Recall 301 280 KCNZB; 3rd recall rune [by reagents] & vendor's ID
gosub Recall 301 453 EDNZB; 4th --/--/--
gosub Recall 335 280 DHNZB; 5th --/--/--
gosub Recall 335 453 VANZB; 6th --/--/--
gosub Recall 370 280 NWJZB; 7th --/--/--
gosub Recall 370 453 ROJZB; 8th --/--/--
gosub Recall 434 280 RFNZB; 9th --/--/--
gosub Recall 434 453 DFNZB; 10th --/--/--
gosub Recall 471 280 VSIAC; 11th --/--/--
gosub Recall 471 453 WOIAC; 12th --/--/--
gosub Recall 505 280 WSHAC; 13th --/--/--
gosub Recall 505 453 FYIAC; 14th --/--/--
gosub Recall 540 280 RXIAC; 15th --/--/--
gosub Recall 540 453 TUHAC; 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::..

#11 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 27 November 2010 - 16:30

ну помогите каму невпадлу ) :wub:

#12 bot

bot

    Advanced Player

  • Members
  • 439 posts

Posted 27 November 2010 - 16:51

beging uzhe ne tot :wub:
Posted Image

#13 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 27 November 2010 - 17:00

почему? :mellow:

#14 bot

bot

    Advanced Player

  • Members
  • 439 posts

Posted 27 November 2010 - 17:09

na starom XL za no4j ja sobiral 2.5-3kk potom vilozhili scr i uzhe za no4j max 1.5kk a tut za no4j ~50k slishkom mnogo narodu letaet
Posted Image

#15 Prey

Prey

    Expert

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

Posted 27 November 2010 - 17:19

ID Новых вендоров прописать надо...

#16 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 27 November 2010 - 17:24

типо на 2 Runebook там новых надо прописать ? )

#17 EnFlame

EnFlame

    Thief of Horses

  • Members
  • 2041 posts
  • Gender:Male
  • Location:Беломорканал
  • Interests:A bit of this &amp; a bit of that.

Posted 27 November 2010 - 17:30

типо на 2 Runebook там новых надо прописать ? )

конечно, чтай, как настроить http://forum.egames....showtopic=32472

#18 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 27 November 2010 - 18:20

конечно, чтай, как настроить http://forum.egames....showtopic=32472



серавно он не клянчит деньги в чём проблема ? )

#19 Prey

Prey

    Expert

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

Posted 27 November 2010 - 19:26

серавно он не клянчит деньги в чём проблема ? )


А после ид пробелы ставил? :blink:

#20 Давай замутим ? )

Давай замутим ? )

    Novice Player

  • Members
  • 129 posts
  • Gender:Male
  • Location:Латвия Рига )

Posted 27 November 2010 - 19:54

А после ид пробелы ставил? :blink:


да !!
Back to Скрипты


0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Old Paradise Forums
  2. → Игровые сервера
  3. → Ultima Online
  4. → Скрипты
  5. Privacy Policy