Yoko

All sides of Injection
It is currently 2025-12-23 19:55:32

All times are UTC+02:00




Post new topic  Reply to topic  [ 9 posts ] 
Author Message
PostPosted: 2005-08-20 11:06:22 
Offline

Joined: 2005-06-21 20:31:26
Posts: 80
помогите со скриптом на скупку....я сам в них не шарю....мне дали этот скрипт и сказали тока идентификаторы забить, что я и сделал.
када запускаю выскакивает такая ошибка: line21: Variable undefined: MAXWEIGHT...
хелп плиз, или дайте ктонить другой скриптик

Code:
sub main() 
DIM rune[3]
DIM ven[3]
rune[1]='0x401029C6' ; Сюда вносятся ID рун к вендорам 
rune[2]='0x400A7747' ; 6 штук, можно сколько угодно
rune[3]='0x401026C0' ; просто все шестерки в скрипте
;rune[4]='0x40102782' ; заменяются на нужную цифру
;rune[5]='0x401028C5' ;
;rune[6]='0x40102924' ;

ven[1]='0x0038C4C5' ; ID вендоров у которых скупаются реги
ven[2]='0x0036C6B5' ;
ven[3]='0x001665B2' ;
;ven[4]='0x0024591D'
;ven[5]='0x002CA47B'
;ven[6]='0x00075AAD'


UO.Set('buydelay','2000')
while UO.notdead()
If MaxWeight<UO.Weight+VesPrirost Then
   Domoy()
   Magazin()
Endif

i=i+1
   recall(i,rune)
   If UO.InJournal("fade") Then
      Mark(i,rune)
      wait(500)
      UO.DeleteJournal()
   endif
   UO.Set('buydelay','2000')
   wait(50)
   UO.buy('sp',ven[i])
   wait(1000)
   UO.DeleteJournal()

if i=2 then
   i=0   
endif
wend
end sub
#####################################
sub Recall(i,rune)
repeat
med()                                                       
uo.WaitTargetObject(rune[i])
uo.Exec('warmode 0')
uo.Cast('Recall')
wait(3000)
until not uo.InJournal('spell fizzles')
end sub
#####################################
sub Mark(i,rune)
repeat
med()                                                       
uo.WaitTargetObject(rune[i])
uo.Exec('warmode 0')
uo.Cast('Mark')
wait(3000)
until not uo.InJournal('spell fizzles')
end sub
######################################
sub med()
VAR LastTimer
while UO.Mana<UO.Int
LastTimer=UO.Timer()
UO.UseSkill('Meditation')
repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200
UO.DeleteJournal()
wait(200)
wend
end sub
##############################
sub Domoy()
   VAR Dom="0x401C48B2" ; Id runy k sunduku
   VAR Sunduk="0x4029B854" ; Id sunduka kuda kidat` tkan`

   UO.DeleteJournal() 
      medicMax()
      UO.Cast('Recall',Dom)
      wait(4000) 
   If UO.InJournal("fade") Then
         medicMax()
         UO.DeleteJournal()
         UO.Cast('Mark',Dom)
         wait(5000)
   Endif
   UO.FindType('0x0F88',-1,'backpack') ; NightShade
   wait(1000)
   UO.MoveItem('finditem',0,Sunduk)
   wait(1000)
   UO.FindType('0x0F88',-1,'backpack') ; balls of yarn
   wait(1000)
   UO.MoveItem('finditem',0,Sunduk)
   wait(1000)
   UO.FindType('0x0F87',-1,'backpack') ; EyesOfNewt
   wait(1000)
   UO.MoveItem('finditem',0,Sunduk)
   wait(1000)
   UO.FindType('0x0E34',-1,'backpack') ; BlankScroll
   wait(1000)
   UO.MoveItem('finditem',0,Sunduk)
   wait(1000) 
end sub


[Используй теги. Leo]


Top
   
 Post subject:
PostPosted: 2005-08-20 13:08:52 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
В начале скрипта вставь:
Code:
VAR MaxWeight=700 #вес, при котором буш лететь всё складывать


Top
   
 Post subject:
PostPosted: 2005-08-20 14:40:09 
Offline

Joined: 2005-06-21 20:31:26
Posts: 80
все равно не пашет....другие ошибки выскакивают


Top
   
 Post subject:
PostPosted: 2005-08-20 14:50:03 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Строчку
Code:
while UO.notdead()

замени на
Code:
while not UO.dead() 


Там вообще ошибок много. Долго все так исправлять.


Top
   
 Post subject:
PostPosted: 2005-08-20 16:44:59 
Offline

Joined: 2005-01-22 10:29:34
Posts: 138
if i=2 и тд убери изза этого и не работает
потом в самом начале while uo.notdead() это че такое новая команда инжи? Ваще не знаешь как писать скрипты зачем правил скрипт савы?


Top
   
 Post subject:
PostPosted: 2005-08-20 19:30:18 
Offline

Joined: 2005-06-21 20:31:26
Posts: 80
да я вобще его не трогал...мне его таким дали, я токо туда иды вставил....
помогите хотяб другой найти


Top
   
 Post subject:
PostPosted: 2005-08-20 19:47:13 
Offline

Joined: 2005-01-22 10:29:34
Posts: 138
ищи может и найдешь :roll:


Top
   
 Post subject:
PostPosted: 2005-08-20 21:25:39 
Offline

Joined: 2005-06-21 20:31:26
Posts: 80
netol wrote:
ищи может и найдешь :roll:


все так говорят...я искал половина ссылок не работает....хоть бы ктонить помог...лео на всех и так разрывается))


Top
   
 Post subject:
PostPosted: 2005-08-20 21:31:31 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Как исправлять ссылку. Повторяю.
Имеем ссылку вида http://yoko.netroof.net/forum/viewtopic.php?p=14838
Ищем в этой ссылке http://yoko.netroof.net/forum/ и заменяем на http://forum.yoko.com.ua/
В итоге получаем работающую ссылку:
http://forum.yoko.com.ua/viewtopic.php?p=14838

Вот тут лежит скрипт на скупку.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 9 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 9 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited