Jump to content

[SHARE] L2.NET script for AUTO REPLY, advanced


mpj123

Recommended Posts

Its finally here and finished. If there are ANY bugs, please report them (I worked on this script for a while, hoping theres 0...)

 

The only thing needed to edit are settings, and word lists. Once you make your word list, you dont need to make em again, you can use them for every character. So its a one shot deal. Feel free to post your word dictionary.

 

I've worked two releases... one which can easily be added into another script, and another which can be ran just like that. Here they are.

 

Download link with everything

http://www.filefront.com/13969901/AutoReply.rar/

 

README


******************************************************
Welcome, and thank you for the interest in this script.
This script took a while to work out all of the kinks
and bugs, as well as adding new features... well over
30 hours of work in this script. Testing is very time
consuming :P... Theres been over 20 betas o_O

******************************************************
***************HOW TO*********************************
******************************************************

Well, theres two versions of this script included,

Version 1: Stand Alone script
Its pretty simple, open up the script, read through
and set according to your liking. You can put this
file anywhere. Remember to add more word base :)

Version 2: Include/add-on script
First off, put the "autoreplyCALLEXTERN.l2s" script
in L2.NET BETA\Scripts\Include

Next, add the following line to the beginning of your
script, may it be a simple shop script or an advanced
custom autofighter script. (just make sure the script
never ends)

THREAD AUTOREPLY

Next, scroll all the way down to the end of your script
and add the following.

FUNCTION AUTOREPLY
CALL_EXTERN "INCLUDE/autoreplyCALLEXTERN.l2s" REPLYSCRIPTSET VOID 23 #iA #iB #iC #iD #iE #iF #iG #iH #iI #iJ #iK #iL #iM #iN #iO #iP #iQ #iR #iS #iT #iU #iV #IW
PRINT_TEXT "SCRIPT ENDED"
RETURN VOID

Every letter after the number "23" represents a setting, here is the list. (replace the letters with your choice)

A = Debug? 0 = off // 1 = on
B = How many seconds before another message can be sent? Calculated in SECONDS.
C = Do you want to allow sound alerts for chat messages? 0 = off // 1 = on
D = Do you want to allow sound alerts when being attacked by the same person? 0 = off // 1 = on
E = Do you want to allow alerts for when a player attacks you? 0 = off // 1 = on
F = Do you want to replys to melee (when a player attacks you) 0 = off // 1 = on
G = Do you want to replys to any skills (when a player attacks you) 0 = off // 1 = on
H = 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

//Channel settings
I = All chat
J = Shout
K = Private message
L = Party chat
M = Clan chat
N = GM
O = Petition
P = Petition2
Q = Trade
R = Ally chat
S = Announcement
T = Boat chat
U = partyroom chat
V = PartyCommander chat
W = Hero

 

 

Stand Alone Version

PRINT_TEXT "Autoreply script made by mpj123, this is the STAND ALONE version."
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 0

//How many seconds before another message can be sent? Calculated in SECONDS.
//Recommended 10 to 60
DEFINE_GLOBAL INT DelayBetweenMessages 13

//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 1
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
ENDIF

IF CHATREPLYTOGGLE == ONE
//Chat
SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" Reply
//Canceled skill
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" NOTHING 73
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 DEBUG == ONE
PRINT_TEXT "in REPLY function"
ENDIF
MESSAGESENT = ONE
MESSAGELOWER = MESSAGE.TO_LOWER_INVARIANT
TYPEMESSAGE = MESSAGETYPE

IF DEBUG == ONE
PRINT_TEXT "This is the message: <&MESSAGE&>"
PRINT_TEXT "This is the message in lower caps: <&MESSAGELOWER&>"
ENDIF

IF DEBUG == ONE
PRINT_TEXT "This is a name to ignore: <&SelfReply&>"
ENDIF

IF SENDERNAME == SelfReply
IF DEBUG == ONE
PRINT_TEXT "Self testing.... ignoring second PM"
ENDIF
RETURN VOID
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

CALLSUB REPLYNOW
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
CALLSUB TALKBACK
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
CALLSUB SKILLWATCHFORCANCEL
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


