Yoko http://forum.yoko.com.ua/ |
|
Мапы по координатам. http://forum.yoko.com.ua/viewtopic.php?f=16&t=3191 |
Page 1 of 2 |
Author: | autopilot [ 2005-02-23 15:06:45 ] |
Post subject: | Мапы по координатам. |
Продам макрос на раскладку карт сокровищ по координатам. Цена 1кк Подробности в асе : 205480956 |
Author: | Goggy [ 2005-02-23 16:16:20 ] |
Post subject: | |
мдяяя.... дочего блин народ дошёл... ладно, я ради принципа когда время и возможность будет, напишу этот скриптик и скину! ЗЫ просто у мя щас шард в Шот Дауне |
Author: | autopilot [ 2005-02-23 16:24:16 ] |
Post subject: | |
Кидай .. с удовольствием взгляну.. а дошел я до продажи скриптов потому что очень гп нужны . ) |
Author: | I'm [ 2005-02-23 20:45:17 ] |
Post subject: | |
"Уникальная Акция"! Научившись юзать поиск вы можете непокупать этот чудо скрипт а найти! Скрипт 100% рабочий (там даже говорят куда тыкать надо:)) Crafted by Savage. Также обучившись этому уникальному навыку поиска вы открываете для себя новую вселенную уникальных скриптов (порой рабочих). Все также вы способный найти ответы на самые уникальные (ага все так и поверили) вопросы! Внимания для принятия участия в "Уникальной Акции" вам необходимо:
|
Author: | GimFlex [ 2005-02-23 20:49:53 ] |
Post subject: | |
вот что нашел я =) ################################################################################################# # "Ðàñøèôðîâêà êàðò" # ################################################################################################# # 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 #=> |
Author: | I'm [ 2005-02-23 20:59:09 ] |
Post subject: | |
Могу тебя разочаровать но это несовсем то Продолжаем искать |
Author: | GimFlex [ 2005-02-23 21:09:35 ] |
Post subject: | |
так я знаю что не то |
Author: | GimFlex [ 2005-02-23 21:12:14 ] |
Post subject: | |
нашел буквально за 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 |
Author: | I'm [ 2005-02-23 21:12:28 ] |
Post subject: | |
Так ищи А как найдеш никому неговори где взял |
Author: | I'm [ 2005-02-23 21:14:09 ] |
Post subject: | |
Черт =) Нука спрять, еще не все прошли мини-квест а ты уже ответ всем дал |
Author: | GimFlex [ 2005-02-23 21:18:45 ] |
Post subject: | |
I'm wrote: Черт =)
Нука спрять, еще не все прошли мини-квест а ты уже ответ всем дал так наоборот лучше значит у меня у одного будет рар фулл |
Author: | I'm [ 2005-02-23 21:24:59 ] |
Post subject: | |
Лано с меня леденец Пряч скрипт ты людям стимул портиш искать |
Author: | GimFlex [ 2005-02-23 21:32:33 ] |
Post subject: | |
ниче ниче скоро новый квэст по поиску придумаем =) |
Author: | I'm [ 2005-02-23 21:50:19 ] |
Post subject: | |
Тада замени скрипт ссылкой на топик в котором нашел его Какже другие искать будут =( |
Author: | GimFlex [ 2005-02-24 09:27:39 ] |
Post subject: | |
http://yoko.netroof.net/forum/viewtopic ... hlight=map ловите =) |
Author: | I'm [ 2005-02-24 09:30:41 ] |
Post subject: | |
Так я про то чтобы скрипт ссылокой заменить а не добавить еще и ссулку |
Author: | GimFlex [ 2005-02-24 17:31:03 ] |
Post subject: | |
I'm wrote: Так я про то чтобы скрипт ссылокой заменить а не добавить еще и ссулку
хыхы не понял |
Author: | I'm [ 2005-02-25 18:38:24 ] |
Post subject: | |
Да лано позн уже |
Author: | autopilot [ 2005-02-25 20:54:01 ] |
Post subject: | |
Покупаем-Покупаем ! |
Author: | I'm [ 2005-02-25 20:56:23 ] |
Post subject: | |
Ой насмешил Помоему все уже нашли то что искали |
Page 1 of 2 | All times are UTC+02:00 |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |