Yoko

All sides of Injection
It is currently 2024-03-28 15:57:49

All times are UTC+02:00




Post new topic  Reply to topic  [ 28 posts ]  Go to page 1 2 Next
Author Message
PostPosted: 2005-02-23 15:06:45 
Offline

Joined: 2004-07-25 05:16:04
Posts: 57
Продам макрос на раскладку карт сокровищ по координатам.
Цена 1кк
Подробности в асе : 205480956


Top
   
 Post subject:
PostPosted: 2005-02-23 16:16:20 
Offline
User avatar

Joined: 2004-11-07 01:22:35
Posts: 291
Location: Черкассы
мдяяя....
дочего блин народ дошёл... :?
ладно, я ради принципа когда время и возможность будет, напишу этот скриптик и скину! :|





ЗЫ просто у мя щас шард в Шот Дауне :mrgreen:


Top
   
 Post subject:
PostPosted: 2005-02-23 16:24:16 
Offline

Joined: 2004-07-25 05:16:04
Posts: 57
Кидай .. с удовольствием взгляну.. а дошел я до продажи скриптов потому что очень гп нужны . )


Top
   
 Post subject:
PostPosted: 2005-02-23 20:45:17 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
"Уникальная Акция"!
Научившись юзать поиск вы можете непокупать этот чудо скрипт а найти! :lol:
Скрипт 100% рабочий (там даже говорят куда тыкать надо:)) Crafted by Savage.
Также обучившись этому уникальному навыку поиска вы открываете для себя новую вселенную уникальных скриптов (порой рабочих).
Все также вы способный найти ответы на самые уникальные (ага все так и поверили) вопросы!
Внимания для принятия участия в "Уникальной Акции" вам необходимо:
  • Поднять свои светлы очи.
  • Найти на любой странице форума в его верхней части кнопку "Поиск"/"Search"
  • Нажать на неё всего 1 раз!!!
  • Вписать в строке поиска то что вам надо
  • И нажать легендарную кнопку найти!


Top
   
 Post subject:
PostPosted: 2005-02-23 20:49:53 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
вот что нашел я =)

#################################################################################################
# "Ðàñøèôðîâêà êàðò" #
#################################################################################################
# http://www.drw.ru #
#################################################################################################
# Ïîñëåäíåå èçìåíåíèå 14.03.2004 #
#################################################################################################
# (c) AGRS, 2004 #
#################################################################################################

#################################################################################################
# >>> Êîíñòàíòû #
#################################################################################################

Var SrcCont = 0x40072864 # SERIAL Êîíòåéíåð-èñòî÷íèê
Var DstCont = 0x401C96C9 # SERIAL Êîíòåéíåð-ïðèåìíèê
Var PackCont = 0x400B9D61 # SERIAL Ïàê
Var MapType = 0x14EB # TYPE Êàðòà
Var MapColor = 0x0000 # COLOR Êàðòà
Var HideSkill = "Stealth"
Var Lagaet = "Ohuenno" # STR Åñëè = "Ohuenno", òî äîïîëíèòåëüíàÿ ïðîâåðêà íà ëàãè

#################################################################################################
# >>> Çàïóñê #
#################################################################################################

Sub Main()
While true
LoadItems(1, MapType, MapColor, SrcCont, PackCont)
CheckLag()
UO.FindType(STR(MapType), STR(MapColor), STR(PackCont))
If UO.FindCount()>0 Then
UO.UseType(STR(MapType))
Wait(300)
EndIf
MoveAllItems(MapType, MapColor, PackCont, DstCont)
Wend
End Sub

Sub Main2()
var L1 = 0
var L2 = 0
var L3 = 0
var L4 = 0
var L5 = 0
var TOUT
Repeat
UO.FindType(STR(MapType), STR(MapColor), STR(SrcCont))
If UO.FindCount()>0 Then
UO.SetReceivingContainer("backpack")
UO.Grab("1", "finditem")
CheckLag()
UO.UseObject("finditem")
TOUT=0
Repeat
Wait(250)
TOUT=TOUT+250
Until UO.InJournal("map is level") or TOUT>500
Wait(800)
UO.Click("finditem")
Wait(800)
If UO.InJournal("1 level") Then
UO.MoveItem("finditem", "1", STR(DstCont), "20", "30", "0")
L1=L1+1
EndIf
If UO.InJournal("2 level") Then
UO.MoveItem("finditem", "1", STR(DstCont), "40", "45", "0")
L2=L2+1
EndIf
If UO.InJournal("3 level") Then
UO.MoveItem("finditem", "1", STR(DstCont), "60", "60", "0")
L3=L3+1
EndIf
If UO.InJournal("4 level") Then
UO.MoveItem("finditem", "1", STR(DstCont), "80", "75", "0")
L4=L4+1
EndIf
If UO.InJournal("5 level") Then
UO.MoveItem("finditem", "1", STR(DstCont), "100", "90", "0")
L5=L5+1
EndIf
CheckLag()
UO.FindType(STR(MapType), STR(MapColor), STR(SrcCont))
EndIf
UO.TextClear()
UO.TextPrint("Level1="+STR(L1))
UO.TextPrint("Level2="+STR(L2))
UO.TextPrint("Level3="+STR(L3))
UO.TextPrint("Level4="+STR(L4))
UO.TextPrint("Level5="+STR(L5))
Until UO.FindCount()<1
End Sub

#################################################################################################
# >>> Ñåðâèñíûå ôóíêöèè #
#################################################################################################

#=>
Sub LoadItems(fmiItemCount, fmiItemType, fmiItemColor, fmiSrcContainerSerial, fmiDstContainerSerial)
Var fmiToGrab
If CountOf(fmiItemType, fmiItemColor, fmiDstContainerSerial)<fmiItemCount Then
UO.SetReceivingContainer(STR(fmiDstContainerSerial))
Repeat
CheckLag()
fmiToGrab=fmiItemCount-CountOf(fmiItemType, fmiItemColor, fmiDstContainerSerial)
UO.FindType(STR(fmiItemType), STR(fmiItemColor), STR(fmiSrcContainerSerial))
If UO.FindCount()>0 Then
UO.Grab(STR(fmiToGrab), 'finditem')
Wait(300)
EndIf
If Lagaet=="Ohuenno" Then
CheckLag()
EndIf
Until CountOf(fmiItemType, fmiItemColor, fmiSrcContainerSerial)==0 or CountOf(fmiItemType, fmiItemColor, fmiDstContainerSerial)>=fmiItemCount
UO.UnsetReceivingContainer()
End If
Return CountOf(fmiItemType, fmiItemColor, fmiDstContainerSerial)
End Sub

Sub MoveAllItems(fmiItemType, fmiItemColor, fmiSrcContainerSerial, fmiDstContainerSerial)
UO.SetReceivingContainer(STR(fmiDstContainerSerial))
Repeat
CheckLag()
UO.FindType(STR(fmiItemType), STR(fmiItemColor), STR(fmiSrcContainerSerial))
If UO.FindCount()>0 Then
UO.Grab(0, 'finditem')
Wait(300)
EndIf
If Lagaet=="Ohuenno" Then
CheckLag()
EndIf
Until UO.FindCount()<1
UO.UnsetReceivingContainer()
End Sub

Sub CountOf(fcoItemType, fcoItemColor, fcoContainerSerial)
Var fcoFindCount = 0
Var fcoResult = 0
UO.FindType(STR(fcoItemType), STR(fcoItemColor), STR(fcoContainerSerial))
fcoFindCount=UO.FindCount()
If fcoFindCount==1 Then
fcoResult=UO.GetQuantity('finditem')
EndIf
If fcoFindCount>1 Then
While fcoFindCount>0
UO.FindType(STR(fcoItemType), STR(fcoItemColor), STR(fcoContainerSerial))
fcoResult=fcoResult+UO.GetQuantity('finditem')
UO.Ignore('finditem', 'on')
fcoFindCount=fcoFindCount-1
Wend
UO.IgnoreReset()
EndIf
Return fcoResult
End Sub

Sub Hide()
While Not UO.Hidden()
UO.DeleteJournal()
UO.UseSkill(HideSkill)
Repeat
Wait(100)
Until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide')
Wend
End Sub

Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
Wait(100)
Until UO.InJournal('backpack')
CheckSave()
End Sub

Sub CheckSave()
UO.DeleteJournal()
If UO.InJournal('save has been') then
Wait(10000)
EndIf
UO.DeleteJournal()
End Sub
#=>


Top
   
 Post subject:
PostPosted: 2005-02-23 20:59:09 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Могу тебя разочаровать но это несовсем то :D
Продолжаем искать :)


Top
   
 Post subject:
PostPosted: 2005-02-23 21:09:35 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
так я знаю что не то 8)


Top
   
 Post subject:
PostPosted: 2005-02-23 21:12:14 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
нашел буквально за 3 секунды в поиске для тех кто в этом новичок ищем так в слове набираем map в авторе savage

###############################################################
#===---====---===---= Sort Treasure Map =---=---=---=---=---==#
# Scripted by Savage (c) 2004 ICQ:33336141 #
#"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""#
sub CartSort()
; VAR f=file("maps.txt")
VAR Exit, Exit2, Buffer, Buffer2, i, Line, MapX, MapY
VAR Index=1, MapSerial, BagSerial, MatchFound
VAR StepRound=40 ; razbros koordinat
VAR WaitTime=2000 ; 2 sec pauza

DIM X[255],Y[255],Bag[255]

; f.Create()
; f.Open()

UO.Print('Vibery meshok s kartamy!')
UO.AddObject('SourceBag')
While UO.Targeting()==2
wait(500)
Wend
UO.UseObject('SourceBag')

UO.Print('Vibery portfel dlya kart!')
UO.AddObject('ReceiveBag')
While UO.Targeting()==2
wait(500)
Wend
UO.UseObject('ReceiveBag')

UO.Print('Vibery portfel s pustimi meshkami i runami!')
UO.AddObject('SkladBag')
While UO.Targeting()==2
wait(500)
Wend
UO.UseObject('SkladBag')


UO.IgnoreReset()
Exit=0
While Exit<>1
UO.FindType('0x0E76',-1,'ReceiveBag') ; meshok
IF UO.GetQuantity('finditem')>0 Then
Bag[Index]=UO.GetSerial('finditem')
UO.UseObject(Bag[Index])
wait(WaitTime)
UO.FindType('0x1F14',-1,Bag[Index]); runa
IF UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Click('finditem')
Repeat
Wait(500)
Until UO.InJournal("Rune to")
Line=UO.InJournal("Rune to")-1
Buffer=UO.Journal(Line)

Buffer2=""
Exit2=0
i=8
While Exit2<>1
If Buffer[i]<>":" Then
Buffer2=Buffer2+Buffer[i]
Else
Exit2=1
Endif
i=i+1
Wend
MapX=VAl(Buffer2)

Buffer2=""
Exit2=0
While Exit2<>1
If Buffer[i]<>"" Then
Buffer2=Buffer2+Buffer[i]
Else
Exit2=1
Endif
i=i+1
Wend
MapY=VAl(Buffer2)

X[Index]=MapX
Y[Index]=MapY
UO.Ignore(Bag[Index])
Else
UO.MoveItem(Bag[Index],'1','SkladBag')
wait(WaitTime)
Index=Index-1
Endif
Index=Index+1
Else
Exit=1
Endif

Wend


Exit=0
While Exit<>1
UO.FindType('0x14EB',-1,'SourceBag')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.MoveItem('finditem','1','backpack')
wait(WaitTime)
UO.UseObject('finditem')
MapSerial=UO.GetSerial('finditem')
Repeat
wait(500)
Until UO.InJournal("Map opened")
Line=UO.InJournal("Map opened")-1
Buffer=UO.Journal(Line)

Buffer2=""
Exit2=0
i=15
While Exit2<>1
If Buffer[i]<>":" Then
Buffer2=Buffer2+Buffer[i]
Else
Exit2=1
Endif
i=i+1
Wend
MapX=VAl(Buffer2)

Buffer2=""
Exit2=0
While Exit2<>1
If Buffer[i]<>"" Then
Buffer2=Buffer2+Buffer[i]
Else
Exit2=1
Endif
i=i+1
Wend
MapY=VAl(Buffer2)

