Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Toggle shoutbox Chat

Прямая связь с администрацией по скайпу: gods.dragon

@ fr33	:	(17 April 2024 - 11:16) gm pashol v mu igrac
@ 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
@ 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
@ 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% и вроде как я поправил это.

Испортим экономику шарда.

Started by occult, Aug 09 2007 19:13

Please log in to reply

66 replies to this topic

#1 occult

Novice

Members
32 posts

Posted 09 August 2007 - 19:13

#####################################################
#####################################################
############# Scripted by Occult ####################
#####################################################
############# OldParadise XL Begging ################
#####################################################
######### Version 1.4 ###############################
#####################################################
#####################################################
#------------------------------
#Change Log
# *If npc hase no money, he will go to next respawn.
# *Added second runebook recall.
# *Fixed message bug.
# *Fixed reconnector bug.

var book1='0x4001C70B' #runebook 1
var book2='0x4000C2E8' #runebook 2
sub begging()
var k,j,b
var second=0 # 0 - two runebooks, 1 - one runebook.

#----------------------------------------
# NPC ID [,info]
#----------------------------------------
DIM ven[16]
ven[1]='0x001093A5' #Britain tinker
ven[2]='0x0010652C' #Moonglow provisioner
ven[3]='0x0010CDF2' #Moonglow carpenter
ven[4]='0x00103981' #Minoc butcher
ven[5]='0x001097AF' #Minoc banker
ven[6]='0x001094D3' #Britain blue boar
ven[7]='0x0010749F' #Moonglow provisioner
ven[8]='0x00105220' #Britain bowyer2
ven[9]='0x0010AB7E' #Britain armorer
ven[10]='0x0010C816' #Moonglow tinker
ven[11]='0x00101332' #Britain farmer
ven[12]='0x00102901' #Britain hides
ven[13]='0x0010A99A' #Britain tailor2
ven[14]='0x00109C22' #Moonglow cook
ven[15]='0x00100EDB' #Moonglow bs
ven[16]='0x0010C79B' #Moonglow cook2

DIM vem[16]
vem[1]='0x001026BA' #Britain scribe
vem[2]='0x00103B14' #Minoc bs
vem[3]='0x0010C4B3' #Minoc tailor
vem[4]='0x0010AA7C' #Minoc carpenter
vem[5]='0x0010A387' #Minoc provisioner
vem[6]='0x0010997F' #Minoc cook
vem[7]='0x00103981' #Minoc tamer
vem[8]='0x0010C7E6' #Minoc butcher
vem[9]='0x0010477D' #Moonglow alchemic
vem[10]='0x0010A2A9' #Moonglow alchemic 2
vem[11]='0x0010A201' #Britain bs
vem[12]='0x0010D340' #Britain bs2
vem[13]='0x00106C5C' #Britain architect
vem[14]='0x00101F70' #Britain armor2
vem[15]='0x00106143' #Britain provisioner
vem[16]='0x001052B0' #Britain jeweler

while not uo.dead()
for k=1 to 16
recall(book1,k)
UO.DeleteJournal()
repeat
wait(500)
SuperWalk(0,0,ven[k])
UO.WaitTargetObject(ven[k])
UO.Useskill('Begging')
#wait(500)
until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("no money")-1))==ven[k]
next
if second==0 then
for j=1 to 16
recall(book2,j)
UO.DeleteJournal()
repeat
wait(500)
SuperWalk(0,0,vem[j])
UO.WaitTargetObject(vem[j])
UO.Useskill('Begging')
#wait(500)
until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("no money")-1))==vem[j]
next
end if
wend
endsub

#==========================================================
# Recall System
# idrb - runebook id
# nrune - rune number
#----------------------------------------------------------

#---------------------------
# Runebook recall
# reagent use
#---------------------------

sub Recall(idrb,nrune)
Dim gumpreturn[16]
gumpreturn[1]="0x0014"
gumpreturn[2]="0x0016"
gumpreturn[3]="0x0018"
gumpreturn[4]="0x001A"
gumpreturn[5]="0x001C"
gumpreturn[6]="0x001E"
gumpreturn[7]="0x0020"
gumpreturn[8]="0x0022"
gumpreturn[9]="0x0024"
gumpreturn[10]="0x0026"
gumpreturn[11]="0x0028"
gumpreturn[12]="0x002A"
gumpreturn[13]="0x002C"
gumpreturn[14]="0x002E"
gumpreturn[15]="0x0030"
gumpreturn[16]="0x0032"
UO.Recall(idrb,gumpreturn[nrune])
UO.Exec('terminate Reconnector')
wait(5000)
UO.Exec('exec Reconnector')
wait(5000)
Uo.DeleteJournal()
endsub

