Jump to content

mpj123

Legendary Member
  • Posts

    1,922
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Everything posted by mpj123

  1. As safe as OOG walker. For you anyways, :) But notice how L2.Net warns their users about the use of oog on retail. The whole point of this thread was to warn people, next time do not jump the gun.
  2. L2.NET is always improving on detections, walker on the other hand :/
  3. you got some balls there kid. But keep your flaming elsewhere. If you have nothing good to say, just stay out of it. I never provoked any of this. Instead of playing the "blind" user, start looking for ways to prevent a process detection ban. Just because they have not mass banned in a while, does not mean they do not plan on doing it soon. Part of being a good botter (and a smart one) is to prevent yourself from a costly ban. If you want to play the big bad rooster and stay on your back legs, fine... but I cant say I never warned you. There are ways to change DLLs and process names... You sound somewhat intelligent (at least you arent speaking brglish), but your logic is very flawed. Have a perfect day with lots of love, and remember... being angry only creates you problems! @killik Good to know I am at least getting through to some people, it was only a matter of time until some walkerlover raged at my constant walker "bashing", but there is nothing else to say. People are just ignorant sometimes and theres no way to change it. Just look at Christianity :P And you are correct, this is a hobby of mine. I love to look into detections and protections. Some I can fix, some the devs can. And some... are a collaboration. Many people have no idea what drives L2.NET's engine. There is more then a few people working to make botting possible. L2.NET's community is stronger then ever. PS, O gosh, look at me talking about L2.NET again... I guess foxefire was right. I must be out to eat his babys.
  4. Did I ever mention L2.NET? Sigh... What this means is that GG is able to detect and ban members via GG string detections from processes. Think before you post next time, thanks for your input. Just fyi, the auto settings already surpass walker in many areas... and the scripting already surpasses L2walker is every way. Yep, intrussive GG is intrussive. God I hate these kinds of protections, there are way better protections then invading privacy.
  5. well, im no GG expert. But if a string with walker lines are in the GG, it cant be a good thing.
  6. These are some of the decrypted strings Fyyre was able to decrypt. http://fyyre.ivory-tower.de/gameguard/rev_1467.txt pos 9D1FC: L2Walker Mutex pos 9D210: MutexToL2Walker Think you are safe using walker on retail? :<
  7. That server is not unbottable. But the population is low, aka low interest for L2.NET... try the following for example. Install a loopback adapter, install L2.NET on a second computer. comp1 Run Lineage 2, install loopbackadapter and redirect ip top second comp, aka 192.168.1.101 comp2 L2.NET, listen for the connection from 192.168.1.100 (not the local host... 127.0.0.1), tunnel to nubfight with their intrusive client side protection. GG protection.
  8. suprised my old walker scripts arent in there. They are still posted on my filefront :P
  9. lol paint edited :P Honestly, we are still working out kinks out of L2.NET to get the bot to work 100%. Plus more changes are coming next release.
  10. yes... why not try it instead of waiting for days for a simple reply.
  11. next step is to be able to start editing the login server process :P
  12. Do you know exploits for newbies who post in the wrong section and give the most vague question? You know, to repel them from future postings? www.nub.ru
  13. I just love how all the people who vote for L2W have -5 karma, aka... the tards :D L2.NET = Windows / for the smarter users who believe in control over their apps. With customization L2W = mac / for retarded members wanting something quick n fast that "works".
  14. updated to v1.2, bot now sends a message to the client with the instructions, ALL L2.NET packets are also blocked.
  15. RPG club official bypass. Follow the steps, YOU NEED L2.NET 385 or over to use this script. Currently in BETA, do not ask for the beta build, you will not have it. Remember to donate once 385 is released, the devs listen to their players and help them out with private servers, without that, botting would be impossible. Brought to you by insane-gamers.com L2.NET 385+ //credit to obce for half the code :P //finished by mpj123 //v1.3 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 //PRINT_TEXT "I fired!" 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" for a 0 255 1 block_SELF "<&a&>" blockex_SELF "<&a&>" next //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 blockex_SELF 36 // save 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
  16. This is the same as my other thread's autoreply, but without the bugs :) Features -auto reply for any kind of chat -auto reply for being attacked, magic, melee, ranged -alarms for chat -alarms for grief -alarms for getting attacked -detection if the same user is bot-testing you -multiple replys per word -detects partial phrases -liberty to add more then one reply per detection word more FACTS -More powerful then L2Walker's auto-reply -Works with any other scripts, just include it -Smart detection to not be replying to the same person -delay between speeches, no multiple conversations -Alarms in case you want them -Kickass writer. -L2.NET compatible :) report bugs in this forum for faster responses, http://insane-gamers.com/showthread.php/4472-Auto-Reply-Official-Release?highlight=auto-reply or reply here. PRINT_TEXT "Autoreply script made by mpj123, this is the STAND ALONE version v1.2" PRINT_TEXT "Special thanks to d00d for the packet info from his Buff Awareness Script" PRINT_TEXT "Special thanks to galozeh, and Jeapordy for ideas, beta testing and code." PRINT_TEXT "And ofc slothmo for his hard work, making this possible :)" PRINT_TEXT "More scripts at ltwonet.com! JOIN US NOW! Be a part of the L2.NET community!" //Debug? 0 = off // 1 = on DEFINE_GLOBAL INT DEBUG 1 //How many seconds before another message can be sent? Calculated in SECONDS. //Recommended 10 to 60 DEFINE_GLOBAL INT DelayBetweenMessages 1 //Do you want to allow sound alerts for chat messages? 0 = off // 1 = on DEFINE_GLOBAL INT ENABLESOUND 1 //Do you want to allow sound alerts when being attacked by the same person? 0 = off // 1 = on DEFINE_GLOBAL INT ENABLESOUND2 1 //Do you want to replys to melee skills (when a player attacks you) 0 = off // 1 = on DEFINE_GLOBAL INT MELEEREPLYTOGGLE 1 //Do you want to replys to any skills (when a player attacks you) 0 = off // 1 = on DEFINE_GLOBAL INT SKILLREPLYTOGGLE 1 //Do you want to allow alerts for when a player attacks you DEFINE_GLOBAL INT ENABLESOUND3 1 //Do you want to replys to ANY chat? //WARNING, if this is turned off, no replys will be made to ANY chat channels! 0 = off // 1 = on DEFINE_GLOBAL INT CHATREPLYTOGGLE 1 //Which channel should be monitored... /// 1 = enable // 0 = disable //All chat DEFINE_GLOBAL INT CHAN0 1 //Shout DEFINE_GLOBAL INT CHAN1 1 //Private message DEFINE_GLOBAL INT CHAN2 1 //Party chat DEFINE_GLOBAL INT CHAN3 0 //Clan chat DEFINE_GLOBAL INT CHAN4 0 //GM DEFINE_GLOBAL INT CHAN5 1 //Petition DEFINE_GLOBAL INT CHAN6 1 //Petition2 DEFINE_GLOBAL INT CHAN7 1 //Trade DEFINE_GLOBAL INT CHAN8 0 //Ally chat DEFINE_GLOBAL INT CHAN9 0 //Announcement DEFINE_GLOBAL INT CHAN10 0 //Boat chat DEFINE_GLOBAL INT CHAN11 0 //partyroom chat DEFINE_GLOBAL INT CHAN15 0 //PartyCommander chat DEFINE_GLOBAL INT CHAN16 0 //Hero DEFINE_GLOBAL INT CHAN17 0 //your nicknames.... for instance if you name is killerbeast, your nicknames could be Kill, Beast //WARNING, names MUST BE IN lower case! KILLERBEAST would NEED to be killerbeast to work. DEFINE_GLOBAL ARRAYLIST MyName 0 MyName.ADD "#$kill" MyName.ADD "#$beast" MyName.ADD "#$killbeast" //add more if you wish //If somebody attacks you with a skill or melee DEFINE_GLOBAL ARRAYLIST AttackReply 0 AttackReply.ADD "#$Yo buddy" AttackReply.ADD "#$Not nice :(" AttackReply.ADD "#$WAAAA" //add more if you wish //This arraylist is to define all the words you wish to reply to. DEFINE_GLOBAL ARRAYLIST STRINGREPLY 0 STRINGREPLY.ADD "#$bot" //1 STRINGREPLY.ADD "#$noob" //2 STRINGREPLY.ADD "#$naab" //3 STRINGREPLY.ADD "#$<&CHAR_NAME&>" //4 //add more if you wish // //Start of replys // DEFINE_GLOBAL ARRAYLIST Reply1 0 Reply1.ADD "#$Nope" Reply1.ADD "#$haha" //add more if you wish DEFINE_GLOBAL ARRAYLIST Reply2 0 Reply2.ADD "#$Low." Reply2.ADD "#$I cant say :)" Reply2.ADD "#$No comprende BR mangs! JAJAJA" //add more if you wish DEFINE_GLOBAL ARRAYLIST Reply3 0 Reply3.ADD "#$Low." Reply3.ADD "#$I cant say :)" Reply3.ADD "#$No comprende BR mangs! JAJAJA" //add more if you wish DEFINE_GLOBAL ARRAYLIST Reply4 0 Reply4.ADD "#$Am I ^^" //add more if you wish // //End of replys // DEFINE_GLOBAL ARRAYLIST PHRASEREPLY 0 //you will need to add more Reply(number) if you added more responses. PHRASEREPLY.ADD Reply1 PHRASEREPLY.ADD Reply2 PHRASEREPLY.ADD Reply3 PHRASEREPLY.ADD Reply4 //add more if you wish // // // // //END OF USER-SET OPTIONS // //DO NOT TOUCH // // // // //Arraylists DEFINE_GLOBAL ARRAYLIST SAVELIST 0 //INT DEFINE_GLOBAL INT IsItPrivate 0 DEFINE_GLOBAL INT PhraseToSay 0 DEFINE_GLOBAL INT PhraseToSay2 0 DEFINE_GLOBAL INT HowManyLines 0 DEFINE_GLOBAL INT MESSAGEVAR 0 DEFINE_GLOBAL INT MESSAGESENT 0 DEFINE_GLOBAL INT CURRENTNUMBER 0 DEFINE_GLOBAL INT TYPEMESSAGE 0 DEFINE_GLOBAL INT LASTID 0 DEFINE_GLOBAL INT GLOBALTIMER 10 DEFINE_GLOBAL INT TimeCalc 0 DEFINE_GLOBAL INT TimeCalc1 0 DEFINE_GLOBAL INT DONOTTALK 0 //STRINGS DEFINE_GLOBAL STRING PNAME "" DEFINE_GLOBAL STRING MESSAGELOWER "" DEFINE_GLOBAL STRING STRCURRENT "" DEFINE_GLOBAL STRING MESSAGEREPLY "" DEFINE_GLOBAL STRING MESSAGEREPLY2 "" DEFINE_GLOBAL STRING HowManyLines2 "" DEFINE_GLOBAL STRING SelfReply "-><&Char_name&>" IF MELEEREPLYTOGGLE == ONE //Melee Attack SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" Melee 51 ENDIF IF SKILLREPLYTOGGLE == ONE //Skill User SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" SkillUser 72 //Canceled skill SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" NOTHING 73 ENDIF IF CHATREPLYTOGGLE == ONE //Chat SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" Reply ENDIF //Time Counter and Infinit Loop IF DEBUG == ONE PRINT_TEXT "TimeCounter thread started" ENDIF GLOBALTIMER = DelayBetweenMessages WHILE ZERO == ZERO SLEEP 1000 GLOBALTIMER = GLOBALTIMER + ONE IF DEBUG == ONE //PRINT_TEXT "<&GLOBALTIMER&>" ENDIF WEND ************************************************************************************************************ ***************************************Functions************************************************************** ************************************************************************************************************ // //FUNCTION REPLY // Function REPLY IF MESSAGESENT == 1 IF DEBUG == 1 PRINT_TEXT "Already in message sending process, not applying reply" ENDIF RETURN VOID ENDIF IF SENDERNAME == SelfReply IF DEBUG == ONE PRINT_TEXT "Self testing.... ignoring second PM" ENDIF RETURN VOID ENDIF MESSAGELOWER = MESSAGE.TO_LOWER_INVARIANT TYPEMESSAGE = MESSAGETYPE IF DEBUG == ONE PRINT_TEXT "in REPLY function" PRINT_TEXT "This is the message: <&MESSAGE&>" PRINT_TEXT "This is the message in lower caps: <&MESSAGELOWER&>" PRINT_TEXT "This is a name to ignore: <&SelfReply&>" ENDIF IF ENABLESOUND == ONE FOREACH I STRING MyName PNAME = MyName.I //Print_text "<&PNAME&>" IF "MESSAGELOWER.CONTAINS PNAME" == TRUE PRINT_TEXT "PLAYING WAVE SOUND, <&SENDERNAME&> is calling us!" PLAYALARM ENDIF NEXTEACH ENDIF TimeCalc1 = GLOBALTIMER - TimeCalc IF TimeCalc1 < DelayBetweenMessages IF DEBUG == ONE PRINT_TEXT "Can't be spamming like crazy. User set time until next message can be sent:<&DelayBetweenMessages&> and current time: <&TimeCalc1&>" ENDIF RETURN VOID ENDIF MESSAGESENT = 1 CALLSUB REPLYNOW MESSAGESENT = 0 RETURN VOID // //Melee // FUNCTION Melee IF DEBUG == ONE PRINT_TEXT "in Melee function" ENDIF DEFINE STRING TargeteeName "" DEFINE INT p_MSU_packet_type2 0 DEFINE INT p_MSU_source_id2 0 DEFINE INT p_MSU_target_id2 0 PACKET.READ_BYTE p_MSU_packet_type2 PACKET.READ_INT32 p_MSU_source_id2 PACKET.READ_INT32 p_MSU_target_id2 CHAR_GET_NAME TargeteeName "<&p_MSU_source_id2&>" IF DEBUG == ONE PRINT_TEXT "This is the name of the attacker: <&TargeteeName&>" ENDIF IF TargeteeName == "#$<&CHAR_NAME&>" IF DEBUG == ONE PRINT_TEXT "seems like this packet is from ourselves attacking, not replying to this" ENDIF RETURN VOID ENDIF IF TargeteeName == "#$-nobody-" IF DEBUG == ONE PRINT_TEXT "This is a mob attacking, no need to reply" ENDIF RETURN VOID ENDIF IF DEBUG == ONE PRINT_TEXT "attack coming from:<&p_MSU_source_id2&> Hitting: <&p_MSU_target_id2&>" ENDIF IF ENABLESOUND3 == ONE IF DEBUG == ONE PRINT_TEXT "Melee function alarm activated!" ENDIF PLAYALARM ENDIF IF LASTID == p_MSU_source_id2 IF DEBUG == ONE PRINT_TEXT "Hey, thats the same person trying to get us to talk again! What a douche." ENDIF IF ENABLESOUND2 == ONE IF DEBUG == ONE PRINT_TEXT "ENABLESOUND2 is ringing!" ENDIF PLAYALARM ENDIF ENDIF IF p_MSU_target_id2 == CHAR_ID LASTID = p_MSU_source_id2 TimeCalc1 = GLOBALTIMER - TimeCalc IF TimeCalc1 < DelayBetweenMessages IF DEBUG == ONE PRINT_TEXT "Can't be spamming like crazy. User set time until next message can be sent:<&DelayBetweenMessages&> and current time: <&TimeCalc1&>" ENDIF RETURN VOID ENDIF IF DEBUG == ONE PRINT_TEXT "We are getting hit with melee or ranged." PRINT_TEXT "Our char ID = <&CHAR_ID&>" ENDIF MESSAGESENT = 1 CALLSUB TALKBACK MESSAGESENT = 0 ENDIF RETURN VOID // //FUNCTION SkillUser // FUNCTION SkillUser IF DEBUG == ONE PRINT_TEXT "in SkillUser function" ENDIF DEFINE INT p_MSU_packet_type 0 DEFINE INT p_MSU_source_id 0 DEFINE INT p_MSU_target_id 0 DEFINE INT p_MSU_skill_id 0 DEFINE INT p_MSU_skill_level 0 DEFINE INT p_MSU_hit_time 0 DEFINE INT p_MSU_reuse_delay 0 PACKET.READ_BYTE p_MSU_packet_type PACKET.READ_INT32 p_MSU_source_id PACKET.READ_INT32 p_MSU_target_id PACKET.READ_INT32 p_MSU_skill_id PACKET.READ_INT32 p_MSU_skill_level PACKET.READ_INT32 p_MSU_hit_time PACKET.READ_INT32 p_MSU_reuse_delay DEFINE STRING TargeteeName "" CHAR_GET_NAME TargeteeName "<&p_MSU_source_id&>" IF DEBUG == ONE PRINT_TEXT "This is the name of the attacker: <&TargeteeName&>" ENDIF IF TargeteeName == "#$<&CHAR_NAME&>" IF DEBUG == ONE PRINT_TEXT "seems like this packet is from ourselves attacking, not replying to this" ENDIF RETURN VOID ENDIF IF TargeteeName == "#$-nobody-" IF DEBUG == ONE PRINT_TEXT "This is a mob attacking, no need to reply" ENDIF RETURN VOID ENDIF IF ENABLESOUND3 == ONE IF DEBUG == ONE PRINT_TEXT "Skill function alarm activated!" ENDIF PLAYALARM ENDIF IF DEBUG == ONE PRINT_TEXT "Who the caster is targetting: ID = <&p_MSU_target_id&>" ENDIF IF LASTID == p_MSU_source_id IF DEBUG == ONE PRINT_TEXT "Hey, thats the same person trying to get us to talk again! What a douche." ENDIF IF ENABLESOUND2 == ONE PLAYALARM ENDIF ENDIF IF p_MSU_target_id == CHAR_ID LASTID = p_MSU_source_id TimeCalc1 = GLOBALTIMER - TimeCalc IF TimeCalc1 < DelayBetweenMessages IF DEBUG == ONE PRINT_TEXT "Can't be spamming like crazy. User set time until next message can be sent:<&DelayBetweenMessages&> and current time: <&TimeCalc1&>" ENDIF RETURN VOID ENDIF IF DEBUG == ONE PRINT_TEXT "We are getting casted on with magic by <&p_MSU_source_id&> in <&p_MSU_hit_time&> Milliseconds" PRINT_TEXT "Our char ID = <&CHAR_ID&>" ENDIF MESSAGESENT = 1 CALLSUB SKILLWATCHFORCANCEL MESSAGESENT = 0 ENDIF RETURN VOID // //Fucntion SkillCanceled // FUNCTION SkillCanceled IF DEBUG == ONE PRINT_TEXT "in SkillCanceled function" ENDIF DEFINE INT p_MSU_packet_type2 0 DEFINE INT p_MSU_source_id2 0 PACKET.READ_BYTE p_MSU_packet_type2 PACKET.READ_INT32 p_MSU_source_id2 IF DEBUG == ONE PRINT_TEXT "<&p_MSU_source_id2&>" ENDIF IF LASTID == p_MSU_source_id2 IF DEBUG == ONE PRINT_TEXT "User stopped his cast! We wont say anything!" ENDIF DONOTTALK = ONE ENDIF RETURN VOID FUNCTION NOTHING IF DEBUG == ONE PRINT_TEXT "Function NOTHING fired up" ENDIF //does nothing RETURN VOID ************************************************************************************************************ ***************************************SUBS************************************************************** ************************************************************************************************************ SUB REPLYNOW // //Pre message-code, do not touch unless you know what your doing. // IF DEBUG == ONE PRINT_TEXT "in REPLYNOW sub" ENDIF SWITCH TYPEMESSAGE CASE #i0 IF CHAN0 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i0 BREAK 1 CASE #i1 IF CHAN1 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i1 BREAK 1 CASE #i2 IF CHAN2 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i2 BREAK 1 CASE #i3 IF CHAN3 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i3 BREAK 1 CASE #i4 IF CHAN4 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i4 BREAK 1 CASE #i5 IF CHAN5 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i5 BREAK 1 CASE #i6 IF CHAN6 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i6 BREAK 1 CASE #i7 IF CHAN7 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i7 BREAK 1 CASE #i8 IF CHAN8 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i8 BREAK 1 CASE #i9 IF CHAN9 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i9 BREAK 1 CASE #i10 IF CHAN10 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i10 BREAK 1 CASE #i11 IF CHAN11 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i11 BREAK 1 CASE #i15 IF CHAN15 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i15 BREAK 1 CASE #i16 IF CHAN16 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i16 BREAK 1 CASE #i17 IF CHAN17 != #i1 RETURNSUB ENDIF MESSAGEVAR = #i17 BREAK 1 DEFAULT RETURNSUB BREAK 1 ENDSWITCH // //END of pre-message code // FOREACH W string STRINGREPLY STRCURRENT = "#$<&STRINGREPLY.W&>" SAVELIST = PHRASEReply.W HowManyLines = SAVELIST.COUNT IF DEBUG == ONE PRINT_TEXT "HowManyLines = <&HowManyLines&>" ENDIF IF "MESSAGELOWER.CONTAINS #$<&STRCURRENT&>" == TRUE GET_RAND PhraseToSay 1 "<&HowManyLines&>" PhraseToSay = PhraseToSay - 1 SLEEP 500 SLEEP_HUMAN_READING "<&MESSAGE&>" SLEEP_HUMAN_WRITING "<&MESSAGEREPLY&>" TimeCalc = GLOBALTIMER SAY_TEXT "<&MESSAGEVAR&>" "<&SAVELIST.PhraseToSay&>" "<&SENDERNAME&>" RETURNSUB ENDIF NEXTEACH RETURNSUB // //SUB SKILLWATCHFORCANCEL // SUB SKILLWATCHFORCANCEL LOCK SkillUser SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" SkillCanceled 73 SLEEP "<&p_MSU_hit_time&>" SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" NOTHING 73 UNLOCK SkillUser CALLSUB TALKBACK RETURNSUB // //SUB TALKBACK // SUB TALKBACK IF DONOTTALK == ZERO TimeCalc = GLOBALTIMER HowManyLines2 = "AttackReply.COUNT" GET_RAND PhraseToSay2 1 "<&HowManyLines2&>" PhraseToSay2 = PhraseToSay2 - 1 MESSAGEREPLY2 = "#$AttackReply.PhraseToSay2" SLEEP 2000 SLEEP_HUMAN_WRITING "<&MESSAGEREPLY2&>" SAY_TEXT "CHANNEL_ALL" "<&<&MESSAGEREPLY2&>&>" ELSE IF DEBUG == ONE PRINT_TEXT "-beep-er canceled his skill, trying to see if were bots, not replying." ENDIF ENDIF DONOTTALK = ZERO RETURNSUB output:
  17. tutorial? Are you serious? Just put in a value and click generate box. lol
  18. what do you need a video for, I would think its pretty straight forward.
  19. the guide is old, shouldn't be used anymore. :<
  20. Theres nothing special with L2INC, no idea why so many people have trouble with it. Redirect the ip and login, :<
×
×
  • Create New...