mpj123 Posted December 3, 2010 Posted December 3, 2010 Just wanted to let everyone know out there that my script still works on RPG-CLUB. (After being casted aside from the WPF script...) I honestly haven't tested it, some users report it broken (probably retarded), but others report it working 100%(the smart ones who can follow instructions). I don't really plan on updating anything. The script was made for the previous chronicle, but should work on the current. The code is all there, feel free to update it as needed. L2.NET only. Although you could replicate something similar in WPF or something. //credit to obce for half the code :P //finished by mpj123 //v1.2 Define_Global int step 0 Define_Global int ok 0 //////////////////////////////// define_global int pak_tar 0 define_global int pak_atk 0 define_global int move 0 define_global int validate 0 define_global int use_it 0 define_global int open_inv 0 define_global int save_inv2 0 define_global int save_inv1 0 define_global int open_skill 0 define_global int open_skill2 0 define_global int use_skill 0 // for a 0 255 1 SET_EVENT "<&SCRIPTEVENT_CLIENTPACKET&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" SET_EVENT "<&SCRIPTEVENT_CLIENTPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" next step = 1 print_text "Target something ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Target something ..." do sleep 1000 loop ok == 0 ok = 0 step = 2 print_text "Move ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Move ..." do sleep 1000 loop ok == 0 ok = 0 step = 3 print_text "Move again ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Move again ..." do sleep 1000 loop ok == 0 ok = 0 step = 4 print_text "Use any item ... " SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Use any item ..." do sleep 1000 loop ok == 0 ok = 0 step = 5 print_text "Open inventory ... " SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Open inventory ..." do sleep 1000 loop ok == 0 ok = 0 step = 6 print_text "Open skills ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Open skills ..." do sleep 1000 loop ok != 1 ok = 0 step = 7 print_text "Use a skill ... (any one of them, even if you cant use it)" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Use a skill ... (any one of them, even if you cant use it)" do sleep 1000 loop ok != 1 ok = 0 step = 8 print_text "FORCE attack something using the CONTROL key!" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "FORCE attack something using the CONTROL key!" do sleep 1000 loop ok != 1 ok = 0 print_text "Stop attacking and stay still somewhere to finish the last step, waiting 3 seconds" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Stop attacking and stay still somewhere to finish the last step, waiting 3 seconds" sleep 3000 step = 9 print_text "Close inventory ... " SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Close inventory ... " do sleep 1000 loop ok == 0 call block_packets step = 10 print_text " rdy - target <&pak_tar&>" print_text " rdy - target <&pak_atk&>" print_text " rdy - move <&move&> i validate <&validate&>" print_text " rdy - use _it <&use_it&>" print_text " rdy - open inv <&open_inv&>" print_text " rdy - save_inv2 <&save_inv2&>" print_text " rdy - open_skill <&open_skill&>" print_text " rdy - open_skill2 <&open_skill2&>" print_text " rdy - use_skill <&use_skill&>" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "All Ready!" for a 0 255 1 SET_EVENT "<&SCRIPTEVENT_SELFPACKET&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" SET_EVENT "<&SCRIPTEVENT_SELFPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" next do sleep 10000 loop 1 == 1 END_SCRIPT function opc lock opc define int temp_ex 0 define int pak 0 //print_text " pakiet dlugosc <&packet.LENGTH&>" if step == 1 if packet.LENGTH == 18 packet.read_byte pak_tar Print_text " id stored <&pak_tar&>" ok = 1 unlock opc return void endif endif if step == 2 if packet.LENGTH == 29 packet.read_byte move Print_text " id stored <&move&>" ok = 1 unlock opc return void endif endif if step == 3 if packet.LENGTH == 21 packet.read_byte validate Print_text " id stored <&validate&>" ok = 1 unlock opc return void endif endif if step == 4 if packet.LENGTH == 9 packet.read_byte use_it Print_text " id stored <&use_it&>" ok = 1 unlock opc return void endif endif if step == 5 if packet.LENGTH == 1 packet.read_byte open_inv Print_text " id stored <&open_inv&>" ok = 1 unlock opc return void endif endif if step == 6 if ok == 0 if packet.LENGTH == 1 packet.read_byte open_skill Print_text " id stored <&open_skill&>" ok = 2 unlock opc return void endif endif if ok == 2 if packet.LENGTH == 1 packet.read_byte open_skill2 if open_skill2 != open_inv if open_skill2 != open_skill Print_text " id stored <&open_skill2&>" ok = 1 unlock opc return void endif endif endif endif endif if step == 7 if packet.LENGTH == 10 packet.read_byte use_skill Print_text " id stored <&use_skill&>" ok = 1 unlock opc return void endif endif if step == 8 if packet.LENGTH == 18 packet.read_byte pak_atk if pak_atk != pak_tar Print_text " id stored <&pak_atk&>" ok = 1 unlock opc return void endif endif endif if step == 9 if packet.LENGTH != 15 packet.read_byte save_inv1 packet.read_int16 save_inv2 if save_inv2 <= 0 SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "You need to stop attacking to be able to capture the close inventory packet!" print_text "You need to stop attacking to be able to capture the close inventory packet!" unlock opc return void endif if save_inv2 >= 257 SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "You need to stop attacking to be able to capture the close inventory packet!" print_text "You need to stop attacking to be able to capture the close inventory packet!" unlock opc return void endif Print_text " id stored <&save_inv1&> i 2 byte <&save_inv2&>" ok = 1 unlock opc return void endif endif if step == 10 packet.read_byte pak if pak == 31 packet.RESET_INDEX packet.write_byte pak_tar injectbb packet unlock opc return void endif if pak == 1 packet.RESET_INDEX packet.write_byte pak_atk injectbb packet unlock opc return void endif if pak == 15 packet.RESET_INDEX packet.write_byte move injectbb packet unlock opc return void endif if pak == 89 packet.RESET_INDEX packet.write_byte validate injectbb packet unlock opc return void endif if pak == 25 packet.RESET_INDEX packet.write_byte use_it injectbb packet unlock opc return void endif if pak == 20 packet.RESET_INDEX packet.write_byte open_inv injectbb packet unlock opc return void endif if pak == 80 packet.RESET_INDEX packet.write_byte open_skill injectbb packet unlock opc return void endif if pak == 166 packet.RESET_INDEX packet.write_byte open_skill2 injectbb packet unlock opc return void endif if pak == 57 packet.RESET_INDEX packet.write_byte use_skill injectbb packet unlock opc return void endif if pak == 208 packet.read_int16 temp_ex if temp_ex == 36 packet.RESET_INDEX packet.write_byte save_inv1 packet.write_int16 save_inv2 injectbb packet unlock opc return void endif endif endif unlock opc return void function block_packets print_text " blocked" BLOCK_SELF_ALL BLOCKEX_SELF_ALL block_SELF 31 // target block_SELF 15 // move block_SELF 89 // vaidate block_SELF 25 // use item block_SELF 20 // open inv block_SELF 36 // save inv block_SELF 80 // open skill1 block_SELF 166 // open skill2 block_SELF 1 // force attack block_SELF 57 // force spell return void Quote
Lain Posted December 4, 2010 Posted December 4, 2010 This works and I am 100% sure since I tested it. Botting works perfectly, except for buffing, which is delayed by some seconds. Quote
free989 Posted December 4, 2010 Posted December 4, 2010 This works and I am 100% sure since I tested it. Botting works perfectly, except for buffing, which is delayed by some seconds. yeahh for buff delayed some seconds Quote
TILEMACHOS Posted December 4, 2010 Posted December 4, 2010 Great Mpj :D I don't even know that you have made a script like this one.. I tested and working Nice work dude :D Quote
OMGZOR Posted December 4, 2010 Posted December 4, 2010 can some1 make a guide plz? theres one on mpj123 website/forums. dunno if i can post info here Quote
mpj123 Posted December 5, 2010 Author Posted December 5, 2010 Whoever was having trouble with the buffing, could you try this script? //credit to obce for half the code :P //finished by mpj123 //v1.2 Define_Global int step 0 Define_Global int ok 0 //////////////////////////////// define_global int pak_tar 0 define_global int pak_atk 0 define_global int move 0 define_global int validate 0 define_global int use_it 0 define_global int open_inv 0 define_global int save_inv2 0 define_global int save_inv1 0 define_global int open_skill 0 define_global int open_skill2 0 define_global int use_skill 0 // for a 0 255 1 SET_EVENT "<&SCRIPTEVENT_CLIENTPACKET&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" SET_EVENT "<&SCRIPTEVENT_CLIENTPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" next step = 1 print_text "Target something ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Target something ..." do sleep 1000 loop ok == 0 ok = 0 step = 2 print_text "Move ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Move ..." do sleep 1000 loop ok == 0 ok = 0 step = 3 print_text "Move again ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Move again ..." do sleep 1000 loop ok == 0 ok = 0 step = 4 print_text "Use any item ... " SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Use any item ..." do sleep 1000 loop ok == 0 ok = 0 step = 5 print_text "Open inventory ... " SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Open inventory ..." do sleep 1000 loop ok == 0 ok = 0 step = 6 print_text "Open skills ..." SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Open skills ..." do sleep 1000 loop ok != 1 ok = 0 step = 7 print_text "Use a skill ... (any one of them, even if you cant use it)" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Use a skill ... (any one of them, even if you cant use it)" do sleep 1000 loop ok != 1 ok = 0 step = 8 print_text "FORCE attack something using the CONTROL key!" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "FORCE attack something using the CONTROL key!" do sleep 1000 loop ok != 1 ok = 0 print_text "Stop attacking and stay still somewhere to finish the last step, waiting 3 seconds" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Stop attacking and stay still somewhere to finish the last step, waiting 3 seconds" sleep 3000 step = 9 print_text "Close inventory ... " SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "Close inventory ... " do sleep 1000 loop ok == 0 call block_packets step = 10 print_text " rdy - target <&pak_tar&>" print_text " rdy - target <&pak_atk&>" print_text " rdy - move <&move&> i validate <&validate&>" print_text " rdy - use _it <&use_it&>" print_text " rdy - open inv <&open_inv&>" print_text " rdy - save_inv2 <&save_inv2&>" print_text " rdy - open_skill <&open_skill&>" print_text " rdy - open_skill2 <&open_skill2&>" print_text " rdy - use_skill <&use_skill&>" SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "All Ready!" for a 0 255 1 SET_EVENT "<&SCRIPTEVENT_SELFPACKET&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" SET_EVENT "<&SCRIPTEVENT_SELFPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" opc "<&a&>" next do sleep 10000 loop 1 == 1 END_SCRIPT function opc define int temp_ex 0 define int pak 0 //print_text " pakiet dlugosc <&packet.LENGTH&>" if step == 1 if packet.LENGTH == 18 packet.read_byte pak_tar Print_text " id stored <&pak_tar&>" ok = 1 return void endif endif if step == 2 if packet.LENGTH == 29 packet.read_byte move Print_text " id stored <&move&>" ok = 1 return void endif endif if step == 3 if packet.LENGTH == 21 packet.read_byte validate Print_text " id stored <&validate&>" ok = 1 return void endif endif if step == 4 if packet.LENGTH == 9 packet.read_byte use_it Print_text " id stored <&use_it&>" ok = 1 return void endif endif if step == 5 if packet.LENGTH == 1 packet.read_byte open_inv Print_text " id stored <&open_inv&>" ok = 1 return void endif endif if step == 6 if ok == 0 if packet.LENGTH == 1 packet.read_byte open_skill Print_text " id stored <&open_skill&>" ok = 2 return void endif endif if ok == 2 if packet.LENGTH == 1 packet.read_byte open_skill2 if open_skill2 != open_inv if open_skill2 != open_skill Print_text " id stored <&open_skill2&>" ok = 1 return void endif endif endif endif endif if step == 7 if packet.LENGTH == 10 packet.read_byte use_skill Print_text " id stored <&use_skill&>" ok = 1 return void endif endif if step == 8 if packet.LENGTH == 18 packet.read_byte pak_atk if pak_atk != pak_tar Print_text " id stored <&pak_atk&>" ok = 1 return void endif endif endif if step == 9 if packet.LENGTH != 15 packet.read_byte save_inv1 packet.read_int16 save_inv2 if save_inv2 <= 0 SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "You need to stop attacking to be able to capture the close inventory packet!" print_text "You need to stop attacking to be able to capture the close inventory packet!" return void endif if save_inv2 >= 257 SAY_TO_CLIENT "<&CHANNEL_PRIVATE&>" "You need to stop attacking to be able to capture the close inventory packet!" print_text "You need to stop attacking to be able to capture the close inventory packet!" return void endif Print_text " id stored <&save_inv1&> i 2 byte <&save_inv2&>" ok = 1 return void endif endif if step == 10 packet.read_byte pak if pak == 31 packet.RESET_INDEX packet.write_byte pak_tar injectbb packet return void endif if pak == 1 packet.RESET_INDEX packet.write_byte pak_atk injectbb packet return void endif if pak == 15 packet.RESET_INDEX packet.write_byte move injectbb packet return void endif if pak == 89 packet.RESET_INDEX packet.write_byte validate injectbb packet return void endif if pak == 25 packet.RESET_INDEX packet.write_byte use_it injectbb packet return void endif if pak == 20 packet.RESET_INDEX packet.write_byte open_inv injectbb packet return void endif if pak == 80 packet.RESET_INDEX packet.write_byte open_skill injectbb packet return void endif if pak == 166 packet.RESET_INDEX packet.write_byte open_skill2 injectbb packet return void endif if pak == 57 packet.RESET_INDEX packet.write_byte use_skill injectbb packet return void endif if pak == 208 packet.read_int16 temp_ex if temp_ex == 36 packet.RESET_INDEX packet.write_byte save_inv1 packet.write_int16 save_inv2 injectbb packet return void endif endif endif return void function block_packets print_text " blocked" BLOCK_SELF_ALL BLOCKEX_SELF_ALL block_SELF 31 // target block_SELF 15 // move block_SELF 89 // vaidate block_SELF 25 // use item block_SELF 20 // open inv block_SELF 36 // save inv block_SELF 80 // open skill1 block_SELF 166 // open skill2 block_SELF 1 // force attack block_SELF 57 // force spell return void Quote
Lain Posted December 5, 2010 Posted December 5, 2010 I tried the new script and I counted that delay of buffing is like 6 seconds. I set in L2.Net to buff himself and he started buffing after 6 seconds after I have set it. So I think it's the same as the previous one. Quote
OMGZOR Posted December 5, 2010 Posted December 5, 2010 I tried the new script and I counted that delay of buffing is like 6 seconds. I set in L2.Net to buff himself and he started buffing after 6 seconds after I have set it. So I think it's the same as the previous one. Confirm Quote
Klaas Posted December 5, 2010 Posted December 5, 2010 isn't this method marked as unsafe on insane-gamers? Quote
OMGZOR Posted December 6, 2010 Posted December 6, 2010 isn't this method marked as unsafe on insane-gamers? no bro. unsafe is the first method with wpf. this one is imo safe till you are spotted and reported :) Quote
skip Posted December 6, 2010 Posted December 6, 2010 no bro. unsafe is the first method with wpf. this one is imo safe till you are spotted and reported :) are you sure? (: Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.