Jump to content

masterkingg

Members
  • Posts

    99
  • Credits

  • Joined

  • Last visited

    Never
  • Feedback

    0%

Posts posted by masterkingg

  1. //made by rocket666

    //edited and tweaked by masterkingg

    //testing, bug solutions and just being cool, masterkingg

    INCLUDE StdLib\inventory.l2c

     

    //Settings

    DEFINE STRING ITEMNAME "Sword of Miracles"            //Item name, don't write the SA

    DEFINE STRING ITGRADE A                    //Item grade (A=s)

    DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (A)"    //Enchant name

    DEFINE STRING ENCHANT 5          //Enchant amount wanted to every weapon in inventory

    DEFINE INT DELAY 1100                  //Delay of all actions in MS, this may help dodge anti enchanting bans if there are any. Put at least 600.

     

     

    //Some definitions

    DEFINE INT CURENCHANT 0                   

    DEFINE INT SUCCESSENCHANTED 0

    DEFINE STRING CRYSTAL "Crystal: <&ITGRADE&> Grade"

    DEFINE INT CRYID 0

    DEFINE INT CRYCOUNT 0

    DEFINE INT CRYCOUNT2 0

    ITEM_GET_ID CRYID "<&CRYSTAL&>"

    DEFINE STRING ITNAME 0

    DEFINE INT ENCHID 0

    DEFINE INT ENCHCOUNT 0

    DEFINE INT ENCHUID 0

    DEFINE STRING ENCHCODE 0

    DEFINE STRING ITEM 0

    DEFINE ARRAYLIST INVEN_AL 0

    GET_INVENTORY INVEN_AL

     

    //Calc enchant unique id

    ITEM_GET_ID ENCHID "<&ENCHNAME&>"

    INVEN_GET_UID ENCHUID "<&ENCHID&>"

    ENCHCODE = ENCHUID.GET_HEX32

    DEFINE STRING ENCH "19 <&ENCHCODE&> 00 00 00 00"

     

    //Start actions

    FOREACH I Inventory INVEN_AL

        ITNAME = INVEN_AL.I.NAME

        IF ITNAME == ITEMNAME

            CALLSUB ENCHANT

            PRINT_TEXT "<&ENCHCOUNT&> enchants remaining."

            CURENCHANT = ZERO

        ENDIF

    NEXTEACH

    PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"

    PRINT_TEXT "Done"

    SCRIPT_END

     

    SUB ENCHANT

    DEFINE bytebuffer my_bb 256

    my_bb.WRITE_BYTE #i95

    my_bb.WRITE_INT32 INVEN_AL.I.ID

    my_bb.WRITE_INT32 #i0

     

     

    WHILE ZERO == ZERO

    ITEM_COUNT CRYCOUNT "<&CRYID&>"

    IF CURENCHANT < ENCHANT

        ITEM_COUNT ENCHCOUNT "<&ENCHID&>"

        IF ENCHCOUNT > ONE

            CURENCHANT = CURENCHANT + ONE

            PRINT_TEXT "Your weapon is enchanting to <&CURENCHANT&>"

            INJECT "<&ENCH&>"

            SLEEP "<&DELAY&>"

            my_bb.TRIM_TO_INDEX

            injectbb my_bb

            SLEEP 300

            ITEM_COUNT CRYCOUNT2 "<&CRYID&>"

            IF CRYCOUNT2 > CRYCOUNT

                DELETE my_bb

                RETURNSUB

            ELSE

              IF CURENCHANT == ENCHANT

              SUCCESSENCHANTED = SUCCESSENCHANTED + #i1

              ENDIF

            ENDIF

        ELSE

            PRINT_TEXT "Enchant is over."

            PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"

            SCRIPT_END

        ENDIF

    ELSE

        PRINT_TEXT "Successfully enchanted."

        DELETE my_bb

        RETURNSUB

    ENDIF

    WEND

    RETURNSUB

     

     

    we succeeded

  2. but what I don scriptu I go? Gimme scriptu you please try to complete echantez Icarus Disperser

     

    //made by rocket666
    //edited and tweaked by mpj123
    //testing, bug solutions and just being cool, MeatWod
    INCLUDE StdLib\inventory.l2c
    
    //Settings
    DEFINE STRING ITEMNAME "Icarus Disperser"             //Item name, don't write the SA
    DEFINE STRING ITGRADE S                    //Item grade (s80=s)
    DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (S)"    //Enchant name
    DEFINE STRING ENCHANT 4             //Enchant amount wanted to every weapon in inventory
    DEFINE INT DELAY 1100                  //Delay of all actions in MS, this may help dodge anti enchanting bans if there are any. Put at least 600.
    
    
    //Some definitions
    DEFINE INT CURENCHANT 0                   
    DEFINE INT SUCCESSENCHANTED 0
    DEFINE STRING CRYSTAL "Crystal: <&ITGRADE&> Grade"
    DEFINE INT CRYID 0
    DEFINE INT CRYCOUNT 0
    DEFINE INT CRYCOUNT2 0
    ITEM_GET_ID CRYID CRYSTAL
    DEFINE STRING ITNAME 0
    DEFINE INT ENCHID 0
    DEFINE INT ENCHCOUNT 0
    DEFINE INT ENCHUID 0
    DEFINE STRING ENCHCODE 0
    DEFINE STRING ITEM 0
    DEFINE ARRAYLIST INVEN_AL 0
    GET_INVENTORY INVEN_AL
    
    //Calc enchant unique id
    ITEM_GET_ID ENCHID ENCHNAME
    INVEN_GET_UID ENCHUID "<&ENCHID&>"
    ENCHCODE = ENCHUID.GET_HEX32
    DEFINE STRING ENCH "19 <&ENCHCODE&> 00 00 00 00"
    
    //Start actions
    FOREACH I Inventory INVEN_AL
        ITNAME = INVEN_AL.I.Name
        IF ITNAME == ITEMNAME
            CALLSUB ENCHANT
            PRINT_TEXT "<&ENCHCOUNT&> enchants remaining."
            CURENCHANT = ZERO
        ENDIF
    NEXTEACH
    PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"
    PRINT_TEXT "Done"
    SCRIPT_END
    
    SUB ENCHANT
    DEFINE bytebuffer my_bb 256
    my_bb.WRITE_BYTE #i95
    my_bb.WRITE_INT32 INVEN_AL.I.ID
    my_bb.WRITE_INT32 #i0
    
    
    WHILE ZERO == ZERO
    ITEM_COUNT CRYCOUNT "<&CRYID&>"
    IF CURENCHANT < ENCHANT
        ITEM_COUNT ENCHCOUNT "<&ENCHID&>"
        IF ENCHCOUNT > ONE
            CURENCHANT = CURENCHANT + ONE
            PRINT_TEXT "Your weapon is enchanting to <&CURENCHANT&>"
            INJECT "<&ENCH&>"
            SLEEP "<&DELAY&>"
            my_bb.TRIM_TO_INDEX
            injectbb my_bb
            SLEEP 300
            ITEM_COUNT CRYCOUNT2 "<&CRYID&>"
            IF CRYCOUNT2 > CRYCOUNT
                DELETE my_bb
                RETURNSUB
            ELSE
               IF CURENCHANT == ENCHANT
               SUCCESSENCHANTED = SUCCESSENCHANTED + #i1
               ENDIF
            ENDIF
        ELSE
            PRINT_TEXT "Enchant is over."
            PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"
            SCRIPT_END
        ENDIF
    ELSE
        PRINT_TEXT "Successfully enchanted."
        DELETE my_bb
        RETURNSUB
    ENDIF
    WEND
    RETURNSUB

     

    result

    11:39:35 PM :[Enchant is over.

    11:39:35 PM :[0 are currently enchanted successfully to 4

  3. i using l2net  v361 and use script

     

    //edited and tweaked by mpj123
    //testing, bug solutions and just being cool, MeatWod
    INCLUDE StdLib\inventory.l2c
    
    //Settings
    DEFINE STRING ITEMNAME "Icarus Disperser/ARMOR HERE"            //Item name, don't write the SA SA
    DEFINE STRING ITGRADE S                    //Item grade (s80=s)
    DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (S)"    //Enchant name
    DEFINE STRING ENCHANT 12              //Max enchant
    DEFINE INT CURENCHANT 0                    //Current enchant, change line 38 too
    DEFINE INT DELAY 1100                  //Delay of all actions in MS
    
    
    //Some definitions
    DEFINE INT SUCCESSENCHANTED 0 
    DEFINE STRING CRYSTAL "Crystal: <&ITGRADE&> Grade"
    DEFINE INT CRYID 0
    DEFINE INT CRYCOUNT 0
    DEFINE INT CRYCOUNT2 0
    ITEM_GET_ID CRYID "<&CRYSTAL&>"
    DEFINE STRING ITNAME 0
    DEFINE INT ENCHID 0
    DEFINE INT ENCHCOUNT 0
    DEFINE INT ENCHUID 0
    DEFINE STRING ENCHCODE 0
    DEFINE STRING ITEM 0
    DEFINE ARRAYLIST INVEN_AL 0
    GET_INVENTORY INVEN_AL
    
    //Calc enchant unique id
    ITEM_GET_ID ENCHID "<&ENCHNAME&>"
    INVEN_GET_UID ENCHUID "<&ENCHID&>"
    ENCHCODE = ENCHUID.GET_HEX32
    DEFINE STRING ENCH "19 <&ENCHCODE&> 00 00 00 00"
    
    //Start actions
    FOREACH I Inventory INVEN_AL
        ITNAME = INVEN_AL.I.NAME
        IF ITNAME == ITEMNAME
            CALLSUB ENCHANT
            PRINT_TEXT "<&ENCHCOUNT&> enchants remaining."
            CURENCHANT = ZERO
        ENDIF
    NEXTEACH
    PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"
    PRINT_TEXT "Done"
    SCRIPT_END
    
    SUB ENCHANT
    DEFINE bytebuffer my_bb 256
    my_bb.WRITE_BYTE #i95
    my_bb.WRITE_INT32 INVEN_AL.I.ID
    my_bb.WRITE_INT32 #i0
    
    
    WHILE ZERO == ZERO
    ITEM_COUNT CRYCOUNT "<&CRYID&>"
    IF CURENCHANT < ENCHANT
        ITEM_COUNT ENCHCOUNT "<&ENCHID&>"
        IF ENCHCOUNT > ONE
            CURENCHANT = CURENCHANT + ONE
            PRINT_TEXT "Your weapon is enchanting to <&CURENCHANT&>"
            INJECT "<&ENCH&>"
            SLEEP "<&DELAY&>"
            my_bb.TRIM_TO_INDEX
            injectbb my_bb
            SLEEP 300
            ITEM_COUNT CRYCOUNT2 "<&CRYID&>"
            IF CRYCOUNT2 > CRYCOUNT
                DELETE my_bb
                RETURNSUB
            ELSE
               IF CURENCHANT == ENCHANT
               SUCCESSENCHANTED = SUCCESSENCHANTED + #i1
               ENDIF
            ENDIF
        ELSE
            PRINT_TEXT "Enchant is over."
            PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"
            SCRIPT_END
        ENDIF
    ELSE
        PRINT_TEXT "Successfully enchanted."
        DELETE my_bb
        RETURNSUB
    ENDIF
    WEND
    RETURNSUB

     

    and result:

    8:12:57 PM :[0 are currently enchanted successfully to 12

    8:12:57 PM :[Done

                  ???

  4.  

    hello I am a problem l2net I tried to create a place to give assist me but when using flash aura from him Archmage automatically attack on me why me? potion hand how they make it work? but soulshot ? me and help me please and someone else is not something I do when the trade with someone?

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock