Page 1 of 1

Помогите пожалуйста я написал скрипты на лут и бомбы но нера

Posted: 2005-03-15 12:18:29
by One Two
Скрипт на бомбы не мой

Code: Select all

sub BombDrop() 
var bomb='0x0f0d' 
var i 
for i = 0 to 7 
UO.FindType(bomb,'backpack') 
UO.UseObject('finditem') 
wait(100) 
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
next 
UO.Cast('Magic Arrow',('finditem')) 
end sub 
1 вопрос почему бомбы кидаются над галовой на 3 гдето выше и неципляют того в кого кидаеш
подправьте пожалуйста

Code: Select all

sub loot() 
UO.FindType("0x1404","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1438","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1400","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x13b7","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x0f51","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x13b5","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x13fe","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x0f60","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x0f5c","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x0f4d","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x0f62","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b76","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1bc3","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b72","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b7b","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if 

UO.FindType("0x1b7a","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b73","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b74","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b78","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1bc4","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b74","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1b78","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if 

UO.FindType("0x1410","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1415","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1412","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x140e","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1413","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x140a","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1408","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x140c","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1411","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x13bf","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x13be","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x1414","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
end if  

UO.FindType("0x0e75","-1","lastcorpse") #Female Leather Armor 
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then 
UO.Grab("0","finditem") 
wait(500) 
endif 
end sub  
2 Вопрос почему незапускается раньше работал а шяс нет хз почему

Re: Помогите пожалуйста я написал скрипты на лут и бомбы но

Posted: 2005-03-15 12:20:08
by Sfagnum
One Two wrote:2 Вопрос почему незапускается раньше работал а шяс нет хз почему
может TWI отключил?