Redeemer NPC / Coupon NPC / Promotional NPC

[Redeemer NPC / Coupon NPC / Promotional NPC]

/*DROP TABLE IF EXISTS `reward_codes`;CREATE TABLE IF NOT EXISTS `reward_codes` (    `code` VARCHAR(10) NOT NULL DEFAULT '',    `nameid` INT(11) UNSIGNED NOT NULL DEFAULT '0',    `item_name` VARCHAR(45) NOT NULL DEFAULT '',    `amount` SMALLINT(6) UNSIGNED NOT NULL DEFAULT '0',    `time_created` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00'    PRIMARY KEY (`code`)) ENGINE = MYISAM;DROP TABLE IF EXISTS `rewardlogs`;CREATE TABLE `rewardlogs` (    `account_id` INT( 10 ) NOT NULL,    `code` VARCHAR( 10 ) NOT NULL,    `redeem_time` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00') ENGINE = MyISAM;*/-    script    promoclaim    -1,{OnInit:    bindatcmd "claim",strnpcinfo(3)+"::OnClaim";    bindatcmd "code",strnpcinfo(3)+"::OnEditCode";    end;    OnClaim:    // if ( getgmlevel() ) end;    mes "^FF0000 Enter a new promotional code.";    input .@pc$;    close2;        query_sql "SELECT `nameid`, `amount` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pc$) + "'", .@item, .@amt;        if ( !.@item )         dispbottom "Either invalid code or the code is already claimed by other people";    else {        getitem .@item, .@amt;        dispbottom "Promotional code successfully redeemed.";        query_sql "DELETE FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pc$) + "'";        query_logsql "INSERT INTO `rewardlogs` VALUES ( '" + getcharid(3) + "', '" + escape_sql(.@pc$) + "', NOW() )";    }        end;    OnEditCode:    if ( getgmlevel() < 99 ) end;    set .@choice$, "Setup a new promotional code:View existing codes:Delete exisiting codes:Cancel";    setarray .@length, 4,10; // <min>,<max>        switch ( select( .@choice$ ) ) {        case 1:                input .@pcode$;                if ( getstrlen( .@pcode$ ) < .@length[0] || getstrlen( .@pcode$ ) > .@length[1] ) {                        dispbottom "Codes must not be less than " +.@length[0]+ " and must be greater than " +.@length[1]+ ".";                        end;                }                mes "You have entered ^FF0000"+.@pcode$+"^000000 as the code.";                mes "Are you sure?";                if ( select("Yes:No, thanks") - 1 ) end;                query_sql "SELECT `code` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@pcode$) + "'", .@pcode_exists;                if ( .@pcode_exists ) {                        dispbottom "Sorry, that code already exist.";                        end;                }                mes "Please set a reward for the players who has entered the code.";                input .@reward;                next;                if ( !.@reward || getitemname(.@reward) == "null" ) {                        dispbottom "Sorry, that is an invalid item id.";                        end;                }                set .@iname$, getitemname(.@reward);                mes "Item number ^FF0000"+.@reward+"^000000";                mes "is equivalent to ^FF0000"+.@iname$+"^000000.";                mes "Are you sure?";                next;                if ( select("Yes:No, thanks") - 1 ) end;                mes "How many ^FF0000"+.@iname$+"^000000.?";                input .@amount;                next;                if ( !.@amount ) {                    dispbottom "Sorry, that is an invalid amount number.";                    end;                }                mes "Are you sure?";                next;                if ( select("Yes:No, thanks") - 1 ) end;                query_sql "INSERT INTO `reward_codes` VALUES ( '" + escape_sql(.@pcode$) + "', '" + .@reward + "', '" + escape_sql(.@iname$) + "', '" + .@amount + "', NOW() )";                dispbottom "Done creating code!";                break;        case 2:                set .@nb, query_sql("SELECT code, item_name, amount FROM `reward_codes` ORDER BY time_created DESC LIMIT 20", .@code$, .@nid$, .@amount);                    if ( !.@nb ) {                    dispbottom "No exisiting codes.";                    end;                }                dispbottom "=============================================";                dispbottom "==============  EXISITING CODES  ==============";                dispbottom "=============================================";                for(set .@i,0; .@i < .@nb; set .@i,.@i+1)                dispbottom ""+.@code$[.@i]+" (  Reward: "+.@amount[.@i]+" "+.@nid$[.@i]+" ) ";                dispbottom "=============================================";                break;        case 3:                input .@dcode$;                query_sql "SELECT `code` FROM `reward_codes` WHERE `code` = '" + escape_sql(.@dcode$) + "'", .@dcode_exists;                if ( !.@dcode_exists ) {                    dispbottom "Promotional code not found.";                    end;                }                mes "Would you like to delete that code?";                next;                if ( select("Yes:No, thanks") - 1 ) end;                query_sql "DELETE FROM `reward_codes` WHERE `code` = '" + escape_sql(.@dcode$) + "'";                break;        case 4: break;        default: break;    }    close;}

[[Request] Party Warper]

prontera,150,150,0	script	Sample	100,{	if ( countiem( 501 ) < 10 || !countitem( 514 ) ) {		mes "You need 10 apple and 1 grape";		close;	}	if ( !getcharid( 1 ) ) {		mes "You don't have a party";		close;	}	if ( getpartyleader( getcharid( 1 ), 2 ) != getcharid( 0 ) ) {		mes "You must be a party leader";		close;	}	delitem 501, 10;	delitem 514, 1;	warpparty "prontera",150,150,getcharid( 1 );	end;}

[What song you do listening right now?]

 

 

 

Why chrissy so cuteee <3

[How to summon all Players of a GUILD or PARTY?]

getmapxy( .@map$, .@x, .@y, 0 );warpparty .@map$, .@x, .@y, getcharid( 1 );

[Happy birthday malufett!]

Advance Happy Birthday @malufett

[map_zone_db.conf allows to restrict an ITEM TYPE]

Cool ! +1 to this idea! 

[What song you do listening right now?]

[Lighthalzen Dungeon F4 Quest [ Request ]]

You should elaborate on what you really want. If you want to be helped by others. Help yourself first. Express your request by giving a detailed description. A mere title wouldn't help that much on script people around.

[How to determine whether an item is itembound items?]

    mes "You currently have "+countbound()+" bounded items.";	next;	mes "The list of bounded items include:";	for(set .@i,0; .@i<getarraysize(@bound_items); set .@i,.@i+1)		mes getitemname(@bound_items[.@i]);	close;

[Lucky Pick Event]

Let's try this one : 

-	script	LuckyPick	-1,{	OnPCLoginEvent:		.aid[getarraysize(.aid)] = getcharid(3);		end;		OnPCLogoutEvent:		for ( .@i = 0; .@i < getarraysize(.aid); .@i++ ) {			if ( .aid[.@i] == getcharid(3) )				deletearray .aid[.@i], 1;		}		end;	OnMinute00:		.@t++;		if ( .@t % 2 ) end;		.@i = rand(getarraysize(.aid));		if (attachrid(.aid[.@i]))			getitem 501, 1, .aid[.@i];		end;}

@EDIT : Trigger every 2 hours

[how to..]

Put delwaitingroom command before waitingroom command.

 

Wew my net sucks. @Mumbles 10 minutes faster lol

[January Digest 2014]

Very nice

[[Request] 1 Points ( Daily Points ) - 1 Card]

Could you please elaborate?

When a certain player kill a mob and that mob drop a card, the player gain points.

[Help Script Fail]

Read the description of the topic starter before concluding that the answer is flawed or something

[Administrative Staff Changes]

Congrats to those who got promoted. Keep up the good work

[[Request] 1 Points ( Daily Points ) - 1 Card]

AFAIK this can't be done through scripting alone.

[Lhz,Thanatos Quest [ Help ]]

I think he is referring to bio lab quest.

[Proof of Donation?]

Might probably want to use OnPCLoginEvent label?

[Help to put auto repair on my healer and indentify]

or should i say efficient?  

[Help to put auto repair on my healer and indentify]

Probably an absurd answer : his while loop is much slightly faster than your for loop in terms of execution time

[Donation System]

https://code.google.com/p/fluxcp-ra/source/browse/branches/fluxcp-1.0/data/npc/DonationNPC.txt?spec=svn1070&r=1070

[Help to put auto repair on my healer and indentify]

getinventorylist;for( set .@i,0; .@i < @inventorylist_count; set .@i, .@i + 1 ) {        if ( @inventorylist_identify[.@i] == 1 ) continue;		delitem2 @inventorylist_id[.@i],1,0,0,0,0,0,0,0;		getitem @inventorylist_id[.@i],1;}if ( !getbrokenid(1) ) close;atcommand "@repairall"; 

Add this 

[how to use cutin[without player attached]?]

prontera,150,150,0	script	Sample	100,{	query_sql "SELECT DISTINCT(`account_id`) FROM `char` WHERE `online` = '1'",.@aid;	for ( .@i = 0; .@i < getarraysize(.@aid); .@i++ ) {		if ( attachrid( .@aid[.@i] ) ) {			if ( strcharinfo(3) == "prontera" )				 cutin "kafra_07", 2;		}	}	for ( .@x = 3; .@x > 0; .@x-- ) {		announce "Count down : " +.@x,0;		sleep 1000;	}	for ( .@y = 0; .@y < getarraysize(.@aid); .@y++ ) {		if ( attachrid( .@aid[.@y] ) ) {			if ( strcharinfo(3) == "prontera" )				 cutin "", 255;		}	}	end;}

Like this?

[Req> NPC Gatcha]

 

Might be a good idea to enclose that set for .@r in a do..while loop; if the item name does end up being "null", the user's item is taken and doesn't get anything lol.

 

 

do {	.@r = rand(501, 700);} while (getitemname(.@r) != "null");

 

The delitem command is triggered when the item is not null otherwise it does nothing. though i can say a do while loop is a better approach

[help me with this bug]

https://github.com/HerculesWS/Hercules/blob/master/npc/custom/card_remover.txt