TOP-5 активистов форума  
  НикПостов  
  Incubus7229  
  BiohazardIK609  
  Deathclaw482  
  Ag3r0n329  
  Azazello258  
  TOP-5 флудеров форума  
  НикФлуда  
  BiohazardIK287  
  Blind173  
  Deathclaw141  
  Azazello137  
  Incubus113  
  TOP-5 геймеров форума  
  НикПобед  
  СуперскаяПарочка8  
  Incubus7  
  Gag7  
  BaRoMIR5  
  zuza5  
  5 последних сообщений  
  Тема Ник  
  Олмер онлайн DarkZeal  
  Ну что старперы, кто тут живой то есть ? :) Damir  
  Форум wh2 - переехал Quasimodo  
  Состояние сервера. Что, где, когда? DarkZeal  
  Арендуем 1 кв метр в проходимых местах Blind  
Внимание!!! Гость. Большинство разделов форума предназначены для зарегистрированных участников, поэтому ув. Гость, лучше бы тебе зарегистрироваться :). Тем более, что регистрация займет у тебя не более 1 минуты, зато существенно расширит твои права и возможности на этом форуме

Правила форума Правила Форума
Страницы: (7) [1] 2 3 ... Последняя » ( Перейти к первому непрочитанному сообщению ) Ответить Новая тема Создать опрос

> Скрипты для инжекта!, Провереные на ВХ2
Deathclaw
Дата 5.11.2006 - 07:32
*
Пользователя сейчас нет на форуме Детально о участнике

Орк
Пеон

Кол-во флуда: 141
Пред.: (0%) -----
Репутация: 11
Ну совственно первый скрипт будет на переплавку руды по одной штуке!
Описание скрипта:
Кладёте с собой рядом a wooden box(или другой контейнер только надо 0x4019B055 заменять сериалом вашего контейнера. Сериал или ID можно узнать через команду ,info) в котором должна лежать Iron ore и запускаете скрипт! Он берёт одну железную руду из ящика, переплавляет потом опяь берёт... цикличность.

Цитата

sub smelting()
var ore='0x19B9'
var color='0x0000'
var sunduk='0x4019B055'
var ingot='0x1BF2'
uo. FindType(ore,color,sunduk
)
  while uo.FindCount()
uo. FindType(ore,color,sunduk
)
        wait(300)
uo.moveitem('finditem','1','backpack')
    uo.UseObject('finditem')
    wait(1300)
if UO.InJournal("?? ???????") then
repeat
end if
  wend
if UO.InJournal("You put") then
zachistka()
endif

end sub
var ore='0x19B9'
var color='0x0000'
var sunduk='0x4019B055'
var ingot='0x1BF2'
sub zachistka()
  uo.FindType(ingot,color,'backpack')
        wait(500)
   uo.moveitem('finditem','1',sunduk)
    wait(500)
    end if
    end sub


З.Ы. Вот что-то ни как до ума довести не могу зачистку может кто поможет хотя это не принципиально!

Это сообщение отредактировал Deathclaw - 5.11.2006 - 07:34


--------------------
  PM e-mail ICQ  
Top  
Azazello
Дата 5.11.2006 - 18:16
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Кому какие скрипты нужны пишите че надо дам!


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
Deathclaw
Дата 5.11.2006 - 18:19
*
Пользователя сейчас нет на форуме Детально о участнике

Орк
Пеон

Кол-во флуда: 141
Пред.: (0%) -----
Репутация: 11
Что бы бегал по линии и обкапывался есть?


--------------------
  PM e-mail ICQ  
Top  
Azazello
Дата 5.11.2006 - 18:24
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Есть на шахту в миноке! токо он немного глючной, копает ходя по диагонали и копает только один вид тайлов! Если надо могу выложить!


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
Deathclaw
Дата 5.11.2006 - 18:25
*
Пользователя сейчас нет на форуме Детально о участнике

Орк
Пеон

Кол-во флуда: 141
Пред.: (0%) -----
Репутация: 11
давай а один вид тэйллов легко заменяется на -1 wink.gif


--------------------
  PM e-mail ICQ  
Top  
Azazello
Дата 5.11.2006 - 18:29
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Окей, ты сам захотел smile.gif
sub main()
var i
While UO.Life>0
for i=1 to 10
kopat()
uo.press(34)
next
uo.print("GO назад =)")
kopat()
for i=1 to 11
wait(500)
uo.press(36)
next
uo.press(34)
wend
end sub

sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Тайл "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E85'") # Здесь прописываем тип кирки
UO.DeleteJournal()
while (not (UO.InJournal("stop mining") or UO.InJournal("far") or UO.InJournal("no ore") or UO.InJournal("cannot")))
wait(1000)
wend
next
end sub


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
Deathclaw
Дата 5.11.2006 - 18:31
*
Пользователя сейчас нет на форуме Детально о участнике

Орк
Пеон

Кол-во флуда: 141
Пред.: (0%) -----
Репутация: 11
Цитата
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"

попробуй замени на
Цитата
coords="waittargettile "+" -1 "+str(where_x)+" "+str(where_y+i)+" 0"


--------------------
  PM e-mail ICQ  
Top  
Azazello
Дата 5.11.2006 - 18:33
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Не прикольно, так он обкапывает все тайлы вокруг себя, а с -1 будет только из под себя копать! Могу еще дать скрипт на УОПилот тоже ниче!


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
Deathclaw
Дата 5.11.2006 - 18:35
*
Пользователя сейчас нет на форуме Детально о участнике

Орк
Пеон

Кол-во флуда: 141
Пред.: (0%) -----
Репутация: 11
Ооо давай только ПМкой а то тут темя Инжект или новую тему создай!


--------------------
  PM e-mail ICQ  
Top  
Azazello
Дата 18.11.2006 - 16:46
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Есть у кого нибудь раочий скрипт на фишинг с резкой и подъемом рыбы, сбором карт и защитой от элемов!


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
Azazello
Дата 7.12.2006 - 01:16
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Есть у кого скрипт на БС адаптированный под ВХ?


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
BiohazardIK
Дата 7.12.2006 - 13:06
*
Пользователя сейчас нет на форуме Детально о участнике

Эльф
Приручатель

Кол-во флуда: 287
Пред.: (60%) XXX--
Репутация: 17
У кого есть выложите. !!!
Помогите жаждущим)


--------------------
Коль спросят: "Кто такой Дали?" - скажи: "И не таких [censored]!"
TEMPORA MUTANTUR, ET NOS MUTAMUR IN ILLIS
  PM e-mail ICQ  
Top  
Azazello
Дата 7.12.2006 - 14:59
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Да все ныкают скрипты прям обидно sad.gif


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
BiohazardIK
Дата 7.12.2006 - 15:55
*
Пользователя сейчас нет на форуме Детально о участнике

Эльф
Приручатель

Кол-во флуда: 287
Пред.: (60%) XXX--
Репутация: 17
У кого есть скрипт на фишинг. Чтобы плавал на кораблике, облавливал все, и потом дальше плыл. confused_1.gif dribble.gif confused_1.gif


--------------------
Коль спросят: "Кто такой Дали?" - скажи: "И не таких [censored]!"
TEMPORA MUTANTUR, ET NOS MUTAMUR IN ILLIS
  PM e-mail ICQ  
Top  
Azazello
Дата 9.12.2006 - 07:25
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Есть у кого модуль который можно добавить в скрипт мининга чтобы он каждый раз ныкался в хайд


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
110viktor
Дата 9.12.2006 - 18:46
*
Пользователя сейчас нет на форуме Детально о участнике

Человек
Рожденный

Кол-во флуда: 7
Пред.: (0%) -----
Репутация: 3
вот тут полный скрипт на копку. сначала в хайд становиться выкапывает вокруг себя по 3 квадрата останавливаеться скидываешь если надо и снова запускаешь:)

###Piton4iK###
sub main()
while not uo.hidden()
uo.useskill("Hiding")
wait(8000)
wend
Var X
Var Y
Var dX
Var dY
For dX = -1 To 1
For dY = -1 To 1
X = UO.GetX() + dX
Y = UO.GetY() +dY
;UO.Print(STR(X))
;UO.Print(STR(Y))
;wait(200)
TryMining(X, Y)
wait(350)
Next
Next
UO.Playwav("C:\sound108.wav")
UO.Exec("terminate all")
end sub
#########################
#########################
#####################
Sub TryMining(X, Y)
Var Shovel = 0x0E85; тип лопаты ем копать (тут кирка)
Var LastMess
Var NM
DoMining:
Wait(1000)
UO.Exec("waittargettile 1339 " + STR(X) + " " + STR(Y) + " 1")
UO.UseType(Shovel)
UO.DeleteJournal()
Wait(100)
NM = 0
WaitMessage:
If NM > 200 Then
GoTo EndMining
EndIf
Wait(100)
LastMess = UO.Lastmessage()
If LastMess == "There is no ore here to mine." Then
GoTo EndMining
EndIf
If LastMess == "There is nothing here to mine for." Then
GoTo EndMining
EndIf
If LastMess == "You loosen some rocks but fail to fine any usable ore." Then
GoTo DoMining
EndIf
If LastMess == "That is too far away." Then
GoTo EndMining
EndIf
If LastMess == "You have no line" Then
GoTo EndMining
EndIf
If UO.InJournal("You loosen") > 0 Then
GoTo DoMining
EndIf
If LastMess == "You put the Iron Ore in your pack." Then
GoTo EndMining
EndIf
If LastMess == "You put the Bronze Ore in your pack." Then
GoTo EndMining
EndIf
If LastMess == "You put the Sterit Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Copper Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Gold Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Oceanite Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Austen Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Cosmic Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Azuron Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Merid Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Mystic Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Silver Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Drianite Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Night Ore in your pack." Then
GoTo DoMining
EndIf
If LastMess == "You put the Mytheril Ore in your pack." Then
GoTo DoMining
EndIf

NM = NM + 1
GoTo WaitMessage
EndMining:
End Sub


--------------------
Piton4iK
  PM e-mail  
Top  
Deathclaw
Дата 11.12.2006 - 05:58
*
Пользователя сейчас нет на форуме Детально о участнике

Орк
Пеон

Кол-во флуда: 141
Пред.: (0%) -----
Репутация: 11
Галимый скрипт, мне он ненравится! Слишком большой, даже его не пробовал smile.gif Вот этот имхо лучше rolleyes.gif
Код

sub minround()
VAR Kirka = '0x0E85'  ;Тип того чем будем копать
VAR MaxVes = 800  ; максимальнай вес минус 10-15 стоуов
VAR TileNum = '-1'  ; Номер тайла
VAR x, y, t, k
VAR MaxTime = 100  
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend
     k = 0
     repeat
        UO.DeleteJournal()
        t = UO.Timer()
        k = k + 1
        UO.CancelTarget()
        wait(300)
        UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
        UO.UseType( Kirka )
        repeat
           wait(300)
        until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
        If UO.Weight > MaxVes Then
           UO.Print(" Overweight!" )
           return
        Endif
     until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
  next
next
endsub



--------------------
  PM e-mail ICQ  
Top  
Azazello
Дата 11.12.2006 - 08:37
*
Пользователя сейчас нет на форуме Детально о участнике

Гном
Золотоискатель

Кол-во флуда: 137
Пред.: (20%) X----
Репутация: 0
Стремный копает вокруг и встает как дурак!


--------------------
Я не злопамятный, просто я злой и у меня хорошая память!
  PM e-mail ICQ  
Top  
BiohazardIK
Дата 12.12.2006 - 11:41
*
Пользователя сейчас нет на форуме Детально о участнике

Эльф
Приручатель

Кол-во флуда: 287
Пред.: (60%) XXX--
Репутация: 17
Люди выложите скрипт чтобы он нормально всю шахту обкапывал, или обкапывал те тайлы которые ты маркиш. При достижении максвеса он рекольнулся,выложил все в сундук, а потом дальше копал.


--------------------
Коль спросят: "Кто такой Дали?" - скажи: "И не таких [censored]!"
TEMPORA MUTANTUR, ET NOS MUTAMUR IN ILLIS
  PM e-mail ICQ  
Top  
110viktor
Дата 12.12.2006 - 13:21
*
Пользователя сейчас нет на форуме Детально о участнике

Человек
Рожденный

Кол-во флуда: 7
Пред.: (0%) -----
Репутация: 3
Цитата (BiohazardIK @ 12.12.2006 - 11:41)
Люди выложите скрипт чтобы он нормально всю шахту обкапывал, или обкапывал те тайлы которые ты маркиш. При достижении максвеса он рекольнулся,выложил все в сундук, а потом дальше копал.

доработаю скрипт на неделе...выложу. confused_1.gif


--------------------
Piton4iK
  PM e-mail  
Top  
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:

Опции темы Страницы: (7) [1] 2 3 ... Последняя » Ответить Новая тема Создать опрос