Scripts para crafter

Código:

/* This Scipt was created with JingJing IDE.
 * Author: testow-PC
 * @ 2010.październik.10 at 02:13 PM
*/
//-----------------------------------------------
// Created by: Magic
// Upgrade by : Kamo
// Version: 1.1
// Release date: 07-08-2010
// v1.1 - added Crafted leather | Corrected crystal S get_id | added High Grade Suede recipe
//
//-----------------------------------------------
//----------------------------------------------//
//    PUT 1 IN THE RECS YOU WANT TO CRAFT      //
//----------------------------------------------//
DEFINE INT CBP                0
DEFINE INT VOP                0
DEFINE INT MITHRIL_ALLOY      0
DEFINE INT COKES              0
DEFINE INT SYNTETIC_COKES    0
DEFINE INT CRAFTED_LEATHER    0
DEFINE INT HIGH_GRADE_SUEDE  0
DEFINE INT DMP                1000
DEFINE INT METALLIC_THREAD    0
DEFINE INT COMPOUND_BRAID    0
DEFINE INT BRAIDED_HEMP      0



//----------- DONT EDIT FROM THIS POINT ON UNLESS YOU KNOW WHAT YOUR DOING -------//


//----------------------------------------------//
//                MP EACH REC CONSUMES        //
//----------------------------------------------//
DEFINE INT CBP_MP                10
DEFINE INT VOP_MP                20
DEFINE INT MITHRIL_ALLOY_MP      40
DEFINE INT COKES_MP              10
DEFINE INT SYNTETIC_COKES_MP    20
DEFINE INT CRAFTED_LEATHER_MP    40
DEFINE INT HIGH_GRADE_SUEDE_MP  20
DEFINE INT DMP_MP                  40
DEFINE INT METALLIC_THREAD_MP              40



//----------------------------------------------//
//          MINIMUM MATS EACH REC CONSUMES      //
//----------------------------------------------//
DEFINE INT CBP_ANIMALBONE_COUNT      10
DEFINE INT VOPS_CBP_COUNT            3
DEFINE INT VOPS_VARNISH_COUNT        3
DEFINE INT VOPS_SOP_COUNT            1
DEFINE INT MITHRIL_ALLOY_VOPS        1
DEFINE INT MITHRIL_ALLOY_STEELS      2
DEFINE INT MITHRIL_ALLOY_M_ORE        1
DEFINE INT COKES_CHARCOAL            3
DEFINE INT COKES_COAL                3
DEFINE INT SYN_COKES_COKES            3
DEFINE INT SYN_COKES_ORI_ORES        1
DEFINE INT CRAFTED_LEATHER_CORD      4
DEFINE INT CRAFTED_LEATHER_LEATHER    4
DEFINE INT CRAFTED_LEATHER_COAL      4
DEFINE INT HIGH_GRADE_SUEDE_CBP      1
DEFINE INT HIGH_GRADE_SUEDE_SUEDE    3
DEFINE INT DMP_METALLIC_THREAD        5
DEFINE INT DMP_MITHRIL_ORE            5
DEFINE INT METALLIC_THREAD_IRON_ORE            5
DEFINE INT METALLIC_THREAD_THREAD              10
DEFINE INT COMPOUND_BRAID_THREAD 5
DEFINE INT COMPOUND_BRAID_BRAIDED_HEMP 5
DEFINE INT BRAIDED_HEMP_STEM    5

//----------------------------------------------//
//                COUNT VARIABLES DEFINITION    //
//----------------------------------------------//
DEFINE INT C_ANIMAL_BONE      0
DEFINE INT C_CBP              0
DEFINE INT C_VARNISH          0
DEFINE INT C_SOP              0
DEFINE INT C_STEEL            0
DEFINE INT C_M_ORE            0
DEFINE INT C_VOPS            0
DEFINE INT C_COAL            0
DEFINE INT C_CHARCOAL        0
DEFINE INT C_COKES            0
DEFINE INT C_ORI_ORE          0
DEFINE INT C_SOULORE          0
DEFINE INT C_SPIRITORE        0
DEFINE INT C_LEATHER          0
DEFINE INT C_CORD            0
DEFINE INT C_SUEDE            0
DEFINE INT C_DMP              0
DEFINE INT C_METALLIC_THREAD  0
DEFINE INT C_THREAD  0
DEFINE INT C_IRON_ORE  0
DEFINE INT c_COMPOUND_BRAID    0
DEFINE INT C_BRAIDED_HEMP    0
DEFINE INT C_STEM          0