#==============================================================
# SuperWalk(X,Y,Serial) - char is walking by dX and dY step
# sub using Home, End, PgUp, PgDown keys
# d'not rebind this key from default action!
# walkwait - delay after keypress
#--------------------------------------------------------------

sub SuperWalk(x,y,Target)
VAR i
VAR dir,ldir,rdir,key,olddir
VAR dx,dy,Exit=0
VAR CacheLimit=9,CacheIndex="Text"
DIM CacheX[10], CacheY[10]

CacheX[0]="Test"
While Exit<>1
If Target<>"" Then
dx=UO.GetX(Target)-UO.GetX()
dy=UO.GetY(Target)-UO.GetY()
; UO.Print("Target locked!")
If UO.GetDistance(Target)<2 Then
return
Endif
Else
dx=x-UO.GetX()
dy=y-UO.GetY()
If dx==0 AND dy==0 Then
Exit=1
Endif

Endif

If dx<>0 AND dy<>0 Then
If dx>0 AND dy>0 Then ; GoSE
dir=3
ldir=2
rdir=4
key=40 ; DownArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==2 Then ; GoNE
dir=1
ldir=0
rdir=1
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=5
rdir=6
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif

If dx>0 AND dy<0 Then ; GoNE
dir=1
ldir=0
rdir=2
key=39 ; RightArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==0 Then ; GoWN
dir=7
ldir=6
rdir=7
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSE
dir=3
ldir=3
rdir=4
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif

If dx<0 AND dy>0 Then ; GoSW
dir=5
ldir=4
rdir=6
key=37 ; LeftArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==6 Then ; GoWN
dir=7
ldir=7
rdir=0
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSE
dir=3
ldir=2
rdir=3
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif

If dx<0 AND dy<0 Then ; GoWN
dir=7
ldir=6
rdir=0
key=38 ; UpArrow
olddir=UO.GetDir()
If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
If olddir==0 Then ; GoNE
dir=1
ldir=1
rdir=2
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=4
rdir=5
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
Endif

If dx<>0 AND dy==0 Then
If dx>0 Then ; GoE
dir=2
key=34 ; PgDown
olddir=UO.GetDir()
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==2 Then ; GoSE
dir=3
ldir=3
rdir=4
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoNE
dir=1
ldir=1
rdir=0
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif

If dx<0 Then ; GoW
dir=6
key=36 ; Home key
olddir=UO.GetDir()
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==0 Then ; GoWN
dir=7
ldir=7
rdir=0
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=4
rdir=5
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
Endif

If dx==0 AND dy<>0 Then
If dy>0 Then ; GoS
dir=4
key=35 ; End
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==2 Then ; GoSE
dir=3
ldir=2
rdir=3
key=40 ; DownArrow
While UO.GetDir()<>3
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoSW
dir=5
ldir=6
rdir=5
key=37 ; LeftArrow
While UO.GetDir()<>5
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif

If dy<0 Then ;GoN
dir=0
key=33 ; PgUp
olddir=UO.GetDir()
If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
If olddir==2 Then ; GoNE
dir=1
ldir=1
rdir=2
key=39 ; RightArrow
While UO.GetDir()<>1
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Else ; GoWN
dir=7
ldir=7
rdir=6
key=38 ; UpArrow
While UO.GetDir()<>7
StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
Wend
Endif
Endif
Endif
Endif
Wend
end sub

sub StepEdit(x,y,dir,key)
VAR walkwait=300
VAR ErrLevel=0
If UO.GetDir()<>dir Then
checkstam()
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir Then
CheckLag()
Endif
Endif
checkstam()
UO.Press(key)
wait(walkwait)
If x==UO.GetX() AND y==UO.GetY() Then
CheckLag()
If x==UO.GetX() AND y==UO.GetY() Then
;zatik
ErrLevel=1
Endif
Endif
Return ErrLevel
end sub

