Jump to content

  2. → Viewing Profile: Topics: sergylka

Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  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
@  Egoons : (10 May 2025 - 18:48) lanc 2025 gads jau, ara silts atkal. tas taa, infai
@  beatiful : (10 May 2025 - 10:14) griga pidar
@  fr33 : (08 May 2025 - 17:53) griga eta samij zoskj dalbaeb etam server

sergylka

Member Since 18 Oct 2010
Offline Last Active Nov 07 2010 22:47
-----

Topics I've Started

куплю голд инги

01 November 2010 - 22:20

по разумной цене :)
скайп serezka101

Rp за передлку скрипта

30 October 2010 - 12:03

Есть скрипт, надо добавить в него полёт по 3-м рунбукам. Заплачу в РП. Скайп Serezka101
пишите свою цену и скайп.
вот собственно скрипт.

var book1='0x400AA0A9'
var box_in_bank='0x400F3717'
var ven_num_bank=4 # Номер из рунбуки где стоит вендор-банкир.
var ven_num_mag=8 #Номер из рунбуки где стоит вендор-маг для закупки реагентов.

sub begging()
var k,j,b,s,p,vendor,bank

DIM ven[16]
ven[1]='0x000DFC6E.' #parker
ven[2]='0x000DFCC5.' #Jonathon [Carpenter]
ven[3]='0x000DFC9F.' #Trianon [Cook]
ven[4]='0x000E0A7D.' # Банкир!!
ven[5]='0x000DFC87.' #Tano [Bowyer]
ven[6]='0x000DE30F.' #Frances [Butcher]
ven[7]='0x000DE8EC.' #Leron [Carpenter]
ven[8]='0x000DBD40.' #Bay [Alchemist] МАГ СИНИЙ МИНОК
ven[9]='0x000DE91D.' #Alger [Cook]
ven[10]='0x000DF059.' #Phylis [Provisioner]
ven[11]='0x000DF7F8 0x000DF81A.' #haedra [Cook]
ven[12]='0x000DF7BB 0x000DF2CC.' # scribe
ven[13]='0x000DED15.' # Alice [Blacksmith]
ven[14]='0x000DE6E6.' #Sawyer [Blacksmith
ven[15]='0x000DE6B4.' #Bardon [Provisioner]
ven[16]='0x000DE6D5.' #Felicia [Carpenter]

while not uo.dead()
for k=1 to 16
uo.useskill('Meditation')
recall(book1,k)

j = 1
vendor=GetWord(ven[k],j)

while vendor <> ''
uo.SetEasyUO(2,uo.inj2euo(vendor))

UO.DeleteJournal()
s = "uo.getx()"
p = "uo.gety()"
repeat
s = uo.getx(vendor)
p = uo.gety(vendor)
#hod(s,p)
wait(300)
#hod(s,p)
#wait(250)
UO.WaitTargetObject(vendor)
UO.Useskill('Begging')
wait(3000)
if (k == ven_num_mag) then
if uo.count("0x0F7A")<150 then
uo.buy("bp")
uo.say("buydelay 2500")
wait(3000)
end if
if uo.count("0x0F7B")<150 then
uo.buy("bm")
uo.say("buydelay 2500")
wait(3000)
end if
if uo.count("0x0F86")<150 then
uo.buy("mr")
uo.say("buydelay 2500")
wait(3000)
end if
end if
until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("Oh, I have no money now")-1))==vendor
if k == ven_num_bank then #money in Bank
uo.deletejournal()
while ((bank == '0xFFFFFFFF') || (bank == '0x00000000'))
uo.msg('bank')
wait(100)
bank = UO.ContainerOf (box_in_bank)
wend
#UO.Print( 'Сериал контейнера: ' + ser2 )
#UO.Print( 'KOORDF: ' + UO.GETX('ser1') )
while uo.count(0x0EED)
uo.moveitem('_0x0EED',0,box_in_bank)
IF uo.injournal('You put the') then
uo.msg('bank')
uo.deletejournal()
end if
wait(100)
wend
end if

