Promotionial Codes Script

[uDe]

Nice little promotion script.

i have tested it. then a player can spam it!

Posted 28 March 2013 - 09:14 PM - no answer?

here's a little edit, i hope it's okay Arzzzae

http://pastebin.com/TY4cPbS0

http://pastebin.com/q2eKrzhf

 

ORIGINAL THREAD : http://goo.gl/e1LGXT

 

I'm using this script and maybe found some bugs.

1. No update on reward_codes.sql

but I think rewardlogs.sql just doing fine.

2. Referring to SS above, there are 2 codes has been given. But there's no update also when I use "View existing codes" in-game.

3.

After ADMIN use @code > setup the code > finish. He can't move, seems like stuck with npc. Need to @load or @go. I found no problems with @claim commands.

Note :

• I have restart the server after adding the script.
• I also has tried topic starter script and found all those bug mentioned by other members.

Edited September 1, 2013 by uDe

[Lil Troll]

It's mean that only 1 person per item and the code still can be use by other players. Personally for me, this is an another way to distribute rewards for players instead of talking to NPC.

 

For example, I'm going to use this script to promote my server at facebook and I just need to use 1 code only. Instead of giving 100+ codes. And don't worry, I won't give any trade-able items to prevent players to exploit this codes by creating new characters on their ID. It's good to have an option though..

 

Thanks for the opinion by the way. Still, I would really need that function. 

I did all what you like! And I added more features!

 

I edit the whole script modified by sir patskie, took me almost 12hours LOL! New milestone achievement for me, I can finally manage to mess with SQL-Thingy!

 

Visit the post.

 

http://rathena.org/board/topic/87212-utility-promotional-code/

Edited September 6, 2013 by Lil Troll

[Patskie]

Try this one : 

//===== Custom Script ========================================
//= Promotional Codes
//===== By: ==================================================
//= Arzzzae
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= Latest svn
//===== Description: ========================================= 
//= Adds 2 custom atcommands. @claim for players to claim
//= promotional code created by Game Masters. @code is for
//= administrators to add/view/delete promotional codes.
//===== Additional Comments: ================================= 
//= 1.0 - Initial Release.
//============================================================


