Yoko

All sides of Injection
It is currently 2025-11-11 13:55:35

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
 Post subject: Help.
PostPosted: 2006-09-18 12:52:50 
Offline

Joined: 2006-09-17 20:25:33
Posts: 44
Юзал пойск, нету скрипта работающего на магию, кастит пойзон на себя и медитирует и берет реги с сундука + реконектор..
Кому не трудно выложите тут плз.


Top
   
 Post subject:
PostPosted: 2006-09-18 13:26:21 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
покажи что нашел из не работающих

p.s. уже был топ от тебя.. тебе что не ясно сказали?


Top
   
 Post subject:
PostPosted: 2006-09-18 14:03:09 
Offline

Joined: 2006-09-17 20:25:33
Posts: 44
Mihail wrote:
покажи что нашел из не работающих

p.s. уже был топ от тебя.. тебе что не ясно сказали?

Code:
#####################################################################
#####################################################################
########################       Magery        ########################
######################## Best Script v.2.0.1 ########################
#####################################################################
#####################################################################
## Автор: Cooper
##
## Тестил: Cooper
##
## дата: 06.03.2006
##
## e-mail: cooper@omsgsm.ru
##
## Шард: Dragon World, www.drw.ru
##
##                        Описание скрипта:
## Чар берет из сундука реги и молча кастует нужные спелы, попутно кушая стейки,
## реги заканчиваются, он берет из сундука рядом, попутно изучая анатомию.
## Идеально подходит для прокачки на ночь, следите за кол-вом регов!!!
##
## Все претензии, идеи и критику на мыло. Жду.
##
##
##                       Правила пользования:
## Для начала меняем ID сундука из которого будем брать реги.
## Он должен стоять рядом открытым, как узнать ID я
## думаю обьяснять не надо :) Далее думаем что будем кастовать прописываем
## спеллы в секции "Начинаем" в самом конце скрипта. Далее смотрим в спеллбуке
## какие нужны реги на каст нужных спелов и в секции "Реги..." проставляем
## вместо нулей единицы на соответсвующих регах, к себе в пак ложим стейки.
## Далее запускаем magery появится прицел, тыкаем на себя и....
## выключаем монитор, ложимся спать, или к жене под бочек, кому как повезет :)
## Утром смотрим результат.
##
## Напоминаю чар берет из сундука 500 регов каждого типа который вы захотите,
## если силенок маловато то советую изменить значения в строке "кол-во..".
##
## Спокойных вам ночей!!!
######################################################################
######################################################################

##Вункция подбора
Sub berem(chto, skoka)
## Сундук
##
VAR sund=0x4027308F ## НЕ ЗАБУДЬ ПОМЕНЯТЬ ID СУНДУКА!!!