j=j+1
#uo.print(str(j))
vendor=GetWord(ven[k],j)
wend

next
wend
endsub

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

sub hod(xko,yko)
var mx=UO.GetX()
var my=UO.GetY()
if mx == xko and my > yko then
UO.Press(33)
endif
if mx == xko and my < yko then
UO.Press(35)
endif
if mx < xko and my == yko then
UO.Press(34)
endif
if mx < xko and my > yko then
UO.Press(39)
endif
if mx < xko and my < yko then
UO.Press(40)
endif
if mx > xko and my == yko then
UO.Press(36)
endif
if mx > xko and my > yko then
UO.Press(38)
endif
if mx > xko and my < yko then
UO.Press(37)
endif
end sub

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(5000)
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


Sub GetWord( st, nom )
; © Edred
; Возвращает слово из строки str за номером num
; если такого слова нет - возвращаем ''
;
; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
;
VAR tmpst, i, dlin, kol = 0, start = 0
dlin = len( st )
For i=0 To dlin - 1
If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
kol = kol + 1
If kol == nom Then
; это первый пробел после нужного нам слова
tmpst = mid( st, start, i - start )
return tmpst
Else
While mid( st, i, 1 ) == ' '
i = i + 1
Wend
If kol == nom - 1 Then
start = i
Endif
Endif
Endif
Next
tmpst = ''
return tmpst
endsub

Попрошайничество

28 October 2010 - 14:30

даёшь больше денег при попрошайничестве! :)

вопрос по ошибке скрипта

28 October 2010 - 08:56

Если не сложно подскажите как сюда вставить использование ещё 1-й, а лутше 2-х рунбуков. 

var book1='0x400AA0A9'

var box_in_bank='0x400F3717' 

var ven_num_bank=4	# Íîìåð èç ðóíáóêè ãäå ñòîèò âåíäîð-áàíêèð.

var ven_num_mag=8  #Íîìåð èç ðóíáóêè ãäå ñòîèò âåíäîð-ìàã äëÿ çàêóïêè ðåàãåíòîâ.



sub begging()

var k,j,b,s,p,vendor,bank



DIM ven[16]

ven[1]='0x000DFC6E.' #parker

ven[2]='0x000DFCC5.' #Jonathon [Carpenter]

ven[3]='0x000DFC9F.' #Trianon [Cook]

ven[4]='0x000E0A7D.' # Áàíêèð!!

ven[5]='0x0011ACD3.' #Minoc banker

ven[6]='0x00118851.' #Britain blue boar 

ven[7]='0x0011889F.' #Moonglow provisioner

ven[8]='0x001152F5 0x0011A0A3.' #Britain bowyer2 ÌÀÃ ÑÈÍÈÉ ÌÈÍÎÊ

ven[9]='0x0011BE17.' #Britain armorer

ven[10]='0x0011641A.' #Moonglow tinker

ven[11]='0x001193BF.' #Britain farmer 

ven[12]='0x00118886.' #Britain hides 

ven[13]='0x00118CFB.' #Britain tailor2 

ven[14]='0x0011BC39.' #Moonglow cook 

ven[15]='0x0011D859.' #Moonglow bs

ven[16]='0x00117B51.' #Moonglow cook2



while not uo.dead()

for k=1 to 16

uo.useskill('Meditation')

recall(book1,k)



j = 1

vendor=GetWord(ven[k],j)



while vendor <> '' 

uo.SetEasyUO(2,uo.inj2euo(vendor))



UO.DeleteJournal()

s = "uo.getx()"

p = "uo.gety()"

repeat

s = uo.getx(vendor)

p = uo.gety(vendor)

#hod(s,p)

wait(300)

#hod(s,p)

#wait(250)

UO.WaitTargetObject(vendor) 