-    script    promoclaim    -1,{




OnInit:
    bindatcmd "claim",strnpcinfo(3)+"::OnClaim";
    bindatcmd "code",strnpcinfo(3)+"::OnEditCode",99,0;
    end;
    
OnClaim:


    mes "^FF0000 Enter a new promotional code.";
    input [email protected]$;
    close2;
    


                if ( query_sql("SELECT nameid,amount FROM `reward_codes` WHERE `code`='"+escape_sql([email protected]$)+"'", [email protected],[email protected]) == 0) {
                    dispbottom "Invalid promotional code.";
                    end;
            
                    }
                    
                else if (query_logsql("SELECT code,account_id FROM `rewardlogs` WHERE `code`='"+escape_sql([email protected]$)+"' AND `account_id`='"+getcharid(3)+"'")) {
                    dispbottom "You already claimed this promotional code.";
                    end;
                    
                    }


                else {
                    getitem [email protected],[email protected];
                    dispbottom "Promotional code successfuly redeemed.";
                    query_logsql("INSERT INTO `rewardlogs` (code,redeem_time,account_id) VALUES ('"[email protected]$+"', NOW(), '"+getcharid(3)+"')");
                    query_sql("DELETE FROM `reward_codes` WHERE `code` = '" +escape_sql([email protected]$)+ "'");
                    end;
                    }
    
        
    
OnEditCode:
    
    menu "Setup a new promotional code",ncode,"View existing codes",vcode,"Delete exisiting codes",dcode,"Cancel",cancel;
    
    ncode:
        
        set [email protected],10; //Promotional Code Length
        
        input [email protected]$;
        
            if (getstrlen([email protected]$)[email protected]) {
                dispbottom "Codes must be 10 characters long.";
                end;
                }
                
            mes "You have entered ^FF0000"[email protected]$+"^000000 as the code.";
            mes "Are you sure?";
            next;
            if(select("Yes:No, thanks")==2) close;
            
            query_sql ("SELECT COUNT(code) FROM `reward_codes` WHERE `code`='"+escape_sql([email protected]$)+"'", [email protected]_exists);
            if ([email protected]_exists) {
                dispbottom "Sorry, that code already exist.";
                end;
            }
            
            mes "Please set a reward for the players who has entered the code.";
            input [email protected];
            next;
            
            if ([email protected] == 0) {
                dispbottom "Sorry, that is an invalid item id.";
                close;
            }
            
            set [email protected]$, getitemname([email protected]);
            mes "Item number ^FF0000"[email protected]+"^000000";
            mes "is equivalent to ^FF0000"[email protected]$+"^000000.";
            mes "Are you sure?";
            next;
            if(select("Yes:No, thanks")==2) close;
            
            
            mes "How many ^FF0000"[email protected]$+"^000000.?";
            input [email protected];
            next;
            
            if ([email protected] == 0) {
                dispbottom "Sorry, that is an invalid amount number.";
                close;
            }
            
            mes "Are you sure?";
            next;
            if(select("Yes:No, thanks")==2) close;
            
            query_sql ("INSERT INTO `reward_codes` (code,nameid,item_name,amount,time_created) VALUES ('"[email protected]$+"', "[email protected]+", '"[email protected]$+"', "[email protected]+", NOW())");
            dispbottom "Promotional Code ^FF0000"[email protected]$+" ^000000is now activated and the reward is ^FF0000"[email protected]+" "[email protected]$+".";
            end;
    
    vcode:
    
        set [email protected], query_sql("SELECT code, item_name, amount FROM `reward_codes` ORDER BY time_created DESC LIMIT 20", [email protected]$, [email protected]$, [email protected]);    
        
            if ([email protected] == 0) {
            dispbottom "No exisiting codes.";
            end;
            }
        
            dispbottom "=============================================";
            dispbottom "==============  EXISITING CODES  ==============";
            dispbottom "=============================================";
            for(set [email protected],0; [email protected] < [email protected]; set [email protected],[email protected]+1)
            dispbottom ""[email protected]$[[email protected]]+" (  Reward: "[email protected][[email protected]]+" "[email protected]$[[email protected]]+"  )";
            dispbottom "=============================================";
            end;
            
    dcode:
    
        input [email protected]$;
        
            query_sql ("SELECT COUNT(code) FROM `reward_codes` WHERE `code`='"+escape_sql([email protected]$)+"'", [email protected]_exists);
            if ([email protected]_exists) {
                mes "Would you like to delete that code?";
                next;
                if(select("Yes:No, thanks")==2) close;
                
                query_sql ("DELETE FROM `reward_codes` WHERE `code`='"+escape_sql([email protected]$)+"'");
                dispbottom "Promotional code successfuly deleted.";
                close;
            }
            
            dispbottom "Promotional code not found.";
            end;
    
    cancel:
        close;
}

[uDe]

Thanks for your help @Patskie..

 

But I don't think there's any changes in game because it's still the same.. No update on reward_codes.sql for redeem time, accound id and confirmed column.

Seems like all 3 problems I had above still occurs.

 

 

This is the previous script that I've used :promo_code_ori.txt

 

And this is yours : promo_code_patskie.txt

[Emistry]

query_logsql("INSERT INTO `rewardlogs` (code,redeem_time,account_id) VALUES ('"[email protected]$+"', NOW(), '"+getcharid(3)+"')");

your reward logs was saved in a different table .....in the log scheme.

 

the sql table you shown above...is it the rewardlogs ??? or reward_codes ??? or ???

[uDe]

query_logsql("INSERT INTO `rewardlogs` (code,redeem_time,account_id) VALUES ('"[email protected]"', NOW(), '"+getcharid(3)+"')");

your reward logs was saved in a different table .....in the log scheme.

 

the sql table you shown above...is it the rewardlogs ??? or reward_codes ??? or ???

 

The screen shot above is from reward_codes

 

This is the rewardlogs :

 

and I think it's working fine.. Right?

 

There are 2 sql table that need to be install :

 

