Page 1 of 1
скупку nighshade
Posted: 2006-05-31 11:39:28
by Bangbuss
negde nena6ol takoj skript, esli mozhete pomagiti pozhalusta!
4ar stoit okala vendora pokupaet vso reme nighshade i + kidaet na sebja poison! nu 6tob 4ar vso reme kidal na sebja poison i emu vsegda bili bi regi!
Re: скупку nighshade
Posted: 2006-05-31 11:51:16
by klonuk
Bangbuss wrote:negde nena6ol takoj skript, esli mozhete pomagiti pozhalusta!
4ar stoit okala vendora pokupaet vso reme nighshade i + kidaet na sebja poison! nu 6tob 4ar vso reme kidal na sebja poison i emu vsegda bili bi regi!
sub Ns()
UO.Buy('Ns')
wait(1000)
UO.Say('Bye ')
end sub
Зайди в закладку Майн там найди Buy/sell
И там забей Ns ... каст на себя сам до пиши
Posted: 2006-05-31 12:15:39
by Bangbuss
wait 100 ne sli6kom malo? regi tak bistro neobnovitsa y vendora!
a ti nemozhe6 pozhalusta dopesat etat skript? nu poison na sebja, meditacija, i buy katorij ti uzhe napisal.
Posted: 2006-05-31 12:19:52
by ghost_hnt
что-то типо того!!
не забудь в вкладку buy/sell прописать
Code: Select all
sub Magery()
While NOT UO.Dead()
While UO.Mana>=9 AND UO.NS>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
UO.DeleteJournal()
Ns()
UO.Cast('Poison', 'targetself') # targetself - или id той вещи на которую хочешь кастовать
wait(3000)
wend
If UO.Mana<9 Then ;*
While UO.Mana<UO.Int
UO.DeleteJournal()
wait(1000)
UO.Useskill('Meditation')
Repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("Медитация") #ВМЕСТО МЕДИТАЦИЯ напиши, что пишет шард если МЕДИТАЦИЯ СОРВАЛАСЬ (у меня шард наполовину руссифицирован, так что)
Wend
end sub
sub Ns()
UO.Buy('Ns')
wait(1000)
UO.Say('Bye ')
end sub
Posted: 2006-06-01 17:44:04
by Bangbuss
on pokupaet toka 1 raz i potom nefiga, a nado 6tob vso reme pokupal
Code: Select all
sub Ns()
UO.Buy('Ns')
wait(1000)
UO.Say('Bye ')
end sub
Posted: 2006-06-01 21:15:01
by ghost_hnt
Bangbuss wrote:on pokupaet toka 1 raz i potom nefiga, a nado 6tob vso reme pokupal
Code: Select all
sub Ns()
UO.Buy('Ns')
wait(1000)
UO.Say('Bye ')
end sub
поставь repeat

Posted: 2006-06-01 21:24:38
by Nmy
Code: Select all
sub Ns()
while true
UO.Buy('Ns')
wait(1000)#задержка 1секунда, 10000-10секунд, 60000-1минута
UO.Say('Bye ')
wend
end sub
You Must Die :А это?
Posted: 2006-06-02 06:25:20
by klonuk
NMY wrote:Code: Select all
sub Ns()
while true
UO.Buy('Ns')
wait(1000)#задержка 1секунда, 10000-10секунд, 60000-1минута
UO.Say('Bye ')
wend
end sub
Тока не ставте болшую задержку в этом скрипте он покупает НС если он закончилься...
Да шард скажи Bangbuss.
Posted: 2006-06-02 09:24:57
by Bangbuss
da ti neznae6, shard novij toka 6to otkrilsa nedelju nazad.
Ja tak davno neka4al 4ara s nulja 6to ja uzhe nepomnju kak ka4atsa, kak deneg dostavat` na proka4ku magery itd.