sub StepArrow(x,y,dir,ldir,rdir,key)
VAR walkwait=300
VAR ErrLevel=0
If UO.GetDir()<>dir Then
checkstam()
UO.Press(key)
wait(walkwait)
If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then
CheckLag()
Endif
Endif

If UO.GetX()==x AND UO.GetY()==y Then
checkstam()
UO.Press(key)
wait(walkwait)
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
CheckLag()
If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
; zatik
ErrLevel=1
Endif
Endif
Endif
Return ErrLevel
end sub

#========================================
# Functions
# chechstam()
# checklag()
# reconnector()
#----------------------------------------

sub checkstam()
var refresh = '0x0F0B'
if uo.stamina < 10 then
uo.findtype(refresh,-1,'backpack')
if uo.findcount() then
uo.usetype(refresh)
wait(1000)
else
uo.print("Nety Refreshey! Stoim...")
repeat
wait(500)
until uo.stamina >= 10
endif
else
endif
endsub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
endsub

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate Begging')
wait(1000)
UO.Exec('exec Begging')
wait(1000)
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

Вот, представляю вам скрипт, который за два дня стал легендарным. Который стоит не менее 30-40кк. Вы спросите, почему я совершил такой великодушный акт?))) Надоело мне, играть. Даже заработав 30-40кк за 2 дня, интерес уже давно пропал, наверно ничто его не вернет. В УО я лет 5-7, и Shanahan и Dark_Storm меня прекрасно знают.. но УВЫ, больше НИЧЕГО меня здесь не держит))) как сферу, так и уо я знаю в доль и поперёк. А хотелось бы как раньше.. эхх, то удовольствие которое ты получаешь от ПвМ, от ПвП, даже от крафта. Постоянно узнавать чтото новое.. эхх.. жаль)
Вот собственно и всё. И на последок:
Как установить?
1. Возле вендора маркаете руну.
2. Каким НПЦ будит у вас в DIM ven, таким и должен быть в рунбуке.
3. Закупите по 1к регов которые нужны для рекалл.
4. Маленькая арифметика.

40sec begging + 10sec recall = 50sec = 2k [при 200сейчас, begging=money]
32*50=1600/60=26мин. [за стока зделает обход по 2ум рунбукам]
16*2*2=64к [после того, как пройдёт по всем вендорам в 2ух рунбуках]

В принципе получит 2кк за 10часов, если всё зделанно грамотно. А если летать 3 чарами то сколько?)) И это только за то, что вы поспали.
Удачи.

#2 Dani

Novice

Members
45 posts

Gender:Male
Location:Москва - Выхино, Тушино, Китай Город ;)

Posted 09 August 2007 - 19:45

терарист

#3 teror

Высшая сила

Members
2229 posts

Gender:Male
Location:Латвия

Posted 09 August 2007 - 21:45

просто закроют лавочку, делов та...

#4 zekameka

Newbie

Members
7 posts

Posted 11 August 2007 - 15:20

а для UPpilota как сделать чтоб выбирал цель (по имени чтоли или как хз) и ходил за ней?
п.с. че такое DIM ven?

#5 _FANAT_

местный

Members
579 posts

Gender:Male

Posted 11 August 2007 - 15:31

я не сильно в этом понемаю поэтому задам тупо вопрос

для какой этл проги

easyuo чтоли или что ???

помер и разлагаицо

#6 wap

Guru

Members
2609 posts

Gender:Male
Location:Необитаемый остров

Posted 11 August 2007 - 15:36

я не сильно в этом понемаю поэтому задам тупо вопрос для какой этл проги easyuo чтоли или что ???

Это на инжект...

P.s. Кто тестил, сколько в час гп на этом скрипте?

For flood and honour. Хорошо флудить - это тоже искусство. Forum - moderator. Ultima online - seer. UO XL server - player. WapVendor - в центральном здании рынка британии на сервере XL.

#7 AdmirkA

Advanced Player

Members
381 posts

Posted 18 August 2007 - 12:18

а это не ты Чиксие 5 лвл случайно ?

скрипт еще не тестил )
начинаю писать свой )

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#8 AdmirkA

Advanced Player

Members
381 posts

Posted 19 August 2007 - 15:02

скрипт хороший но это не тот на котором Чиксие 5 лвл летает .

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#9 xmind

Novice

Members
28 posts

Posted 19 August 2007 - 18:26

мдэ....зря я начал в кове чаров на беггинге оставлять.....