//===============================================================================
//SQL for DBmain
/*
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',
  `redeem_time` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00',
  `account_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
  `confirmed` INT(11) UNSIGNED NOT NULL DEFAULT '0',
  PRIMARY KEY (`code`)
) ENGINE=MYISAM;
*/
// SQL for DBlog
/*
DROP TABLE IF EXISTS `rewardlogs`;
CREATE TABLE `rewardlogs` (
`account_id` INT( 10 ) NOT NULL ,
`code` VARCHAR( 10 ) NOT NULL
) ENGINE = InnoDB;
*/
//===============================================================================

Edited September 2, 2013 by uDe

[Emistry]

yes....the saved contents from reward_codes should be deleted upon other players claimed the items..so it's pointless to save the redeem time there...

query_sql("DELETE FROM `reward_codes` WHERE `code` = '" +escape_sql([email protected]$)+ "'");

[uDe]

Hmm.. Why it will be deleted? @Patskie add it that right?

 

I think, from original script from here , it will saved right?

 

It really got me confuse. So, I just need the same thing like this post.

 

I really need the full 'logs'.. So I'm hoping that there are no conflicts with players. You know what happen when they got something 'free' right? Always want more.. Like me. Now.

Edited September 2, 2013 by uDe

[Emistry]

which script are you using now ....

[uDe]

Currently I'm using this : http://rathena.org/board/topic/86986-promotionial-codes-script/#entry220578

 

Thought that @Patskie had it fixed.. But the 3 problems from my 1st post still didn't fix.

[Emistry]

Currently I'm using this : http://rathena.org/board/topic/86986-promotionial-codes-script/#entry220578

 

yes....the saved contents from reward_codes should be deleted upon other players claimed the items..so it's pointless to save the redeem time there...

query_sql("DELETE FROM `reward_codes` WHERE `code` = '" +escape_sql([email protected]$)+ "'");

[uDe]

So, then, I want to use the script that will save the redeem_time, accound_id and confirmed

 

and script than can fix those problems also :

 

2. Referring to SS above, there are 2 codes has been given. But there's no update also when I use "View existing codes" in-game.




3.

After ADMIN use @code > setup the code > finish. He can't move, seems like stuck with npc. Need to @load or @go. I found no problems with @claim commands.

BUMP

[Patskie]

If you try to download the original file here http://rathena.org/board/files/file/2862-utility-promotional-codes/ you can find his sql file. That is my basis on this script :

 

The original reward code sql :

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;

and log : 

CREATE TABLE IF NOT EXISTS `rewardlogs` (
  `code` VARCHAR(10) NOT NULL DEFAULT '',
  `redeem_time` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00',
  `account_id` INT(11) UNSIGNED NOT NULL DEFAULT '0',
  PRIMARY KEY (`code`)
) ENGINE=MYISAM;

EDIT : Try this new one, i fix them, remove some, add some. and so on xD. Execute first the commented line. If error occur, post it