IF TYPEMESSAGE == CHANNEL_PRIVATE
IsItPrivate = ONE
IF DEBUG == ONE
PRINT_TEXT "ITS A PRIVATE MESSAGE"
ENDIF
ELSE
IsItPrivate = ZERO
IF DEBUG == ONE
PRINT_TEXT "ITS NOT A PRIVATE MESSAGE"
ENDIF
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
//

IF DEBUG == ONE
PRINT_TEXT "<&MESSAGEVAR&>"
ENDIF

FOREACH W string STRINGREPLY
STRCURRENT = "#$<&STRINGREPLY.W&>"
SAVELIST = PHRASEReply.W
MESSAGEREPLY = "#$SAVELIST.PhraseToSay"
HowManyLines = SAVELIST.COUNT
GET_RAND PhraseToSay 0 "<&HowManyLines&>"

IF DEBUG == ONE
PRINT_TEXT "HowManyLines = <&HowManyLines&>"
PRINT_TEXT "MESSAGEREPLY = <&MESSAGEREPLY&>"
PRINT_TEXT "STRCURRENT = <&STRCURRENT&>"
ENDIF

IF "MESSAGELOWER.CONTAINS #$<&STRCURRENT&>" == TRUE
SLEEP 500
IF IsItPrivate == ONE
SLEEP_HUMAN_READING "<&MESSAGE&>"
SLEEP_HUMAN_WRITING "<&MESSAGEREPLY&>"
TimeCalc = GLOBALTIMER
SAY_TEXT "<&MESSAGEVAR&>" "<&<&MESSAGEREPLY&>&>" "<&SENDERNAME&>"
RETURNSUB
ELSE
SLEEP_HUMAN_READING "<&MESSAGE&>"
SLEEP_HUMAN_WRITING "<&MESSAGEREPLY&>"
TimeCalc = GLOBALTIMER
SAY_TEXT "<&MESSAGEVAR&>" "<&<&MESSAGEREPLY&>&>"
RETURNSUB
ENDIF
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 0 "<&HowManyLines2&>"
MESSAGEREPLY2 = "#$AttackReply.PhraseToSay2"
SLEEP 2000
SLEEP_HUMAN_WRITING "<&MESSAGEREPLY2&>"
SAY_TEXT "CHANNEL_ALL" "<&<&MESSAGEREPLY2&>&>"
IF DEBUG == ONE
PRINT_TEXT "SENT MESSAGE!"
ENDIF
ELSE
IF DEBUG == ONE
PRINT_TEXT "-beep-er canceled his skill, trying to see if were bots, not replying."
ENDIF
ENDIF
DONOTTALK = ZERO
RETURNSUB

 

 

Link to comment
Share on other sites

Include Version

FUNCTION REPLYSCRIPTSET 23 A B C D E F G H I J K L M N O P Q R S T U V W

PRINT_TEXT "Autoreply made by mpj123, this is the CALL_EXTERN version"
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 <&A&>

//How many seconds before another message can be sent? Calculated in SECONDS.
//Recommended 10 to 60
DEFINE_GLOBAL INT DelayBetweenMessages <&B&>

//Do you want to allow sound alerts for chat messages? 0 = off // 1 = on
DEFINE_GLOBAL INT ENABLESOUND <&C&>

//Do you want to allow sound alerts when being attacked by the same person? 0 = off // 1 = on
DEFINE_GLOBAL INT ENABLESOUND2 <&D&>

//Do you want to allow alerts for when a player attacks you
DEFINE_GLOBAL INT ENABLESOUND3 <&E&>

//Do you want to replys to melee (when a player attacks you) 0 = off // 1 = on
DEFINE_GLOBAL INT MELEEREPLYTOGGLE <&F&>

//Do you want to replys to any skills (when a player attacks you) 0 = off // 1 = on
DEFINE_GLOBAL INT SKILLREPLYTOGGLE <&G&>

//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 <&H&>