UO.Useskill('Begging')

wait(3000) 

if (k == ven_num_mag) then 

  if uo.count("0x0F7A")<400 then

	uo.buy("bp")

	uo.say("bye")

	wait(200)

  end if

  if uo.count("0x0F7B")<400 then

	uo.buy("bm")

	uo.say("bye")

	wait(200)

  end if

  if uo.count("0x0F86")<400 then

	uo.buy("mr")

	uo.say("bye")

	wait(200)

  end if

end if

until UO.InJournal("You put the gold") or UO.InJournal("You receive") or (uo.JournalSerial(uo.InJournal("Oh, I have no money now")-1))==vendor 

if k == ven_num_bank then   #money in Bank

   uo.deletejournal()

   while ((bank == '0xFFFFFFFF') || (bank == '0x00000000')) 

	  uo.msg('bank')

	  wait(100)

	  bank = UO.ContainerOf (box_in_bank)

   wend

   #UO.Print( 'Ñåðèàë êîíòåéíåðà: ' + ser2 )

   #UO.Print( 'KOORDF: ' + UO.GETX('ser1') )

   while uo.count(0x0EED)

   uo.moveitem('_0x0EED',0,box_in_bank)

   IF uo.injournal('You put the') then 

	   uo.msg('bank')

	   uo.deletejournal()

   end if

   wait(100)

   wend

end if



j=j+1

#uo.print(str(j))

vendor=GetWord(ven[k],j)

wend



next

wend

endsub



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



sub hod(xko,yko)

var mx=UO.GetX() 

var my=UO.GetY() 

  if mx == xko and my >  yko then	  

  UO.Press(33)	

  endif	

  if mx == xko and my  < yko then	  

  UO.Press(35)	

  endif	

  if mx  < xko and my == yko then	  

  UO.Press(34)	

  endif	

  if mx  < xko and my >  yko then	  

  UO.Press(39)	

  endif	

  if mx  < xko and my  < yko then	  

  UO.Press(40)	

  endif	

  if mx >  xko and my == yko then	  

  UO.Press(36)	

  endif	

  if mx >  xko and my >  yko then	  

  UO.Press(38)	

  endif	

  if mx >  xko and my  < yko then	  

  UO.Press(37)	

  endif 

end sub



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





Sub GetWord( st, nom )

; (c) Edred

; Âîçâðàùàåò ñëîâî èç ñòðîêè str çà íîìåðîì num

; åñëè òàêîãî ñëîâà íåò - âîçâðàùàåì ''

;

; Ðàçäåëèòåëåì ñëîâ ñ÷èòàåì ïðîáåë. Íåñêîëüêî ïðîáåëîâ ïîäðÿä ñ÷èòàþòñÿ çà îäèí.

; Ôóíêöèÿ ñäåëàíà áåç ðåêóðñèè ñïåöèàëüíî äëÿ ñ÷èòûâàíèÿ ñëîâ èç ñâåðõäëèííûõ ñòðîê!

;

   VAR tmpst, i, dlin, kol = 0, start = 0

   dlin = len( st )

   For i=0 To dlin - 1

	  If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then

		 kol = kol + 1

		 If kol == nom Then

; ýòî ïåðâûé ïðîáåë ïîñëå íóæíîãî íàì ñëîâà

			tmpst = mid( st, start, i - start )

			return tmpst

		 Else

			While mid( st, i, 1 ) == ' '

			   i = i + 1

			Wend

			If kol == nom - 1 Then

			   start = i

			Endif

		 Endif

	  Endif

   Next

   tmpst = ''

   return tmpst

endsub

воин в пвм

26 October 2010 - 22:26

Хотелось бы узнать у опытных игроков, с каким оружием выгодней бегать варом в пвм и пвп.
Имеется ввибу с катаной, мейсой и т.д

  1. Old Paradise Forums
  2. → Viewing Profile: Topics: sergylka
  3. Privacy Policy