Paltalk Admin Bot 9.9

Might i have the source code for the Bot please?
Thanks alot !

Yes auto bots can be hard to code, I used a Pos in delphi meaning that if a string exists in another string it will return its position in that string, so in other words if it does not exsists it will return 0, I dont know if this helps but it might be useful

procedure TForm1.HandleRmText(copyDataStruct: PCopyDataStruct);
var
sData, sNickname: string;
iLoop, iFound: Integer;
begin

if NOT isAdmin then
Exit;

iFound := 0;
sData := PChar(copyDataStruct.lpData);
Trim(sData);
sNickname := GetToken(sData, ‘:’, 1);

for iLoop := 0 to pred(lbWords.Count) do
begin
iFound := iFound + PosEx(Uppercase((‘>’ + lbWords.Items.Strings[iLoop] + ‘<')), Uppercase(sData));
iFound := iFound + PosEx(Uppercase((‘>’ + lbWords.Items.Strings[iLoop] + ‘ ‘)), Uppercase(sData));
iFound := iFound + PosEx(Uppercase((‘ ‘ + lbWords.Items.Strings[iLoop] + ‘<')), Uppercase(sData));
iFound := iFound + PosEx(Uppercase((‘ ‘ + lbWords.Items.Strings[iLoop] + ‘ ‘)), Uppercase(sData));
if iFound 0 then
begin
case Integer(lbWords.Items.Objects[iLoop]) of
0: RedDotNick(sNickname);
1: BounceNick(sNickname);
end;
iFound:= 0;
end;
end;
end;

Basically I set EVERYTHING to uppercase and then chack if the word is used at the beginning of the line or just by its self or in-between or at the end the of line.. so 4 checks are done for each word in Auotbounce/Autoban AKA “SwearBot” so it minimizes the chance of missing a word.

@autopilot wrote:

With VB6, the InStr function returns the possition if a string match is found. It does not matter were in the line it matches, or what is before or after. The case however is included in the evaluation and therefore a force to upper or lower case should be done with the InStr call. So only 1 check needs to be done using InStr as long as both input and pattern are in the same case.

Yes I understand that, But notice the Integer value “If > 0” meaning that if any of the search patterns are found it will bounce/kick/red ect… Reason for the 4 checks is because if it was plain “asshole” as bad word and someones nickname was “ImAaSShOle” asshole ” or last word in last line example “asshole<" so what we are trying to do is NOT look for the Word "asshole" but look for the word in how it might be used otherwise it might bounce people with that word in there nicknames or sub word of a word. So if any of these matches are found the integer value becomes greater than 0 which mean bounce them.

Sorry if this makes no sense at all to you, It makes perfect sense in my twisted way of thinking im just sorry I couldn’t explain it better.

Now for second part of my example, Use a case statement to determine if the bot should bounce/kick/reddot the user…

if iFound 0 then
begin
case Integer(lbWords.Items.Objects[iLoop]) of
0: RedDotNick(sNickname);
1: BounceNick(sNickname);
end;

The case Statement will only get executed if the pattern matches(what I described above). Basically for each item in the list I have set a “Tag” or knowen in Delphi as Object ID which when adding the “BadWord” to the list it also added “Tag” to that word in this case if the tag was 0 it would reddot the user or if I had set it 1 when adding the “bad word” it would bounce the user. This removes the need for multiple checks and multiple lists. Also in theory should speed up your code because we are using “case of” statement instead of “if then” and not to mention it will only need to search through 1 list not half a dozen. Hope this help you loco.

Just another Idea, in your “bad word” list you could assign a image 1 image for bounce and another for reddot, when checking the list check what image is used and based upon the image used you will know if you should reddot the user or bounce the user. Also would cool to see little images instead of heaps of different lists

P.s

@AutoPilot
Nice to see your still around mate, Long time since we talked, Hope to catch up with you soon

can i have the source code for the latest stand of the admin bot please?

Thanks!

thanks alot Admin 😀