//----------------------------------------------//
//                ID VARIABLES DEFINITION      //
//----------------------------------------------//
DEFINE INT ID_ANIMAL_BONE      0
DEFINE INT ID_CBP              0
DEFINE INT ID_VARNISH          0
DEFINE INT ID_SOP              0
DEFINE INT ID_STEEL            0
DEFINE INT ID_M_ORE            0
DEFINE INT ID_VOP              0
DEFINE INT ID_COAL            0
DEFINE INT ID_CHARCOAL        0
DEFINE INT ID_COKES            0
DEFINE INT ID_ORI_ORE          0
DEFINE INT ID_SOULORE          0
DEFINE INT ID_SPIRITORE        0
DEFINE INT ID_LEATHER          0
DEFINE INT ID_CORD            0
DEFINE INT ID_SUEDE            0
DEFINE INT ID_DMP              0
DEFINE INT ID_METALLIC_THREAD  0
DEFINE INT ID_THREAD  0
DEFINE INT ID_IRON_ORE  0
DEFINE INT ID_COMPOUND_BRAID    0
DEFINE INT ID_BRAIDED_HEMP    0
DEFINE INT ID_STEM    0


//----------------------------------------------//
//              GET IDS BY NAME                //
//----------------------------------------------//

ITEM_GET_ID ID_ANIMAL_BONE      "Animal Bone"
ITEM_GET_ID ID_CBP              "Coarse Bone Powder"
ITEM_GET_ID ID_VARNISH          "Varnish"
ITEM_GET_ID ID_SOP              "Stone of Purity"
ITEM_GET_ID ID_VOP              "Varnish of Purity"
ITEM_GET_ID ID_STEEL            "Steel"
ITEM_GET_ID ID_M_ORE            "Mithril Ore"
ITEM_GET_ID ID_CHARCOAL        "Charcoal"
ITEM_GET_ID ID_COAL            "Coal"
ITEM_GET_ID ID_COKES            "Cokes"
ITEM_GET_ID ID_ORI_ORE          "Oriharukon Ore"
ITEM_GET_ID ID_SOULORE          "Soul Ore"
ITEM_GET_ID ID_SPIRITORE        "Spirit Ore"
ITEM_GET_ID ID_LEATHER          "Leather"
ITEM_GET_ID ID_CORD            "Cord"
ITEM_GET_ID ID_SUEDE            "Suede"
ITEM_GET_ID ID_DMP              "Durable Metal Plate"
ITEM_GET_ID ID_METALLIC_THREAD  "Metallic Thread"
ITEM_GET_ID ID_THREAD  "Thread"
ITEM_GET_ID ID_IRON_ORE  "Iron Ore"
ITEM_GET_ID ID_COMPOUND_BRAID    "Compound Braid"
ITEM_GET_ID ID_BRAIDED_HEMP    "Braided Hemp"
ITEM_GET_ID ID_STEM    "Stem"


