Reklama
Strona 8 z 110 PierwszaPierwsza ... 6789101858108 ... OstatniaOstatnia
Pokazuje wyniki od 106 do 120 z 1640

Temat: Szukasz skryptu? Zajrzyj tutaj!

  1. #106
    Avatar Yakataka Makafaka
    Data rejestracji
    2007
    Położenie
    Daleko:)
    Posty
    168
    Siła reputacji
    18

    Domyślny

    Szukam skryptu dzięki któremu moja postać która będzie miała full mp będzie wpisywała zawszę exurke. Mam BlackD i nigdzie nie widzę opcji gdzie takie coś ustawić więc myślę że skrypt potrzebny:)

  2. #107
    Avatar Shilen
    Data rejestracji
    2008
    Położenie
    Łuków
    Posty
    245
    Siła reputacji
    17

    Domyślny

    @UP

    Weź koleś.... "Mana trainer" - słyszałeś o takim czymś?? Jak nie umiesz się BlackD obsługiwać to idź na NG...


    Ponawiam mój request:

    Ja natomiast szukam skryptu, który ma działanie następujące(Tibia Bot NG):

    Gdy widzi skulla/rsa bądź przyjmie jakieś obrażenia, postać idzie do określonego waypointu ( tu: do pz ).

    I szukam skryptu na używanie potionów. Odpowiedzi proszę na pw

  3. #108
    Xyrdion

    Domyślny

    Cytuj Shilen napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    #UP

    Weź koleś.... "Mana trainer" - słyszałeś o takim czymś?? Jak nie umiesz się BlackD obsługiwać to idź na NG...


    Ponawiam mój request:

    Ja natomiast szukam skryptu, który ma działanie następujące(Tibia Bot NG):

    Gdy widzi skulla/rsa bądź przyjmie jakieś obrażenia, postać idzie do określonego waypointu ( tu: do pz ).

    I szukam skryptu na używanie potionów. Odpowiedzi proszę na pw
    Jezeli bym napisal na pw to by modek mogl pomyslec ze nie dostales odp i dostalbym warna.

    Skrypt na poty : Const
    MinHealth = 100 // ile hp
    NumberOfVialsToDrink = 1 // zostaw jak jest
    IDPotion = 266 // ID pota
    Delay = 0 // zostaw jak jest

    while not terminated do
    begin
    UpdateWorld;
    if Self.Health <= MinHealth then
    begin
    for i := 1 to NumberOfVialsToDrink do
    begin
    if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break;
    Self.Containers.UseItemWithSelf(IDPotion);
    Sleep(Delay*1000);
    end;
    end;
    Sleep(500);
    end;


    Sam prosze o skrypt do Blackd Proxy. Podobno jest taki skrypt ze char sam zaczyna expic bije lvl zarabia gold kupuje eq dalej expi wbija 8 lvl podchodzi do oracle i loga. Prosze o niego :pp

  4. Reklama
  5. #109
    artix1234

    Domyślny

    #up

    Kod :
    #####Config#####
    fastExiva _bugslevel = 6
    fastExiva _branchtries = 4
    ################
    onGMpause
    fastExiva < B4 14 $hex-tibiastr:Advanced Rook to Main v2.1 Olaf Pozdrawia.$
    waitX 2
    fastExiva < B4 14 $hex-tibiastr:Script created by Darkmystery (Jesse), please give me credit if you ***** this script. ^^$
    waitX 1
    fastExiva < B4 12 $hex-tibiastr:Chapter I: The tutorial.$
    move 32023,32273,7
    move 32025,32273,6
    move 32032,32273,6
    fastExiva > A2 $hex-idofname:Santiago$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    fastExiva > A2 00 00 00 00
    move 32034,32279,6
    move 32032,32279,5
    useItem 32034,32276,5
    waitX 1
    fastExiva > 0F 00 78 FF FF 40 00 00 EA 0D 00 FF FF 04 00 00 01
    move 32032,32279,5
    move 32034,32279,6
    move 32032,32273,6
    fastExiva > A2 $hex-idofname:Santiago$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    fastExiva > A2 00 00 00 00
    move 32036,32278,6
    move 32036,32277,7
    move 32038,32274,7
    move 32038,32273,8
    move 32034,32278,8
    useItem 32033,32278,8
    waitX 1
    fastExiva > 0F 00 78 FF FF 06 00 00 68 0B 00 22 7D 16 7E 08 01
    move 32034,32284,8
    fastExiva > 0A 00 82 23 7D 1D 7E 08 46 1E 01 00
    :roach
    setMeleeKill Cockroach
    setLoot CA 1E
    IfEnoughItemsGoto CA 1E,3,$nlineoflabel:deadroach$
    move 32035,32285,9
    gotoScriptLine $nlineoflabel:roach$
    :deadroach
    resetLoot
    resetKill
    move 32035,32285,9
    move 32035,32286,8
    move 32038,32273,8
    move 32038,32274,7
    move 32036,32277,7
    move 32036,32278,6
    move 32032,32273,6
    fastExiva > A2 $hex-idofname:Santiago$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade no
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    fastExiva > 0A 00 82 FF FF 06 00 00 CD 1E 00 01
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    fastExiva > A2 00 00 00 00
    move 32045,32271,6
    move 32047,32271,7
    move 32057,32270,7
    fastExiva > A2 $hex-idofname:Zirella$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade alright
    fastExiva > A2 00 00 00 00
    fastExiva < B4 12 $hex-tibiastr:This part is tricky since other players may steal your branches.$
    fastExiva testding
    fastExiva _tries = 0
    :branch
    move 32066,32282,7
    waitX 2
    fastExiva > 0A 00 82 43 7D 19 7E 07 49 1E 01 00
    waitX 1
    fastExiva > 0F 00 78 42 7D 1A 7E 07 48 1E 02 41 7D 16 7E 07 01
    waitX 1
    fastExiva > 0F 00 78 42 7D 1A 7E 07 48 1E 01 41 7D 16 7E 07 01
    move 32065,32277,7
    waitX 1
    fastExiva > 0F 00 78 41 7D 16 7E 07 48 1E 01 3E 7D 10 7E 07 01
    waitX 1
    fastExiva > 0F 00 78 41 7D 16 7E 07 48 1E 02 3E 7D 10 7E 07 01
    move 32063,32273,7
    fastExiva > 11 00 83 3E 7D 10 7E 07 48 1E 01 3E 7D 0F 7E 07 5C 1E 01
    waitX 1
    fastExiva > 11 00 83 3E 7D 10 7E 07 48 1E 02 3E 7D 0F 7E 07 5C 1E 01
    fastExiva _tries = $numericalexp:{$_tries$}+1$
    IfTrue ($_tries$#number<#$_branchtries$) Goto $nlineoflabel:branch$
    move 32057,32270,7
    fastExiva > A2 $hex-idofname:Zirella$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    fastExiva > A2 00 00 00 00
    move 32058,32267,7
    useItem 32058,32266,7
    move 32058,32265,7
    fastExiva > 0A 00 82 3B 7D 09 7E 07 4D 1E 02 00
    waitX 2
    fastExiva > 0F 00 78 FF FF 06 00 00 CB 1E 00 FF FF 40 00 00 01
    waitX 1
    fastExiva > 0F 00 78 FF FF 06 00 00 CB 1E 00 FF FF 40 00 00 01
    useItem 32058,32266,7
    move 32069,32266,7
    move 32070,32266,8
    move 32067,32265,8
    useItem 32067,32264,8
    waitX 1
    fastExiva > 0F 00 78 FF FF 06 00 00 CC 1E 00 FF FF 40 00 00 01
    move 32070,32266,8
    move 32070,32267,7
    move 32086,32265,7
    fastExiva > A2 $hex-idofname:Carlos$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    fastExiva > 08 00 D3 82 00 00 4F 4D 00 00
    sayMessage hi
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade yes
    fastExiva > A2 00 00 00 00
    :killcuteanimals
    setLoot F9 0D
    setMeleeKill Rabbit
    setMeleeKill Deer
    IfEnoughItemsGoto F9 0D,1,$nlineoflabel:deadanimals$
    move 32094,32266,7
    IfEnoughItemsGoto F9 0D,1,$nlineoflabel:deadanimals$
    move 32082,32260,7
    gotoScriptLine $nlineoflabel:killcuteanimals$
    :deadanimals
    setLootOff
    resetLoot
    resetKill
    move 32086,32265,7
    fastExiva > A2 $hex-idofname:Carlos$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade trade
    waitX 1
    fastExiva > 7B F9 0D 00 $numbertohex1:{$countitems:F9 0D$}$
    waitX 1
    sayInTrade ready
    fastExiva > A2 00 00 00 00
    waitX 1
    fastExiva > 0F 00 78 FF FF 06 00 00 D7 0B 00 FF FF 40 00 00 $numbertohex1:{$countitems:D7 0B$}$
    waitX 1
    fastExiva > 0F 00 78 FF FF 40 00 02 81 0D 02 FF FF 06 00 00 01
    waitX 1
    fastExiva > 0F 00 78 FF FF 40 00 01 BB 0B 01 FF FF 0A 00 00 01
    move 32075,32258,7
    move 32075,32256,6
    move 32075,32249,6
    move 32075,32246,7
    move 32087,32226,7
    fastExiva < B4 12 $hex-tibiastr:Chapter II: The food collecting.$
    :food
    setMeleeKill Deer
    setMeleeKill Rabbit
    setMeleeKill Sheep
    setLootOn
    setLoot F9 0D
    setLoot 0B 0E
    setLoot FE 0D
    move 32087,32216,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32079,32216,7
    fastExiva > 0A 00 82 4E 7D D8 7D 07 81 08 01 01
    :soldfood
    move 32065,32209,7
    IfTrue ($mycap$#number<=#10000) Goto $nlineoflabel:sellfoodfence$
    move 32074,32219,7
    fastExiva > 0A 00 82 4A 7D DC 7D 07 83 08 02 01
    move 32075,32233,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32084,32239,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32096,32213,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32113,32241,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32110,32248,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32098,32246,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    move 32097,32213,7
    IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
    gotoScriptLine $nlineoflabel:food$
    :sellfoodfence
    fastExiva > 0A 00 82 43 7D CE 7D 07 83 08 01 01
    :sellfood
    move 32048,32205,7
    fastExiva > A2 $hex-idofname:Willie$
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade trade
    waitX 1
    IfFewItemsGoto FE 0D,1,$nlineoflabel:noham$
    fastExiva > 7B FE 0D 00 $numbertohex1:{$countitems:FE 0D$}$
    waitX 1
    :noham
    IfFewItemsGoto F9 0D,1,$nlineoflabel:nomeat$
    fastExiva > 7B F9 0D 00 $numbertohex1:{$countitems:F9 0D$}$
    waitX 1
    :nomeat
    IfFewItemsGoto 0B 0E,1,$nlineoflabel:nocarrot$
    fastExiva > 7B 0B 0E 00 $numbertohex1:{$countitems:0B 0E$}$
    waitX 1
    :nocarrot
    sayInTrade bye
    stackItems
    fastExiva > A2 00 00 00 00
    IfEnoughItemsGoto D7 0B,66,$nlineoflabel:eq$
    move 32067,32205,7
    fastExiva > 0A 00 82 43 7D CE 7D 07 83 08 01 01
    gotoScriptLine $nlineoflabel:soldfood$
    :eq
    resetLoot
    resetKill
    fastExiva < B4 12 $hex-tibiastr:Chapter III: The art of trading.$
    move 32097,32205,7
    move 32107,32203,7
    waitX 2
    fastExiva > 0F 00 78 FF FF 04 00 00 EA 0D 00 6B 7D CB 7D 07 01
    waitX 1
    fastExiva > 0F 00 78 FF FF 05 00 00 C6 0C 00 6B 7D CB 7D 07 01
    waitX 1
    fastExiva > 0F 00 78 FF FF 06 00 00 81 0D 00 6B 7D CB 7D 07 01
    waitX 1
    fastExiva > 0F 00 78 FF FF 0A 00 00 BB 0B 00 FF FF 40 00 00 01
    waitX 1
    sayMessage hi
    waitX 1
    sayInTrade trade
    waitX 1
    fastExiva > 07 00 7A C9 0C 00 01 00 00
    waitX 1
    sayInTrade bye
    move 32110,32208,7
    move 32110,32206,6
    move 32107,32207,6
    waitX 2
    sayMessage hi
    waitX 1
    sayInTrade trade
    waitX 1
    fastExiva > 07 00 7A 54 0D 00 01 00 00
    waitX 1
    fastExiva > 07 00 7A E7 0D 00 01 00 00
    waitX 1
    fastExiva > 07 00 7A 33 0D 00 01 00 00
    waitX 1
    IfFewItemsGoto D7 0B,12,$nlineoflabel:nohelmet$
    fastExiva > 07 00 7A 1B 0D 00 01 00 00
    waitX 1
    :nohelmet
    sayInTrade bye
    move 32110,32206,6
    move 32110,32208,7
    move 32097,32205,7
    fastExiva < B4 12 $hex-tibiastr:Chapter IV: The hunting.$
    :entercave
    move 32060,32174,7
    fastExiva > 0A 00 82 3C 7D AD 7D 07 B3 01 01 01
    move 32059,32172,8
    move 32059,32171,9
    :hunt
    setMeleeKill Rat
    setMeleeKill Bug
    setMeleeKill Cave Rat
    setLoot D7 0B
    move 32050,32161,9
    move 32050,32160,9
    move 32050,32159,10
    move 32050,32156,10
    move 32050,32155,11
    move 32035,32156,11
    move 32025,32160,11
    move 32014,32161,11
    move 32008,32174,11
    move 31993,32177,11
    move 31985,32167,11
    move 31984,32147,11
    move 31983,32138,11
    move 31996,32132,11
    move 32012,32142,11
    IfTrue ($mylevel$#number<#$_bugslevel$) Goto $nlineoflabel:nobugs$
    move 32011,32153,11
    move 32001,32154,11
    move 31991,32145,11
    move 31986,32152,11
    move 31986,32153,10
    move 31978,32154,10
    move 31977,32154,11
    move 31979,32154,11
    move 31979,32153,12
    move 31979,32141,12
    move 31980,32141,13
    move 31984,32136,13
    move 31984,32137,12
    move 31983,32129,12
    move 31984,32135,12
    move 31984,32136,13
    move 31980,32141,13
    move 31980,32142,12
    move 31979,32153,12
    move 31979,32154,11
    move 31977,32154,11
    move 31977,32155,10
    move 31986,32153,10
    move 31986,32152,11
    :nobugs
    move 32023,32153,11
    move 32027,32148,11
    move 32047,32155,11
    move 32050,32155,11
    move 32050,32156,10
    move 32050,32159,10
    move 32050,32160,9
    IfEnoughItemsGoto D7 0B,500,$nlineoflabel:leavecave$
    IfTrue ($myexp$#number>#6000) Goto $nlineoflabel:leavecave$
    gotoScriptLine $nlineoflabel:hunt$
    :leavecave
    move 32059,32171,9
    move 32060,32173,8
    move 32060,32174,7
    :deposit
    move 32096,32191,7
    move 32096,32191,8
    move 32117,32190,8
    sayMessage hi
    waitX 1
    sayInTrade deposit all
    waitX 1
    sayInTrade yes
    waitX 1
    sayInTrade balance
    waitX 1
    sayInTrade bye
    move 32096,32191,8
    move 32096,32191,7
    IfTrue ($myexp$#number>#6000) Goto $nlineoflabel:cya$
    gotoScriptLine $nlineoflabel:entercave$
    :cya
    fastExiva < B4 12 $hex-tibiastr:Chapter V: The End.$
    fastExiva < B4 14 $hex-tibiastr:Thanks for using this script, money can be found at the bank.$
    fastExiva testding
    fastExiva close









    Potrzebuje skryptu, zeby ng chodzilo po burnach oraz jezeli postac ma mniej niz xxx mana potionow to ma zabic wszystko dookola i lognac.
    Ostatnio zmieniony przez artix1234 : 27-12-2008, 22:19

  6. #110
    Polako

    Domyślny Szukalem wszedzie ;/

    tibiaBot NG 4.6.9
    szukam scryptu do uzupelniania spearow przy treningu tylko chodzi o to ze bag ze spirami lezy na ziemi do tego anty logout i jedzenie ps bicie ciagle 1 potworka Trainer
    (nie chodzi o rl tibie dlatego numery itemow dozucam)
    spear 3277
    bag 2853
    Meat 3577

    szukalem wszedzie z gory dzieki

  7. #111
    Avatar Lunki
    Data rejestracji
    2008
    Wiek
    22
    Posty
    982
    Siła reputacji
    18

    Domyślny

    Potrzebuje skrypt NG, w którym bot zamienia gold coins na platinum coins potem jeszcze grupuje, a jeżeli będzie 100 platinum coins to zamieni na 1 crystal coin :-) Jeżeli była już taka prośba to proszę o link do posta, a ten usunąć.
    We are flying at an altitude of 39,000 feet

  8. Reklama
  9. #112
    Avatar Teron Daja
    Data rejestracji
    2007
    Posty
    105
    Siła reputacji
    18

    Domyślny

    up proszę nie sprawdzałęm ale powinien działać
    var

    Kod :
    Coins: integer;
      Finished: boolean;
    
    function GetCreatureByName(Name: string): TCreature;
    var
      x: integer;
    begin
      Result := nil;
      for x := 0 to Creatures.Count - 1 do
      begin
        if x >= Creatures.Count then Break;
        if Creatures.Creature[x].Name = Name then
        begin
          Result := Creatures.Creature[x];
          Exit;
        end;
      end;
    end;
    
    procedure Event_Message(Channel: integer; Name, Text: String);
    begin
      UpdateWorld;
      Creature := GetCreatureByName(Name);
      if Creature = nil then Exit;
      if Creature.NPC then
      begin
        if Pos('platinum', Text) <> 0 then
        begin
          Self.Say(IntToStr(Coins));
          Sleep(1000);
          Self.Say('yes');
          Sleep(1000);
          Self.Say('bye');
          Finished := True;
        end;
      end;
    end;
    
    procedure Event_Notice(Text: String);
    begin
      if Pos('gold coins', Text) = 0 then Exit;
      Delete(Text, 1, 13);
      Coins := IntToStr(Copy(Text, 1, Pos(' ', Text) - 1)) div 100;
      if Coins <> 0 then
      begin
        Self.Say('hi');
        Sleep(1000);
        Self.Say('change gold');
      end;
    end;
    
    begin
      Finished := False;
      UpdateWorld;
      Self.Containers.UseItemWithSelf(3031);
      while ((not Terminated) and (not Finished)) do
      begin
        ProcessEvents;
        Sleep(100);
      end;
    end;

    potrzebuje skrypta na ng lub black proxy aby postać jak skończą się jej akmienie na trolach ab wracała do dp i brała kamienie

  10. #113
    Nidaime

    Domyślny

    Potrzebuje 3 scrypty:

    1.
    Na trolle pod ab,
    z depositerem i otwieraniem drzwi.
    2.
    Na chikeny w nort porcie(zeby mi zbieral),

    3.
    Jakis scrypt na ghoule i szkielety, albo inne dobre miejsce da knighta o nastepujacych skillach:

    28 lvl,
    4 mlvl,
    skille 68/67
    Eq:
    Platinum amulet,
    crusader helmet,
    mms,
    golden armor,
    k legi,
    leather bootsy.

    Blackd Proxy oczywiscie



    Prosze o sprawdzone i dobre scrypty.

    Nidaime

  11. #114
    kozi999

    Domyślny runy

    witam, potrzebuje skryptu ktory bedzie robil sd normalnie ale jadl jedzenie co 720 sec(dragon ham) tibia bot ng
    Ostatnio zmieniony przez kozi999 : 29-12-2008, 10:40

  12. Reklama
  13. #115
    Mickey

    Domyślny [ng]

    Potrzebuje skrypt ktory grupuje platinum jak i to co up. Tyle ze nie u NPC lecz w bp {tak samo z siebie[TO JEST OTS]}
    Ostatnio zmieniony przez Mickey : 29-12-2008, 15:10

  14. #116
    Avatar Lunki
    Data rejestracji
    2008
    Wiek
    22
    Posty
    982
    Siła reputacji
    18

    Domyślny

    Cytuj Teron Daja napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    up proszę nie sprawdzałęm ale powinien działać
    var

    Kod :
    Coins: integer;
      Finished: boolean;
    
    function GetCreatureByName(Name: string): TCreature;
    var
      x: integer;
    begin
      Result := nil;
      for x := 0 to Creatures.Count - 1 do
      begin
        if x >= Creatures.Count then Break;
        if Creatures.Creature[x].Name = Name then
        begin
          Result := Creatures.Creature[x];
          Exit;
        end;
      end;
    end;
    
    procedure Event_Message(Channel: integer; Name, Text: String);
    begin
      UpdateWorld;
      Creature := GetCreatureByName(Name);
      if Creature = nil then Exit;
      if Creature.NPC then
      begin
        if Pos('platinum', Text) <> 0 then
        begin
          Self.Say(IntToStr(Coins));
          Sleep(1000);
          Self.Say('yes');
          Sleep(1000);
          Self.Say('bye');
          Finished := True;
        end;
      end;
    end;
    
    procedure Event_Notice(Text: String);
    begin
      if Pos('gold coins', Text) = 0 then Exit;
      Delete(Text, 1, 13);
      Coins := IntToStr(Copy(Text, 1, Pos(' ', Text) - 1)) div 100;
      if Coins <> 0 then
      begin
        Self.Say('hi');
        Sleep(1000);
        Self.Say('change gold');
      end;
    end;
    
    begin
      Finished := False;
      UpdateWorld;
      Self.Containers.UseItemWithSelf(3031);
      while ((not Terminated) and (not Finished)) do
      begin
        ProcessEvents;
        Sleep(100);
      end;
    end;

    potrzebuje skrypta na ng lub black proxy aby postać jak skończą się jej akmienie na trolach ab wracała do dp i brała kamienie
    Ale mi chodzi o OTS ;d Można tam przez kliknięcie lpm zmienić 100 gp na platynke czaisz? PONAWIAM PROŚBĘ!!
    We are flying at an altitude of 39,000 feet

  15. #117
    Mickey

    Domyślny >...<

    Nadal mnie nie rozumiesz, MAM JUZ SKRYPT NA ZAMIENIANIE GP i szukam takiego ktory je grupuje

  16. Reklama
  17. #118
    artix1234

    Domyślny

    Cytuj Mickey napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Nadal mnie nie rozumiesz, MAM JUZ SKRYPT NA ZAMIENIANIE GP i szukam takiego ktory je grupuje
    Kod :
             procedure StackItems;  
    var  
      T: array of integer;  
      x, y, z: integer;  
      Temp: integer;  
    begin  
      T := VarArrayCreate([0, 19] , 3);  
      Temp := -1;  
      for x := 0 to Self.Containers.Count - 1 do  
      begin  
        if x >= Self.Containers.Count then Break;  
        for z := 0 to Self.Containers.Container[x].Count - 1 do  
        begin  
          T[z] := Self.Containers.Container[x].Item[z].ID;  
        end;  
        for y := 0 to Self.Containers.Container[x].Count - 1 do  
        begin  
          if y >= Self.Containers.Container[x].Count then Break;  
          if Self.Containers.Container[x].Item[y].Properties.Pilable then  
          begin  
            if Self.Containers.Container[x].Item[y].Amount < 100 then  
            begin  
              for z := y + 1 to Self.Containers.Container[x].Count - 1 do  
              begin  
                if T[z] = Self.Containers.Container[x].Item[y].ID then  
                begin  
                  if Self.Containers.Container[x].Item[z].Amount < 100 then  
                  begin  
                    Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);  
                  end;  
                end;  
              end;  
            end;  
          end;  
        end;  
      end;  
    end;  
    
    begin  
      while not Terminated do  
      begin  
        UpdateWorld;  
        StackItems;  
        Sleep(1000);  
      end;  
    end;

  18. #119
    Avatar MatikMatrix
    Data rejestracji
    2005
    Położenie
    Rybnik
    Wiek
    32
    Posty
    814
    Siła reputacji
    20

    Domyślny

    Skrypt do blackproxy lub ng żeby robił lootbagi z mino ze wszystkiego oprócz axe i chain helma


    Da rade coś takiego zrobić ?

  19. #120
    Avatar Bilbo baginns
    Data rejestracji
    2007
    Posty
    29
    Siła reputacji
    0

    Domyślny

    up.. z tego co wiem nie bo sam prosilem nie dawno o podobny i nikt nie umial mi pomoc.. w takim razie chcialem poprosic o skrypt do blackd na train z kamieniami pallkiem na monku... jesli mozna objasnic co i jak bo zawsze uzywalem ng i nie bardzo mam pojecie w obsludze blackd

  20. Reklama
Reklama

Informacje o temacie

Użytkownicy przeglądający temat

Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)

Podobne tematy

  1. Szukasz teamu? Zajrzyj tutaj!
    Przez smakosz w dziale Open Tibia Server
    Odpowiedzi: 271
    Ostatni post: 17-02-2024, 17:40
  2. Odpowiedzi: 1156
    Ostatni post: 12-02-2023, 09:51
  3. Szukasz Mappera? Zajrzyj tu!
    Przez Pox w dziale Mapping
    Odpowiedzi: 109
    Ostatni post: 31-03-2017, 01:37
  4. [7.4] Szukasz oldschoolowego ots'a pod 7.4? Zajrzyj!
    Przez SlitasneZebro w dziale Tematy serwerów
    Odpowiedzi: 299
    Ostatni post: 24-04-2013, 12:06
  5. Nie wiesz gdzie trenić? Zajrzyj tutaj!
    Przez Justysia_=* w dziale Tibia
    Odpowiedzi: 105
    Ostatni post: 09-08-2008, 19:10

Zakładki

Zakładki

Zasady postowania

  • Nie możesz pisać nowych tematów
  • Nie możesz pisać postów
  • Nie możesz używać załączników
  • Nie możesz edytować swoich postów
  •