Jump to content

Kewlx

Members
  • Posts

    36
  • Joined

  • Last visited

Posts posted by Kewlx

  1. we try to test the woe on our server if there are error ,we found out that when you enter to a portal then there are player wearing costume headgear we got error but not most of the time ,,and then when the champ body relocate and asura we also got error sometimes

     

    how to fix this error?

  2. Hi Zanje,

     

    perhaps u can try existing scripts.

    -	script	Sample	-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$;
    
    }
    
    }
    

    credits to the owner... :)

    the dialog on npc are gone after minute then you can bypass it thats why i want to put timer ...so if they can answer they will kick

  3. 
    

    - script AntiBot -1,{

    function GetString;

    OnPCLoginEvent:

    if (strcharinfo(0)=="[Dev] Jero" || strcharinfo(0)=="[Admin] Jec" || strcharinfo(0)=="[Admin] Jec") {

    close;

    } else {

    atcommand "@option 2 0 3";

    sc_start sc_berserk, 1000000000, 1;

    initnpctimer;

    attachnpctimer strcharinfo(0);

    switch( rand(2) ){

    Case 0:

    set .@String$,GetString( 15,rand(5,10) );

    mes "[Anti-Botting System]";

    mes "Seems like the server suspects that you're a bot.";

    mes "===================================";

    mes "Input the ^FF0000RED COLOUR^000000 part";

    mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000";

    mes "===================================";

    mes "You will have 30 seconds to enter in my special codes otherwise you'll be kicked.";

    mes "Ready? Go!";

    input .@Input$;

    if( .@Input$ != .@String$ ){

    mes "Wrong..";

    sc_end sc_berserk;

    atcommand "@option 0";

    atcommand "@load";

    stopnpctimer;

    announce "[Anti-Botting System] : "+strcharinfo(0)+" has failed to answer and got kick from the server!! He is suspected a bot !.",0;

    atcommand "@kick "+strcharinfo(0);

    }

    break;

    Case 1:

    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..";

    sc_end sc_berserk;

    atcommand "@option 0";

    atcommand "@load";

    stopnpctimer;

    announce "[Anti-Botting System] : "+strcharinfo(0)+"has failed to answer !!He is also suspected a bot! He is now kicked.",0;

    atcommand "@kick "+strcharinfo(0);

    }

    break;

    }

    sc_end sc_berserk;

    atcommand "@option 0";

    percentheal 0,100; // since berserk use your 100% sp

    atcommand "@option 0 0 0";

    stopnpctimer;

    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","J","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","M","m","n","o","p","q","r","s","t","u","v","w","x","y","z";

    set .@Str$,"";

    while( getstrlen( .@Str$ ) < getarg(1) )

    set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ];

    return .@Str$;

    }

    OnTimer10000:

    dispbottom "You failed to answer the question within 30 seconds.";

    goto L_Fail;

    L_Fail:

    mes "[Anti-Botting System]";

    mes "You have been detected as a bot and will now be kicked off the server.";

    next;

    announce "[Anti-Botting System] : "+strcharinfo(0)+"has failed to answer !!He is also suspected a bot! He is now kicked.",0;

    atcommand "@kick "+strcharinfo(0);

    close;

    }

    }

    post-12044-0-55944900-1410348810_thumb.png

     

    i got this error when you cant answer within 10 sec

    post-12044-0-55944900-1410348810_thumb.png

  4. 	if (ud->skilltimer != INVALID_TIMER && ud->skillid != LG_EXEEDBREAK && (!sd || !pc_checkskill(sd, SA_FREECAST) || skill_get_inf2(ud->skillid)&INF2_GUILD_SKILL))
    		return 0; // Prevent moving while cast
    

    i remove || skill_get_inf2(ud->skillid)&INF2_GUILD_SKILL

     

    my code:

    	if (ud->skilltimer != INVALID_TIMER && ud->skillid != LG_EXEEDBREAK && (!sd || !pc_checkskill(sd, SA_FREECAST)))
    		return 0; // Prevent moving while casting
    
    

    please help then i cant still walk while casting EC

  5. if ( sd && tsc && sd->sc.data[SC_SPIRIT] && sd->sc.data[SC_SPIRIT]->val2 == SL_ROGUE && rand()%100 < 15
                 &&
                ( skill_id == RG_STRIPWEAPON && tsc->data[SC_CP_WEAPON] ||
                skill_id == RG_STRIPSHIELD && tsc->data[SC_CP_SHIELD] ||
                skill_id == RG_STRIPARMOR && tsc->data[SC_CP_ARMOR] ||
                skill_id == RG_STRIPHELM && tsc->data[SC_CP_HELM] ) ) {
                int item_id = 7139; // Glistening Coat
                int ii;
    			
    			
                ARR_FIND( 0, MAX_INVENTORY, ii, sd->status.inventory[ii].nameid == item_id );
                if ( ii < MAX_INVENTORY ) {
                    pc_delitem( sd, ii, 1, 0, 0, LOG_TYPE_CONSUME);
                    switch ( skill_id ) {
                        case RG_STRIPWEAPON:
                            status_change_end( bl, SC_CP_WEAPON, INVALID_TIMER );
                            sc_start( NULL, bl, SC_STRIPWEAPON, 100, skill_lv, d );
                            break;
                        case RG_STRIPSHIELD:
                            status_change_end( bl, SC_CP_SHIELD, INVALID_TIMER );
                            sc_start( NULL, bl, SC_STRIPSHIELD, 100, skill_lv, d );
                            break;
                        case RG_STRIPARMOR:
                            status_change_end( bl, SC_CP_ARMOR, INVALID_TIMER );
                            sc_start( NULL, bl, SC_STRIPARMOR, 100, skill_lv, d );
                            break;
                        case RG_STRIPHELM:
                            status_change_end( bl, SC_CP_HELM, INVALID_TIMER );
                            sc_start( NULL, bl, SC_STRIPHELM, 100, skill_lv, d );
                            break;
                    }
                    clif_skill_nodamage( src, bl, skill_id, skill_lv, i );
                    break;
                }
    			
    			
            }
    

    this code is working but it only consume gcoat when it success ,i want to make it whether success or fail it will consume gcoat

  6. 20043#
    Increase Damage to DemiHuman by 10%
    Reduce Damage From DemiHuman by 10%
    Allstat +10
    Class :^777777 Headgear^000000
    Equipped on :^777777 Lower^000000
    Defense :^777777 4^000000
    Weight :^777777 50^000000
    Applicable Job :^777777 Every job^000000
    #
    

    that is my idnum2itemdesctable.txt but it show

    post-12044-0-76725600-1409226494_thumb.png

     

    post-12044-0-76725600-1409226494_thumb.png

  7. case SC_FREEZE:
    if(sd->battle_status.luk >= 110 && sd->battle_status.mdef >= 50 )
                return 0;   
    
    sc_def = status->mdef*100;
    sc_def2 = status->luk*10 + status_get_lv(bl)*10 - status_get_lv(src)*10;
    tick_def2 = status_src->luk*-10; //Caster can increase final duration with luk
    break;
    

    i try it on storm gust and frost driver it work,, it will frost you if your luk or mdef are not set on 110luk and 50mdef,

    but when i try on frost when luk is higher than 20 it wont freeze the player

×
×
  • Create New...