Jump to content

mpj123

Legendary Member
  • Posts

    1,922
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Everything posted by mpj123

  1. 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
  2. there is always a way to detect the program, but there is always a way to hide the program. (hidetoolz, change title, recompile, change dll names) hf :)
  3. http://lmgtfy.com/?q=download+slimdx+sdk
  4. give me an option c in your poll for "I am a retarded greek who puts useless polls for no reason" There is no freya walker, it has been discontinued.
  5. install slimDX and .net 4.0 and the june 2010 dx libraries. If you still get that error, download the slimDX SDK
  6. re-install .net 4.0 and the slimDX as an ADMINISTRATOR
  7. ... no that is not what I mean. They wont give me edit rights no matter how many times I ask for it. I just want to keep things updated, but its too much work to instruct a mod to do it because they dont know the correct format. If they dont want to give me what I want, the content posting will stop. If maxtor wants to be a retard, then its not my fault.
  8. 387 is released, lots of updated content, please see insane-gamers for download links. Maxcheaters does not support L2.NET promotion any longer it seems.
  9. probably have GG disabled on your client... re-enable GG (and dont use OOG)
  10. try some kind of proxy and it will most likely work.
  11. most likely a server side client ip connection checker
  12. hiding wont stop much... and I hear sublimity is dead with 160 players at peak times XD
  13. hmmm, might be the old webinstaller crash. Basically the webupdater isnt updated fully and needs some tweaking, try downloading l2.net manually and try again.
  14. check the forums, most of the approved are for the latest.
  15. we are aware, in contact with the host company. Not sure what happened yet XD
  16. not like the server load would be unbearable server side, how many characters are created compared to packets, lawl.
  17. Download the .net framework 4.0 and update direct-x June 2010 redistributable.
  18. If you are good at photo shopping, dont own a key, then get to it! Create a splash screen for L2.NET and win 2 product keys! (allows blowfish-less login and all the donator features) more info: http://insane-gamers.com/showthread.php/8815-v387-Splash-Contest-and-Release-Date-lt-dun-dun-dun-gt
  19. sounds to me like you are missing the DLL files in your system32 or system, http://www.filefront.com/thankyou.php?f=16759171 extract first and run the batch file
  20. my internet always stopped working when I installed Kaspersky XD. I currently dont even have an anti virus, I have better methods of detecting viruses, one being not running every file you see.
  21. AVG thinks everything is a virus... nothing is 100% share, but I can tell you that my friend uses this method and it works.
×
×
  • Create New...