Yoko
http://forum.yoko.com.ua/

Измините скриптик плизз
http://forum.yoko.com.ua/viewtopic.php?f=20&t=697		 Page 1 of 1
Author:  Скрипт [ 2004-06-27 16:11:47 ]
Post subject:  Измините скриптик плизз
собсвенно када лаганёт то он из пака выкладывает кегу добавьте туда проверку на чтоб он кеги просто неперекладывал неприкаком слачает а если камуто совсем невлом будет то добавть в этот скрипт реконектор


==============================================
VAR Reg='0x0F88'
VAR Keg='0x1940'
VAR Potion='0x0F0A'
VAR MyBag='0x40FBDF34'
VAR RecCont='0x4002B8C0'
VAR ResCont='0x4002A79D'
VAR KegCont='0x40BECD05'


Sub Main()
VAR y
While NOT UO.Dead()
UO.Print('Find Reg')
CheckLag()
UO.FindType(Reg,'-1','my')
If UO.GetQuantity('finditem') < 50 Then
Load()
EndIf
UO.Print('Find Potion')
CheckLag()
UO.FindType(Potion,'-1','-1')
y = UO.FindCount('finditem')
UO.Print('Potion is '+str(y)+'')
If UO.FindCount('finditem') > 50 Then
Takekeg()
Fill()
EndIf
Wait(1000)
Eat()
CheckLag()
Alch()
Wend
End Sub

Sub Load()
CheckLag()
UO.UnSetReceivingContainer()
UO.FindType (Reg,'-1',ResCont)
UO.Grab('4','finditem')
Wait(1000)
End Sub

Sub Unload()
CheckLag()
UO.SetReceivingContainer(RecCont)
UO.FindType(Keg,'-1','my')
UO.Grab('0','finditem')
UO.Exec('Terminate Unload')
End Sub

Sub Eat()
UO.UseType('0x097B')
wait (100)
UO.Useskill('Spirit Speak')
wait (1000)
End Sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(100)
Until UO.InJournal('backpack')
End Sub

Sub Alch()
UO.Exec("automenu 'What sort' 'Greater Poison (4 N'")
Wait(1000)
UO.DeleteJournal()
UO.UseType(Reg)
While NOT (UO.InJournal("toss the failed") or UO.InJournal("You put") or UO.InJournal("pack"))
Wait(1000)
Wend
End Sub

Sub Fill()
UO.WaitTargetType(Potion)
UO.UseType(Keg)
Wait (2000)
CheckLag()
UO.WaitTargetObject(MyBag)
UO.UseType (keg)
Wait (3000)

Unload()
End Sub

sub TakeKeg()
UO.Print('Take keg')
CheckLag()
UO.UnSetReceivingContainer()
UO.FindType(Keg,'-1',KegCont)
UO.Grab('1','finditem')
Wait (1000)
End Sub
Author:  Shahe [ 2004-06-27 20:44:25 ]
Post subject: 
слуш ты бы хоть копирайт оставил мой, а то уже выложил его на изменения
Author:  Скрипт [ 2004-06-28 14:04:24 ]
Post subject: 
я разве гдето сказал что это мой скрипт ? это хороший скрипт и я хотелбы чтоб его немного изминили вот панику подня да это твой скрипт я разве имею чтото против ?
Author:  Edred [ 2004-06-28 15:39:35 ]
Post subject: 
Скрипт wrote:
я разве гдето сказал что это мой скрипт ? это хороший скрипт и я хотелбы чтоб его немного изминили вот панику подня да это твой скрипт я разве имею чтото против ?


Уже не первый раз сталкиваюсь с постами от тебя, где ты кидаешь чужие скрипты, старательно отрезав комментарии и копирайты. Не думаю, что с таким подходом ты найдешь много желающих тебе помочь...
Author:  Скрипт [ 2004-06-28 15:44:13 ]
Post subject: 
этот скрипт я нашол в топе коперайтов некаких небыло былибы скопировал так как скрипт я копировал от сюда http://yoko.netroof.net/forum/viewtopic.php?t=428
т скажите он сам оствлял коперайты ?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/