//Which channel should be monitored... /// 1 = enable // 0 = disable
//All chat
DEFINE_GLOBAL INT CHAN0 <&I&>
//Shout
DEFINE_GLOBAL INT CHAN1 <&J&>
//Private message
DEFINE_GLOBAL INT CHAN2 <&K&>
//Party chat
DEFINE_GLOBAL INT CHAN3 <&L&>
//Clan chat
DEFINE_GLOBAL INT CHAN4 <&M&>
//GM
DEFINE_GLOBAL INT CHAN5 <&N&>
//Petition
DEFINE_GLOBAL INT CHAN6 <&O&>
//Petition2
DEFINE_GLOBAL INT CHAN7 <&P&>
//Trade
DEFINE_GLOBAL INT CHAN8 <&Q&>
//Ally chat
DEFINE_GLOBAL INT CHAN9 <&R&>
//Announcement
DEFINE_GLOBAL INT CHAN10 <&S&>
//Boat chat
DEFINE_GLOBAL INT CHAN11 <&T&>
//partyroom chat
DEFINE_GLOBAL INT CHAN15 <&U&>
//PartyCommander chat
DEFINE_GLOBAL INT CHAN16 <&V&>
//Hero
DEFINE_GLOBAL INT CHAN17 <&W&>


//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 1
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
ENDIF

IF CHATREPLYTOGGLE == ONE
//Chat
SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" Reply
//Canceled skill
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" NOTHING 73
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 DEBUG == ONE
PRINT_TEXT "in REPLY function"
ENDIF
MESSAGESENT = ONE
MESSAGELOWER = MESSAGE.TO_LOWER_INVARIANT
TYPEMESSAGE = MESSAGETYPE

IF DEBUG == ONE
PRINT_TEXT "This is the message: <&MESSAGE&>"
PRINT_TEXT "This is the message in lower caps: <&MESSAGELOWER&>"
ENDIF

IF DEBUG == ONE
PRINT_TEXT "This is a name to ignore: <&SelfReply&>"
ENDIF

IF SENDERNAME == SelfReply
IF DEBUG == ONE
PRINT_TEXT "Self testing.... ignoring second PM"
ENDIF
RETURN VOID
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

CALLSUB REPLYNOW
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
CALLSUB TALKBACK
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
CALLSUB SKILLWATCHFORCANCEL
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


IF TYPEMESSAGE == CHANNEL_PRIVATE
IsItPrivate = ONE
IF DEBUG == ONE
PRINT_TEXT "ITS A PRIVATE MESSAGE"
ENDIF
ELSE
IsItPrivate = ZERO
IF DEBUG == ONE
PRINT_TEXT "ITS NOT A PRIVATE MESSAGE"
ENDIF
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
//

IF DEBUG == ONE
PRINT_TEXT "<&MESSAGEVAR&>"
ENDIF

FOREACH W string STRINGREPLY
STRCURRENT = "#$<&STRINGREPLY.W&>"
SAVELIST = PHRASEReply.W
MESSAGEREPLY = "#$SAVELIST.PhraseToSay"
HowManyLines = SAVELIST.COUNT
GET_RAND PhraseToSay 0 "<&HowManyLines&>"

IF DEBUG == ONE
PRINT_TEXT "HowManyLines = <&HowManyLines&>"
PRINT_TEXT "MESSAGEREPLY = <&MESSAGEREPLY&>"
PRINT_TEXT "STRCURRENT = <&STRCURRENT&>"
ENDIF

IF "MESSAGELOWER.CONTAINS #$<&STRCURRENT&>" == TRUE
SLEEP 500
IF IsItPrivate == ONE
SLEEP_HUMAN_READING "<&MESSAGE&>"
SLEEP_HUMAN_WRITING "<&MESSAGEREPLY&>"
TimeCalc = GLOBALTIMER
SAY_TEXT "<&MESSAGEVAR&>" "<&<&MESSAGEREPLY&>&>" "<&SENDERNAME&>"
RETURNSUB
ELSE
SLEEP_HUMAN_READING "<&MESSAGE&>"
SLEEP_HUMAN_WRITING "<&MESSAGEREPLY&>"
TimeCalc = GLOBALTIMER
SAY_TEXT "<&MESSAGEVAR&>" "<&<&MESSAGEREPLY&>&>"
RETURNSUB
ENDIF
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 0 "<&HowManyLines2&>"
MESSAGEREPLY2 = "#$AttackReply.PhraseToSay2"
SLEEP 2000
SLEEP_HUMAN_WRITING "<&MESSAGEREPLY2&>"
SAY_TEXT "CHANNEL_ALL" "<&<&MESSAGEREPLY2&>&>"
IF DEBUG == ONE
PRINT_TEXT "SENT MESSAGE!"
ENDIF
ELSE
IF DEBUG == ONE
PRINT_TEXT "Fucker canceled his skill, trying to see if were bots, not replying."
ENDIF
ENDIF
DONOTTALK = ZERO
RETURNSUB

RETURN VOID

 

 

EXAMPLE OF INCLUDE VERSION

//Put this at the beginning of your script
THREAD AUTOREPLY

WHILE ZERO == ZERO
//
//This is normally where you would enter your script
//
SLEEP 1000
SAY_TEXT "This is a test"
WEND

//Put this at the end of one of your scripts
FUNCTION AUTOREPLY
CALL_EXTERN "INCLUDE/autoreplyCALLEXTERN.l2s" REPLYSCRIPTSET VOID 23 #i0 #i13 #i1 #i1 #i1 #i1 #i1 #i1 #i1 #i1 #i1 #i0 #i0 #i0 #i0 #i1 #i0 #i0 #i0 #i0 #i0 #i0 #i0
PRINT_TEXT "SCRIPT ENDED"
RETURN VOID
END_SCRIPT

Link to comment
Share on other sites

  • 1 month later...

finally somebody tried it... Well, I have one thing I need to fix but since nobody was using it, I never bothered to. Guess I'm ganna have to do it now :)

Link to comment
Share on other sites

  • 2 weeks later...
  • 6 months later...
  • 4 weeks later...
  • 5 months later...
  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Posts

    • WTB Site Developer services.
    • @TZANEEN BUY UNIVERSAL SSD CHEMICAL SOLUTION  +27833928661 in South Africa, Gauteng, KwaZulu-Natal, Limpopo, Free State, Mpumalanga, North West, Western Cape, Eastern Cape, Northern Cape, Benoni, Boksburg, Brakpan, Carletonville, Germiston, Johannesburg, Krugersdorp, Mafikeng, Pretoria, Randburg, Randfontein, Roodepoort, Soweto, Springs, Vanderbijlpark, Vereeniging, Durban,  +27833928661Empangeni, Ladysmith, Newcastle, Pietermaritzburg, Pinetown, Ulundi, Umlazi, Bethlehem, Bloemfontein, Jagersfontein, Kroonstad, Odendaalsrus, Parys, Phuthaditjhaba, Sasolburg, Virginia, Welkom, Giyani, Lebowakgomo, Musina, Phalaborwa, Polokwane, Seshego, Sibasa, Emalahleni, Nelspruit, Secunda, Standerton, Klerksdorp, Mahikeng, Mmabatho, Potchefstroom, Rustenburg, Bellville, Cape Town, Constantia, George, Hopefield, Oudtshoorn, Paarl, Simon’s Town, Stellenbosch, Swellendam, Worcester, Alice, Butterworth, East London, Graaff-Reinet, Grahamstown, King William’s Town, Mthatha, Port Elizabeth, Queenstown, Uitenhage, Zwelitsha. +27833928661 Call For Ssd Chemical Solution for Cleaning All Notes +27833928661. Please inform us immediately on Email: Kennroger77@gmail.com Or Call: +27833928661. https://Kennroger7.Blogspot.com/website https://Kennroger7.Blogspot.com/techniciankenn https://Kennroger7.blogspot.com/   We Clean all types of Currencies call  +27833928661 Ssd Solution Chemical for Cleaning Black Money Notes Call +27833928661 Ssd Solution Used to Clean all type of Blackened +27833928661, Tainted and Defaced Bank Notes  +27833928661. We Sell Ssd Chemical Solution Used to Clean All type of Black Money and any Color Currency, Stain and Defaced Bank Notes with any others equipment being bad. Our technicians are highly qualified and are always ready to handle the cleaning perfectly. Our chemical is 100% Pure. Automatic Ssd Solution for Sale +27833928661 Rustenburg, Mafikeng, Polokwane Durban/east London, Pretoria, Johannesburg, Mpumalanga. Ssd chemical Solution for Sale in Johannesburg  +27833928661 in Zimbabwe, Mozambique, Angola, Namibia, Botswana, Lesotho and Swaziland Call and Buy Ssd Chemical Solution for Defaced Banknotes +27833928661 in Mozambique, South Africa, Lesotho, Swaziland, Namibia, Angola, Botswana, Mauritius, Zambia, Zimbabwe, Mauritania, Mauritius, Congo Call For 100% Pure Ssd Chemical Solution +27833928661 in Finland and USA.   Ssd Chemical Solution for all Defaced Bank Notes in Bloemfontein +27833928661 in Johannesburg, Cape town, Polokwane, Rustenburg, Kimberley, Durban, Pietermaritzburg, Klerksdorp, Mafikeng, Belgium, Honduras, Brazil, Argentina.  +27833928661 We are Specialized in Chemistry for anti-breeze Bank Notes. We also do Chemicals Melting and Recovering of all type of bad money from black to white Call +27833928661. We also sale chemicals like tourmaline,  +27833928661 Ssd Chemical solution and many other activation powder. About Ssd Solution for cleaning black money chemical and allied product incorporated is a major manufacturer of industrial and pharmaceutical products with key specialization in the production of ssd automatic solution used in the cleaning of black money and defaced money and stained bank notes with anti -breeze quality. The ssd solution in it's full range is the best chemical in the market for cleaning anti breeze bank notes, defaced currency and marked notes. Others for damaged notes. +27833928661 Please inform us immediately on Email: Kennroger77@gmail.com or Call: +27833928661. https://Kennroger7.Blogspot.com/website https://Kennroger7.Blogspot.com/techniciankenn https://Kennroger7.blogspot.com/
    • @ (3 IN 1, WORKING 100%) SSD CHEMICAL SOLUTIONS +27833928661 AND ACTIVATION POWDER FOR CLEANING OF BLACK NOTES @BUY SSD CHEMICAL SOLUTIONS ON GOOD PRICE +27833928661, +27833928661 @ CLEANING BLACK NOTES WITH SSD CHEMICALUTUTIONS @BEST SUPPLIERS OF SSD CHEMICAL SOLUTIONS +27833928661 IN Qatar, New York, Limpopo, London, Venezuela, Chile, Sweden, Denmark, Rwanda, Oman ,, Dubai, Poland New Castle, Namibia, Botswana, Mozambique, South Africa, Limpo¬po, JORDAN, Turkey, Belgium, Saudi Arabia, Australia, Malaysia, to Johannesbu Zambia, Swaziland, Madagascar, Zimbabwe, Lesotho, Uganda, rg, Lebanon, Berhrain USA, California, Dallas, England, German, Spain, Jamaica, Brazil, Germany, Austria, Vancouver, Denmark, Hong Kong, China ,, Pretoria, Durban, Australia, Wales, France, Cairo, Namibia, Botswana, China, Norway, Sweden, Capet own, Tanzania, Northern Cape, Canada ,, Soshanguve, Pietermaritzburg Pinetown, Vaal, Polokwane Pretoria Randburg Roodepoort Rustenburg Sebokeng Soweto Springbok Stellenbosch Thohoyandou Umlazi Upington Vanderbijlpark Vereeniging Welkom Tembisa Kempton Park Port Elizabeth Bellville Boksburg Benoni Bloemfontein Cape Town Centurion Durban East London George Empangeni Katlehong Germiston Johannesburg Port Elizabeth Khayelitsha Kimberley Klerksdorp Mamelodi Mitchells Plain Mthatha Nelspruit Newcastle Witbank Eastern cape, Free State Gauteng KwaZulu-Natal Limpopo Mpumalanga Do you have black currency in form of Dollars, Pounds or Euros or any other currency? I have the most powerful and Universal cleaning chemical you are looking for. I sell SSD automatic solution, Vetrol paste 0.2A and so many others. I also have a variety of Powders needed when doing the large cleanings such as Activation powder. We specialize in cleaning all types of defaced notes, black notes, anti-breeze bank notes, stamp coated and stained currency. We melt and re-activate frozen chemicals and offer 100% cleaning for bills like dollar, euro, pounds, RANDS and transferring of colors from used note to new white bills. We offer machines for large cleaning and also deliver products to any location desired by buyers. Laboratory staff are available to demonstrate to clients how the work is done. Are you looking for: — call+27833928661 SSD Chemical Solution Chemical Solution for Cleaning Black Money call+27833928661 SSD Chemical Company SSD Chemical Solution for Cleaning Black Money SSD Preserving Company SSD Chemical Solution for Cleaning Black Money Activation Powder SSD Chemical Solution for Cleaning Black notes Active Powder Activation Powder for Cleaning Black Notes Black Money Cleaning Clean Black Money Best SSD Solution Clean Black Notes Cleaning Black Notes Cleaning Black Money PLEASE NOTE: WE ONLY DEAL IN HIGH QUALITY SSD CHEMICALS SOLUTION FOR CLEANING BLACK MONEY We are manufacturers and sellers of all sort of chemicals like SUPER AUTOMATIC SSD SOLUTION ZWV8 MODEL ACTIVATION POWDER AND REACTIVATION POWDER, ANTI AIR POWDER, MERCURY POWDER, AUTOMATED MONEY DEVELOPER MACHINES CONGEAL CHEMICAL MELTING EQUIPMENT, TEMPERATURE CONTROLLERS AND AUTOMATIC CLEANING MACHINE. WE ARE SELLING SSD CHEMICAL SOLUTION FOR CLEANING BLACK MONEY AND POWDER CALL+27833928661 purchase Best SSD Solution Clean Black Notes Dollars WE ALSO SELL CHEMICALS LIKE SSD AUTOMATIC SOLUTION FORM CLEANING BLACK DOLLARS CURRENCIES We clean all black and green money and stamped money Infinity labs pty (since 2000) *: We can help you clean your money, (+27833928661) *, we supply a high quality of the ssd solution with machi * ne and it comes with a full package of instructions and accessories. It is the ultimate anti- * breeze solution used in cleaning defaced currency. It can be referred to as black dollar etc… *. or bank stained currency. PRODUCTS AVAILABLE: * SSD SOLUTION SSD Supreme Solution SSD universal solution SSD Tourmaline solution SSD SOLUTION PK 58 SSD Topix solution SSD Castro X Oxide solution D6 SSD universal Solution D7 SSD SOLUTION PK 58 SSD MECURY DIOSINE AUTOMATIC SOLUTION SSD NSERVATION, ACTIVATION AND RE-ACTIVATION, PARACIENT POWDER, VECTROL PASTE, ZUTA S4, CASTROX OXIDE AUTOMATED MONEY DEVELOPER MACHINES CONGEAL CHEMICAL MELTING EQUIPMENTS * TEMPERATURE CONTROLLERS Our agent will meet with you in any part of the world. CALL OR WATSUPP US @+27833928661 Email: Kennroger77@gmail.com
    • World’s Best Technician for Supplying Universal Ssd Chemical Solution in Limpopo,Sasolburg,Witbank,Standarton,Secunda,Middelburg,Vanderbijlpark,Johannesburg,Secunda,Cape Town,Burgersfort, Polokwane, Thohoyandou, phalaborwa, mokopane, bochum, +27833928661lebowakgomo, mankweng, Seshego, dendron, Giyani, Lephalale, musina,Alexandra +27833928661Johannesburg Lenasia Midrand Randburg+27833928661 Roodepoort Sandton Soweto Alberton Germiston Benoni Boksburg ,rakpan Daveyton,Duduza ,edenvale ,germiston Impumelelo Isando Katlehong Kempton Park KwaThema Nigel Reiger Park Springs Tembisa Thokoza Tsakane Vosloorus Wattville Atteridgaeville Centurion Hammanskraal Irene Mamelodi Pretoria Soshanguve Boipatong Bophelong Evaton Sebokeng Sharpeville, Vereeniging,Meyerton Heidelberg Ratanda Bronkhorstspruit Ekangala Kungwini Bronberg,Cullinan Refilwe,Zithobeni ,Carletonville,Khutsong Kagiso Kromdraai KrugersdorpMagaliesburg Muldersdrift Mohlaken,Randfontein Bekkersdal,testonaria Kimberley Upington Kuruman Sprinbok Kathu Ritchie Postmasburg,Bellville Bloemfontein.+27833928661 To purchase Best SSD Chemical Solution to Clean Black Notes Dollars.WE ALSO SALE +27833928661CHEMICALS LIKE SSD AUTOMATIC SOLUTION FORM CLEANING BLACK DOLLARS CURRENCIES. I hereby use this media to inform you, that our company can clean out black deface currency, (stained money) bank notes, We have all kinds of chemicals used for cleaning of black money or stained money in currencies such as U.S Dollars, Euro, Pound, and all local currencies, even if your defaced note is 25 years old. WE SALE CHEMICALS LIKE TOURMALINE, S.S.D. Chemical / Solution , CASTRO X OXIDE, A4 AND MANY Like ACTIVATION POWDER & SSD SOLUTION FOR CLEANING BLACK MONEY Chemical and Allied product incorporated is a major manufacturer of industrial and pharmaceutical products with key specialization in the production of S.S.D Automatic solution used in the cleaning of black money , defaced money and stained bank notes with anti-breeze quality. OTHERS FOR DAMAGED NOTES, BILLS LIKE USD,EURO, POUNDS, Contact Dr.Elvis+27833928661 OR Email Kennroger77@gmail.com for more Information…Chemical Solution in Limpopo,Sasolburg,Witbank,Standarton,Secunda,Middelburg,Vanderbijlpark,Johannesburg,Secunda,Cape Town,Burgersfort, Polokwane, Thohoyandou, phalaborwa, mokopane, bochum, lebowakgomo, mankweng, Seshego, dendron, Giyani, Lephalale, musina,Alexandra Johannesburg Lenasia Midrand Randburg Roodepoort Sandton Soweto Alberton Germiston Benoni Boksburg ,rakpan Daveyton,Duduza ,edenvale ,germiston Impumelelo Isando Katlehong Kempton Park KwaThema Nigel Reiger Park Springs Tembisa Thokoza Tsakane Vosloorus Wattville Atteridgaeville Centurion Hammanskraal Irene Mamelodi Pretoria Soshanguve Boipatong Bophelong Evaton Sebokeng Sharpeville, Vereeniging,Meyerton Heidelberg Ratanda Bronkhorstspruit Ekangala Kungwini Bronberg,Cullinan Refilwe,Zithobeni ,Carletonville,Khutsong Kagiso Kromdraai KrugersdorpMagaliesburg Muldersdrift Mohlaken,Randfontein Bekkersdal,testonaria Kimberley Upington Kuruman Sprinbok Kathu Ritchie Postmasburg,Bellville Bloemfontein. To purchase Best SSD Chemical Solution to Clean Black Notes Dollars.WE ALSO SALE CHEMICALS LIKE SSD AUTOMATIC SOLUTION FORM CLEANING BLACK DOLLARS CURRENCIES. I hereby use this media to inform you, that our company can clean out black deface currency, (stained money) bank notes, We have all kinds of chemicals used for cleaning of black money or stained money in currencies such as U.S Dollars, Euro, Pound, and all local currencies, even if your defaced note is 25 years old. WE SALE CHEMICALS LIKE TOURMALINE, S.S.D. Chemical / Solution , CASTRO X OXIDE, A4 AND MANY Like ACTIVATION POWDER & SSD SOLUTION FOR CLEANING BLACK MONEY Chemical and Allied product incorporated is a major manufacturer of industrial and pharmaceutical products with key specialization in the production of S.S.D Automatic solution used in the cleaning of black money , defaced money and stained bank notes with anti-breeze quality. OTHERS FOR DAMAGED NOTES, BILLS LIKE USD,EURO, POUNDS, Contact Dr.Elvis+27833928661 OR Email Kennroger77@gmail.com for more Information… in Limpopo,Sasolburg,Witbank,Standarton,Secunda,Middelburg,Vanderbijlpark,Johannesburg,Secunda,Cape Town,Burgersfort, Polokwane, Thohoyandou, phalaborwa, mokopane, bochum, lebowakgomo, mankweng, Seshego, dendron, Giyani, Lephalale, musina,Alexandra Johannesburg Lenasia Midrand Randburg Roodepoort Sandton Soweto Alberton Germiston Benoni Boksburg ,rakpan Daveyton,Duduza ,edenvale ,germiston Impumelelo Isando Katlehong Kempton Park KwaThema Nigel Reiger Park Springs Tembisa Thokoza Tsakane Vosloorus Wattville Atteridgaeville Centurion Hammanskraal Irene Mamelodi Pretoria Soshanguve Boipatong Bophelong Evaton Sebokeng Sharpeville, Vereeniging,Meyerton Heidelberg Ratanda Bronkhorstspruit Ekangala Kungwini Bronberg,Cullinan Refilwe,Zithobeni ,Carletonville,Khutsong Kagiso Kromdraai KrugersdorpMagaliesburg Muldersdrift Mohlaken,Randfontein +27833928661Bekkersdal,testonaria Kimberley Upington Kuruman Sprinbok Kathu Ritchie Postmasburg,Bellville Bloemfontein.+27833928661 To purchase Best SSD Chemical Solution to Clean Black Notes Dollars.WE ALSO SALE CHEMICALS LIKE SSD AUTOMATIC SOLUTION FORM CLEANING BLACK DOLLARS CURRENCIES. I hereby use this media to inform you, that our company can clean out black deface currency, +27833928661(stained money) bank notes, We have all kinds of chemicals used for cleaning of black money or stained money in currencies such as U.S Dollars, Euro, Pound, and all local currencies, even if your defaced note is 25 years old.+27833928661 WE SALE CHEMICALS LIKE TOURMALINE, S.S.D. Chemical / Solution , CASTRO X OXIDE, A4 AND MANY Like ACTIVATION POWDER & SSD SOLUTION FOR CLEANING BLACK MONEY Chemical and Allied product incorporated is a major manufacturer of industrial and pharmaceutical products with key specialization in the production of S.S.D Automatic solution used in the cleaning of black money , defaced money and stained bank notes with anti-breeze quality. OTHERS FOR DAMAGED NOTES, BILLS LIKE USD,EURO, POUNDS,+27833928661 Contact Dr.Elvis +27833928661 OR Email Kennroger77@gmail.com for more Information…
    • Cleaning black money +27833928661 with ssd chemical solution  +27 833928661  vanderbijlpark- nairobi, East London Tembisa ,Cape Town Durban Johannesburg Soweto Pretoria Port Elizabeth Pietermaritzburg Benoni Vereeniging Bloemfontein Boksburg Welkom Newcastle Krugersdorp Diepsloot Botshabelo Brakpan Witbank Richards Bay Vanderbijlpark Centurion Uitenhage Roodepoort Paarl Springs Carletonville Klerksdorp Midrand Westonaria Middelburg Vryheid Orkney Kimberley eMbalenhle Nigel Mpumalanga Bhisho Randfontein DR MBONYE has powerful lottery spells to help you win the lottery jackpot and make you rich beyond your wildest dreams I have used lottery spells and won in my personal capacity.Money Spells to eradicat Change your life For information CONTACTWhatsapp +27 833928661 EMAIL: kennrogger77@gmail.com cleaning black money with ssd chemical solution in Uganda,South sudan,Kemya,South Africa,Dubai,UAE,Kuwait,Tanzanai +27 833928661 Our vision to be the leading premier high-value and high security chemicals producer in the world and offering our services to everyone who knocks at our door step. SSD CHEMICAL SOLUTIONS LTD is uniquely positioned to consistently provide high-value solutions and world-changing chemicals and services to our clients. +27 833928661 WE ARE SPECIALIZED IN CHEMISTRY FOR ANTI-BREEZE BANK NOTES. WE ALSO DO CHEMICALS MELTING AND RECOVERING OF ALL TYPE OF BAD MONEY FROM BLACK TO WHITE AS YOU CAN SEE BELOW. Anti-freezing Preparations and Prepared De-icing Fluids, SSD Solution. Vectrol paste, Tebi-Manetic solution, Defaced currency, Cleaning chemical. Darkened currency, Black coated notes, Cleaning black money, super automatic SSD solution, anti-breeze bank notes. please contact Linda for more information on +27 833928661
  • Topics

×
×
  • 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