i=1
Exit2=0
MatchFound=0
While i<Index AND Exit2<>1
If X[i]-StepRound<MapX AND X[i]+StepRound>MapX Then
If Y[i]-StepRound<MapY AND Y[i]+StepRound>MapY Then
BagSerial=Bag[i]
MatchFound=1
Exit2=1
Endif
EndIf
i=i+1
Wend

If MatchFound Then
UO.MoveItem(MapSerial,'1',BagSerial)
wait(WaitTime)
Else
UO.FindType('0x0E76',-1,'SkladBag') ; meshok
IF UO.GetQuantity('finditem')>0 Then
UO.MoveItem('finditem','1','ReceiveBag')
Bag[Index]=UO.GetSerial('finditem')
X[Index]=MapX
Y[Index]=MapY
wait(WaitTime)
UO.FindType('0x1F14',-1,'SkladBag'); runa
IF UO.GetQuantity('finditem')>0 Then
UO.MoveItem('finditem','1',Bag[Index])
UO.UseObject('finditem')
Repeat
Wait(500)
Until UO.InJournal("What is the new name")
UO.Say(STR(MapX)+":"+STR(MapY))
wait(WaitTime)
UO.MoveItem(MapSerial,'1',Bag[Index])
wait(WaitTime)
Else
Exit=1
UO.Print("Error! Kon4ilis pustie runy!")
Endif
Index=Index+1
Else
Exit=1
UO.Print("Error! Kon4ilis pustie sumki!")
Endif
Endif
; UO.Print(STR(MapX)+" "+STR(MapY))
; f.WriteLn(STR(MapX)+" "+STR(MapY))
wait(WaitTime)
Else
Exit=1
Endif
Wend

; f.Close()
UO.Print("Done!!!")
end sub


Top
   
 Post subject:
PostPosted: 2005-02-23 21:12:28 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Так ищи :)
А как найдеш никому неговори где взял :lol:


Top
   
 Post subject:
PostPosted: 2005-02-23 21:14:09 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Черт =)
Нука спрять, еще не все прошли мини-квест а ты уже ответ всем дал :lol:


Top
   
 Post subject:
PostPosted: 2005-02-23 21:18:45 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
I'm wrote:
Черт =)
Нука спрять, еще не все прошли мини-квест а ты уже ответ всем дал :lol:


так наоборот лучше значит у меня у одного будет рар фулл 8)


Top
   
 Post subject:
PostPosted: 2005-02-23 21:24:59 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Лано с меня леденец :lol:
Пряч скрипт ты людям стимул портиш искать :lol:


Top
   
 Post subject:
PostPosted: 2005-02-23 21:32:33 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
ниче ниче скоро новый квэст по поиску придумаем =)


Top
   
 Post subject:
PostPosted: 2005-02-23 21:50:19 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Тада замени скрипт ссылкой на топик в котором нашел его :lol:
Какже другие искать будут =(


Top
   
 Post subject:
PostPosted: 2005-02-24 09:27:39 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
http://yoko.netroof.net/forum/viewtopic ... hlight=map

ловите =)


Top
   
 Post subject:
PostPosted: 2005-02-24 09:30:41 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Так я про то чтобы скрипт ссылокой заменить а не добавить еще и ссулку :)


Top
   
 Post subject:
PostPosted: 2005-02-24 17:31:03 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
I'm wrote:
Так я про то чтобы скрипт ссылокой заменить а не добавить еще и ссулку :)


хыхы не понял 8)


Top
   
 Post subject:
PostPosted: 2005-02-25 18:38:24 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Да лано позн уже :)


Top
   
 Post subject:
PostPosted: 2005-02-25 20:54:01 
Offline

Joined: 2004-07-25 05:16:04
Posts: 57
Покупаем-Покупаем ! :)


Top
   
 Post subject:
PostPosted: 2005-02-25 20:56:23 
Offline
Expert!
User avatar

Joined: 2004-10-15 22:38:04
Posts: 1396
Location: Moscow City.
Ой насмешил ;)
Помоему все уже нашли то что искали :lol:


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 28 posts ]  Go to page 1 2 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 5 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