#10 crus

Advanced Player

Members
384 posts

Posted 25 August 2007 - 13:44

а это не ты Чиксие 5 лвл случайно ?

скрипт еще не тестил )
начинаю писать свой )

Ne on eto ... i scp u Chikse dazhe ne na inject , mozhno skazat' 4to ja eto ) bolshe nekto etim 4arom ne igrajet... a i s tem scp deneg bolshe vixodilo )

Makaveli

#11 occult

Novice

Members
32 posts

Posted 26 August 2007 - 00:22

2crus, хватит хуйню пороть.
ЭТО МОЙ СКРИПТ! И ТОЛЬКО Я НА НЁМ ЛЕТАЛ!! НИК Occult!
Надеюсь вопросы про авторство больше не будут всплывать.

Антимат компания продолжается! 10% + 3 дня рид онли. wap

#12 AdmirkA

Advanced Player

Members
381 posts

Posted 26 August 2007 - 02:40

Ne on eto ... i scp u Chikse dazhe ne na inject , mozhno skazat' 4to ja eto ) bolshe nekto etim 4arom ne igrajet... a i s tem scp deneg bolshe vixodilo )

да я уж сам во всем разобрался , скрипт лажовенький , ходилка никудышная , поддержка нескольких вендоров на точке отсутствует , даже журнал проверка кривовата в 1 месте )

понравилось , что встроен реконектор , и сообразил сделать рекол по регам )
я даже не знал что кроме зарядов есть возможность через реги в рунбуке )

я вот щас единственное что ,трахаюсь с двумерными массивами на перле , а скрипт чиксие наверно с использованием изи уо ?

все можно легко сделать на перле )
там ходилка 100% точная в 3 строчки )

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#13 Aragorn

Novice Player

Members
130 posts

Posted 26 August 2007 - 07:28

occult: Ответь пожалусто в приват (письмо написал).
А читателям топика - Кто может помочь и обинснить что и как @irc.lv funusage

#14 Nosound

Senior Player

Members
497 posts

Gender:Male
Location:Riga

Posted 28 August 2007 - 22:25

да я уж сам во всем разобрался , скрипт лажовенький , ходилка никудышная , поддержка нескольких вендоров на точке отсутствует , даже журнал проверка кривовата в 1 месте )

понравилось , что встроен реконектор , и сообразил сделать рекол по регам )
я даже не знал что кроме зарядов есть возможность через реги в рунбуке )

я вот щас единственное что ,трахаюсь с двумерными массивами на перле , а скрипт чиксие наверно с использованием изи уо ?

все можно легко сделать на перле )
там ходилка 100% точная в 3 строчки )

pinject sait gde? tamze gde i bil? Toest cherez yoko ,Injection mod...???
neskromnij voporos chto takoje dvumernij massive,chto takoje massive ja znaju a dvumernij,hodilka v principe kak i vezde default estj lu46e?

Мало денег? Жми Сюда!
Если потеря любви доказывает, что её не бывает, то угон автомобиля ...
Я самый имный игрок. ©Exodus
Выводы - это такие специальные ловушки для дураков: прийти к ним легко, а уйти не получается.
Rafik zhot napalmom
Хватит бред про меня выставлять!! Понятно тебе козлина! ©Pelican = Exodus
ЦИТАТА(Street Fighter @ August 4 2007, 23:31 PM)
убери меня из своей подписи или получишь бан!

#15 ExE

Novice Player

Members
109 posts

Gender:Male
Location:Riga
Interests:Футбол, плавание

Posted 28 August 2007 - 23:12

NoSound - двумерный массив - это массив с 2 индексами, вместо одного

матрица так сказать...
Хм... может и мне начать инжект изучать :huh:

#16 AdmirkA

Advanced Player

Members
381 posts

Posted 29 August 2007 - 01:39

ходилка там на основе дабл райт клик ( patfinding ).
супер быстрая и правильная )

Прошивка\чиповка\ремонт Ps2 Xbox Xbox360 Wii PSP . Москва

#17 Dida

Senior Player

Members
578 posts

Posted 29 August 2007 - 03:08

блин вроде всё правильно, но когда он прилетает к вендору то пишит такую херь -"Whom do you want to beg? а ещё строкой ниже -" You can't see the target" Я понимаю что он постоянно юзает скилл но как ето поправить?