UO.FindType(chto,-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType(chto,'0x0000',sund)
wait(1000)
UO.Grab(skoka,'finditem') ; поставь кол-во регов, которое можешь поднять.
wait(1000)
endif
end sub

sub magery()
## Реги, которые будем брать из сундука
##
VAR nshade=1   ##NighShade
VAR gseng=0    ##Ginseng
VAR grlk=0     ##Garlik
VAR sash=0     ##Sulfurous Ash
VAR ssilk=0    ##Spider Silk
VAR blood=0    ##Blood Moss
VAR bperl=0    ##Black Pearl
VAR mroot=0    ##Mandrake Root

##Типы регов
##
VAR bns=0x0F88   ##NighShade
VAR bgs=0x0F85    ##Ginseng
VAR bgk=0x0F84     ##Garlik
VAR bsa=0x0F8C     ##Sulfurous Ash
VAR bss=0x0F8D    ##Spider Silk
VAR bbm=0x0F7B    ##Blood Moss
VAR bbp=0x0F7A    ##Black Pearl
VAR bmr=0x0F86    ##Mandrake Root

VAR golod=1    ##Кушаем

uo.exec('addobject Body')
wait(2500)
while not uo.dead()

##NightShade
##
If nshade <> 0 then
berem(bns, 500) ## Вместо 500 ставим стока скока унесем :)
Endif

##Ginseng
##
If gseng <> 0 then
berem(bgs, 500)
Endif

##Garlik
##
If grlk <> 0 then
berem(bgk, 500)
Endif

##Sulforous Ash
##
If sash <> 0 then
berem(bsa, 500)
Endif

##Black Pearl
##
If bperl <> 0 then
berem(bbp, 500)
Endif

##Blood Moss
##
If blood <> 0 then
berem(bbm, 500)
Endif

##Spider Silk
##
If ssilk <> 0 then
berem(bss, 500)
Endif

##Mandrake root
##
If mroot <> 0 then
berem(bmr, 500)
Endif

##Кушаем
##
if golod <> 0 then
UO.UseType(0x097B)
endif

##Начинаем
##
if uo.skillval("Magery",1) < 1010 Then
if uo.mana >20 then
UO.exec("cast 'Poison' self")
wait(5000)
UO.exec("cast 'Poison' self")
wait(5000)
UO.WaitTargetObject('Body')
UO.useskill("Anatomy")
wait(4000)
else
while UO.Mana<UO.Int
UO.Useskill("Meditation")
wait(3000)
wend
endif
else
UO.Exec("terminate magery")
endif
wend
end sub


Top
   
 Post subject:
PostPosted: 2006-09-18 15:57:06 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
ну и чо в нем нерабочего?


Top
   
 Post subject:
PostPosted: 2006-09-18 15:58:39 
Offline

Joined: 2006-09-17 20:25:33
Posts: 44
Mihail wrote:
ну и чо в нем нерабочего?
1. он не берет НС и не кастит пойзон на себя...
2. сразу как включаю скрипт, он выключается, моментально (


Top
   
 Post subject:
PostPosted: 2006-09-18 16:01:48 
Offline

Joined: 2006-09-17 20:25:33
Posts: 44
Миша, я достал вот такой скрипт, если можешь туда реконектор засунуть, засунь п пожалуйста.

Code:
sub main()
  var i
  var MaxRegs
  var MinMana


  MinMana = 15
  MaxRegs = UO.NS

  UO.Print( 'Repeat: ' + Str( MaxRegs ) )

  if UO.Mana < MinMana then
    ;Uo.Say('guards')
    Med()
  end if

  for i=1 to 50000 ;MaxRegs
    ;UO.Exec( "cast 'Cure' self" )
    UO.Exec( "cast 'Night Sight' self" )
    ;UO.Exec( "cast 'Poison' self" )
    ;UO.Exec( "cast 'Protection' self" )
    ;UO.Exec( "cast 'Magic Reflection' self" )
    ;UO.Exec( "cast 'Arch Protection' self" )
    ;UO.Exec( "cast 'Paralyze' self" )
    ;UO.Exec( "cast 'Mass Dispel' self" )
    ;UO.Exec( "cast 'Agility' self" )
    wait( 3500 )
    if UO.Mana < MinMana then
      Med()
    end if
  next

  Gong()
end sub

sub Med()
    UO.Usetype('0x0F0E')
    wait(500)
   while UO.Mana<UO.Int
    UO.UseSkill( "Meditation" )
    wait( 10000 )
   wend
    UO.UseSkill('Stealth')
   ; wait(1500)
   ; UO.UseSkill('Hiding')
   ; wait(1500)
   ; UO.Exec("useskill 'Anatomy' self")
   ; wait(1500)
   ; UO.Exec("useskill 'Animal Lore' self")
   ; wait(2000)
   ; UO.Say("guards")
end sub


Top
   
 Post subject:
PostPosted: 2006-09-18 17:26:24 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
во-первых я тебе не Миша, а Михаил, во-вторых, реконнектор см. в разделе scripts!, в-третьих чтобы брал нужные реги надо было скопировать функцию
Code:
berem([реги],[кол-во])


Top
   
 Post subject:
PostPosted: 2006-09-18 17:44:54 
Offline

Joined: 2006-09-17 20:25:33
Posts: 44
Mihail wrote:
во-первых я тебе не Миша, а Михаил, во-вторых, реконнектор см. в разделе scripts!, в-третьих чтобы брал нужные реги надо было скопировать функцию
Code:
berem([реги],[кол-во])
Спасибо Михаил! Все прекрастно работает. :D


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

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 3 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited