Jump to content
  • 0

Captcha Script


WhatFT

Question


  • Group:  Members
  • Topic Count:  142
  • Topics Per Day:  0.03
  • Content Count:  511
  • Reputation:   7
  • Joined:  02/15/12
  • Last Seen:  

Can anyone edit this script? I wanted to make this script works online in bat_c01. Not by Logging In.

- script AntiBot -1,{
function GetString;
OnPCLoginEvent:
switch( rand(2) ){
Case 0:
 set .@String$,GetString( 15,rand(5,10) );
 mes "Input the ^FF0000RED COLOUR^000000 part";
 mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000";
 input .@Input$;
 if( .@Input$ != .@String$ ){
  mes "Wrong..";
  atcommand "@kick "+strcharinfo(0);
 }
 break;

Case 1:
 set .@A,rand(1000);
 set .@B,rand(1000);
 mes "If A = "+.@A+"   B = "+.@B;
 switch( rand(4) ){
  Case 0:
   set .@Answer,.@A + .@B;
   mes "How many is A + B ?";
   break;
  Case 1:
   set .@Answer,.@A - .@B;
   mes "How many is A - B ?";
   break;
  Case 2:
   set .@Answer,.@A * .@B;
   mes "How many is A * B ?";
   break;
  Case 3:
   set .@Answer,.@A / .@B;
   mes "How many is A / B ?";
   break;
 }
 input .@Input;
 if( .@Input != .@Answer ){
  mes "Wrong";
  atcommand "@kick "+strcharinfo(0);
 }
 break;
}
close;
function GetString {
if( getarg(0) & 1 ) setarray .@List$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9";
if( getarg(0) & 2 ) setarray .@List$[ getarraysize( .@List$ ) ],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";
if( getarg(0) & 4 ) setarray .@List$[ getarraysize( .@List$ ) ],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z";
if( getarg(0) & 8 ) setarray .@List$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+";
set .@Str$,"";
while( getstrlen( .@Str$ ) < getarg(1) )
set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ];
return .@Str$;
}
}

Link to comment
Share on other sites

4 answers to this question

Recommended Posts


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  

change

OnPCLoginEvent:

into

OnPCLoadMapEvent:
if( strcharinfo(3) != "bat_c01" ) end;

then add this

bat_c01    mapflag    loadevent

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  142
  • Topics Per Day:  0.03
  • Content Count:  511
  • Reputation:   7
  • Joined:  02/15/12
  • Last Seen:  

Where will I add the loadevent?

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  

out side of the npc script....

just place it a the very very very very very bottom of your text file .....

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  142
  • Topics Per Day:  0.03
  • Content Count:  511
  • Reputation:   7
  • Joined:  02/15/12
  • Last Seen:  

Okay, Thanks Emistry !

Link to comment
Share on other sites

Join the conversation

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

Guest
Answer this question...

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

×
×
  • Create New...