WHILE ONE == ONE
   
    IF CBP != 0
          IF CHAR_CUR_MP > CBP_MP
              ITEM_COUNT C_ANIMAL_BONE "<&ID_ANIMAL_BONE&>"
              IF C_ANIMAL_BONE >= CBP_ANIMALBONE_COUNT
                    PRINT_TEXT "Crafting CBP!"
                    INJECT "B8 1F 00 00 00"
                    SLEEP 300
              ENDIF
          ENDIF
    ENDIF
   
    IF VOP != 0
          IF CHAR_CUR_MP > VOP_MP
              ITEM_COUNT C_CBP          "<&ID_CBP&>"
              ITEM_COUNT C_VARNISH      "<&ID_VARNISH&>"
              ITEM_COUNT C_SOP          "<&ID_SOP&>"
              IF C_CBP >= VOPS_CBP_COUNT
                    IF C_VARNISH >= VOPS_VARNISH_COUNT
                        IF C_SOP >= VOPS_SOP_COUNT
                              PRINT_TEXT "Crafting VOPs!"
                              INJECT "B8 23 00 00 00"
                              SLEEP 300
                        ENDIF
                    ENDIF             
              ENDIF
          ENDIF
    ENDIF
     
      IF MITHRIL_ALLOY != 0
          IF CHAR_CUR_MP > MITHRIL_ALLOY_MP
              ITEM_COUNT C_M_ORE          "<&ID_M_ORE&>"
              ITEM_COUNT C_STEEL          "<&ID_STEEL&>"
              ITEM_COUNT C_VOPS          "<&ID_VOP&>"
              IF C_M_ORE >= MITHRIL_ALLOY_M_ORE
                    IF C_STEEL >= MITHRIL_ALLOY_STEELS
                        IF C_VOPS >= MITHRIL_ALLOY_VOPS
                              PRINT_TEXT "Crafting Mithril Alloy!"
                              INJECT "B8 26 00 00 00"
                              SLEEP 300
                        ENDIF
                    ENDIF             
              ENDIF
          ENDIF
    ENDIF

    IF CRAFTED_LEATHER != 0
          IF CHAR_CUR_MP > CRAFTED_LEATHER_MP
              ITEM_COUNT C_COAL          "<&ID_COAL&>"
              ITEM_COUNT C_CORD          "<&ID_CORD&>"
              ITEM_COUNT C_LEATHER          "<&ID_LEATHER&>"
              IF C_COAL >= CRAFTED_LEATHER_COAL
                    IF C_CORD >= CRAFTED_LEATHER_COAL
                        IF C_LEATHER >= CRAFTED_LEATHER_LEATHER
                              PRINT_TEXT "Crafting Crafted Leather!"
                              INJECT "B8 29 00 00 00"
                              SLEEP 300
                        ENDIF
                    ENDIF             
              ENDIF
          ENDIF
    ENDIF
   
    IF COKES != 0
          IF CHAR_CUR_MP > COKES_MP
              ITEM_COUNT C_COAL "<&ID_COAL&>"
              ITEM_COUNT C_CHARCOAL "<&ID_CHARCOAL&>"
              IF C_COAL >= COKES_COAL
                    IF C_CHARCOAL >= COKES_CHARCOAL
                        PRINT_TEXT "Crafting Cokes!"
                        INJECT "B8 1D 00 00 00"
                        SLEEP 300
                    ENDIF
              ENDIF
          ENDIF
    ENDIF

    IF HIGH_GRADE_SUEDE != 0
          IF CHAR_CUR_MP > HIGH_GRADE_SUEDE_MP
              ITEM_COUNT C_CBP "<&ID_CBP&>"
              ITEM_COUNT C_SUEDE "<&ID_SUEDE&>"
              IF C_CBP >= HIGH_GRADE_SUEDE_CBP
                    IF C_SUEDE >= HIGH_GRADE_SUEDE_SUEDE
                        PRINT_TEXT "Crafting High Grade Suede!"
                        INJECT "B8 21 00 00 00"
                        SLEEP 300
                    ENDIF
              ENDIF
          ENDIF
    ENDIF   

    IF SYNTETIC_COKES != 0
          IF CHAR_CUR_MP > SYNTETIC_COKES_MP
              ITEM_COUNT C_COKES "<&ID_COKES&>"
              ITEM_COUNT C_ORI_ORE "<&ID_ORI_ORE&>"
              IF C_COKES >= SYN_COKES_COKES
                    IF C_ORI_ORE >= SYN_COKES_ORI_ORES
                        PRINT_TEXT "Crafting Syntetic Cokes!"
                        INJECT "B8 24 00 00 00"
                        SLEEP 300
                    ENDIF
              ENDIF
         
          ENDIF
    ENDIF

    IF DMP != 0
          IF CHAR_CUR_MP > DMP_MP
              ITEM_COUNT C_METALLIC_THREAD "<&ID_METALLIC_THREAD&>"
              ITEM_COUNT C_M_ORE "<&ID_M_ORE&>"
              ITEM_COUNT C_DMP "<&ID_DMP&>"
              IF C_METALLIC_THREAD >= DMP_METALLIC_THREAD
              IF C_M_ORE >= DMP_MITHRIL_ORE
              IF C_DMP <= DMP
                        INJECT "B8 60 02 00 00"
              ITEM_COUNT C_DMP "<&ID_DMP&>"
              PRINT_TEXT "Crafting DMP <&C_DMP&>  ][  ilosc Metalic= <&C_METALLIC_THREAD&>    M_ore= <&C_M_ORE&>"
                        SLEEP 300
                    ENDIF
              ENDIF 
          ENDIF
    ENDIF
ENDIF
   
    IF METALLIC_THREAD != 0
          IF CHAR_CUR_MP > METALLIC_THREAD_MP
              ITEM_COUNT C_IRON_ORE "<&ID_IRON_ORE&>"
              ITEM_COUNT C_THREAD "<&ID_THREAD&>"
        ITEM_COUNT C_METALLIC_THREAD "<&ID_METALLIC_THREAD&>"
              IF C_IRON_ORE >= METALLIC_THREAD _IRON_ORE
                    IF C_THREAD >= METALLIC_THREAD_THREAD
            IF C_METALLIC_THREAD <= METALLIC_THREAD
                        INJECT "B8 5F 02 00 00"
            ITEM_COUNT C_METALLIC_THREAD "<&ID_METALLIC_THREAD&>"
        PRINT_TEXT "Crafting Metallic Thread <&C_METALLIC_THREAD&>  ][  ilosc IronOre= <&C_IRON_ORE&>    Thread= <&C_THREAD&>"
                        SLEEP 300
                    ENDIF
              ENDIF
          ENDIF
    ENDIF
  ENDIF                       

    IF COMPOUND_BRAID != 0
          IF CHAR_CUR_MP > CBP_MP
              ITEM_COUNT C_COMPOUND_BRAID "<&ID_COMPOUND_BRAID&>"
              ITEM_COUNT C_BRAIDED_HEMP "<&ID_BRAIDED_HEMP&>"
              ITEM_COUNT C_THREAD "<&ID_THREAD&>"
                IF C_BRAIDED_HEMP >= COMPOUND_BRAID_BRAIDED_HEMP
                IF C_THREAD >= COMPOUND_BRAID_THREAD
                IF C_COMPOUND_BRAID <= COMPOUND_BRAID
                      INJECT "B8 25 00 00 00"
              ITEM_COUNT C_COMPOUND_BRAID "<&ID_COMPOUND_BRAID&>"
              PRINT_TEXT "Crafting Compound <&C_COMPOUND_BRAID&>  ][  ilosc Thread= <&C_THREAD&>    Braided= <&C_BRAIDED_HEMP&>"
                    SLEEP 300
                    ENDIF
              ENDIF
          ENDIF
    ENDIF     
 ENDIF     


    IF BRAIDED_HEMP != 0
          IF CHAR_CUR_MP > CBP_MP
              ITEM_COUNT C_STEM "<&ID_STEM&>"
              ITEM_COUNT C_BRAIDED_HEMP "<&ID_BRAIDED_HEMP&>"
                IF C_STEM >= BRAIDED_HEMP_STEM
                IF C_BRAIDED_HEMP <= BRAIDED_HEMP
                      INJECT "B8 1C 00 00 00"
                      ITEM_COUNT C_BRAIDED_HEMP "<&ID_BRAIDED_HEMP&>"
                      PRINT_TEXT "Crafting Braided Hemp <&C_BRAIDED_HEMP&>    ilosc Stem = <&C_STEM&>"
                    SLEEP 300
                    ENDIF
          ENDIF
    ENDIF
ENDIF
SLEEP 400
WEND
END_SCRIPT

Spoiler:

Spoiler:

Rykardo escribió:hola saludos,
el scripts funciona a la prefeccion pero quisiera saber como ago para agregarle otro material a ese scripts q le falta, le falta crear steel me ayudan plz