/*
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 [email protected]$;
    close2;
    
    query_sql "SELECT `nameid`, `amount` FROM `reward_codes` WHERE `code` = '" + escape_sql([email protected]$) + "'", [email protected], [email protected];
    
    if ( [email protected] ) 
        dispbottom "Either invalid code or the code is already claimed by other people";
    else {
        getitem [email protected], [email protected];
        dispbottom "Promotional code successfully redeemed.";
        query_sql "DELETE FROM `reward_codes` WHERE `code` = '" + escape_sql([email protected]$) + "'";
        query_logsql "INSERT INTO `rewardlogs` VALUES ( '" + getcharid(3) + "', '" + escape_sql([email protected]$) + "', NOW() )";
    }
    
    end;
    
OnEditCode:
    if ( getgmlevel() < 99 ) end;
    set [email protected]$, "Setup a new promotional code:View existing codes:Delete exisiting codes:Cancel";
    setarray [email protected], 4,10; // <min>,<max>
    
    switch ( select( [email protected]$ ) ) {
        case 1:
                input [email protected]$;
                if ( getstrlen( [email protected]$ ) < [email protected][0] || getstrlen( [email protected]$ ) > [email protected][1] ) {
                        dispbottom "Codes must not be less than " [email protected][0]+ " and must be greater than " [email protected][1]+ ".";
                        end;
                }
                mes "You have entered ^FF0000"[email protected]$+"^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([email protected]$) + "'", [email protected]_exists;
                if ( [email protected]_exists ) {
                        dispbottom "Sorry, that code already exist.";
                        end;
                }
                mes "Please set a reward for the players who has entered the code.";
                input [email protected];
                next;
                if ( [email protected] || getitemname([email protected]) == "null" ) {
                        dispbottom "Sorry, that is an invalid item id.";
                        end;
                }
                set [email protected]$, getitemname([email protected]);
                mes "Item number ^FF0000"[email protected]+"^000000";
                mes "is equivalent to ^FF0000"[email protected]$+"^000000.";
                mes "Are you sure?";
                next;
                if ( select("Yes:No, thanks") - 1 ) end;
                mes "How many ^FF0000"[email protected]$+"^000000.?";
                input [email protected];
                next;
                if ( [email protected] ) {
                    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([email protected]$) + "', '" + [email protected] + "', '" + escape_sql([email protected]$) + "', '" + [email protected] + "', NOW() )";
                dispbottom "Done creating code!";
                break;
        case 2:
                set [email protected], query_sql("SELECT code, item_name, amount FROM `reward_codes` ORDER BY time_created DESC LIMIT 20", [email protected]$, [email protected]$, [email protected]);    
                if ( [email protected] ) {
                    dispbottom "No exisiting codes.";
                    end;
                }
                dispbottom "=============================================";
                dispbottom "==============  EXISITING CODES  ==============";
                dispbottom "=============================================";
                for(set [email protected],0; [email protected] < [email protected]; set [email protected],[email protected]+1)
                dispbottom ""[email protected]$[[email protected]]+" (  Reward: "[email protected][[email protected]]+" "[email protected]$[[email protected]]+" ) ";
                dispbottom "=============================================";
                break;
        case 3:
                input [email protected]$;
                query_sql "SELECT `code` FROM `reward_codes` WHERE `code` = '" + escape_sql([email protected]$) + "'", [email protected]_exists;
                if ( [email protected]_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([email protected]$) + "'";
                break;
        case 4: close; break;
        default: break;
    }
    end;
}

Edited September 3, 2013 by Patskie

[uDe]

What's wrong with rAthena Quote function? Loading so long and nothing..?

 

BTW, here's the problems from your script and sql queries above

 

1. No close button.

 

 

2. Still no close button.

 

 

 

3. SQL error?

 

 

4. No update on sql because of the errors above?

 

5. After using @code command, I can't move.

 

I really do want the important function from this script :

 

			mes "Code for more than 1 use?";
			if(select("Yes:No")==2) close;	
			dispbottom "Promotional Code ^FF0000"[email protected]$+" ^000000is now activated and the reward is ^FF0000"[email protected]+" "[email protected]$+".";
			Query_SQL( "UPDATE `reward_codes` SET `confirmed` = '2' WHERE `code`='"+escape_sql([email protected]$)+"'");
			close;

 

And thank you @Patskie for your time for trying to help me.

Edited September 4, 2013 by uDe

[Patskie]

Why not create multiple items so that people can claim and claim? If you want it that way then it seems like creating this promo script is useless. You can create an item reward npc wherein you can set your prize and let your players get and get and get.

 

 

Try changing all :

if ( select("Yes:No, thanks") - 1 ) end;

to :

if ( select("Yes:No, thanks") - 1 ) close;

[uDe]

Why not create multiple items so that people can claim and claim? If you

want it that way then it seems like creating this promo script is

useless. You can create an item reward npc wherein you can set your

prize and let your players get and get and get.

 

 

mes "Code for more than 1 use?";

 

It's mean that only 1 person per item and the code still can be use by other players. Personally for me, this is an another way to distribute rewards for players instead of talking to NPC.

 

For example, I'm going to use this script to promote my server at facebook and I just need to use 1 code only. Instead of giving 100+ codes. And don't worry, I won't give any trade-able items to prevent players to exploit this codes by creating new characters on their ID. It's good to have an option though..

 

Thanks for the opinion by the way. Still, I would really need that function.

 

Sorry for my cheap English Language.

 

 

EDIT

 

For close; problems, still didn't fix yet..

 

Here's the script :promo_codes.txt

Edited September 5, 2013 by uDe

[uDe]

Here's my reply . Thanks @Lil Troll