viewing paste Untitled | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109
// - SQL TABLE
/*
CREATE TABLE IF NOT EXISTS `callfrnd` (
  `id` int(11) NOT NULL auto_increment,
  `account_id` int(11) NOT NULL default '0',
  `name` varchar(23) NOT NULL default '',
  `last_ip` varchar(100) NOT NULL default '',
   PRIMARY KEY (`account_id`),
  KEY (`id`)
) ENGINE=MyISAM;
*/
 
 
 
 
prontera,160,180,5      script  Freebies NPC    100,{
               
        mes $@name$;
        mes "^616D7EI am one of the staff members of GM Team. And i am assigned to give freebies to players in our server.";
        mes " ";
        next;
        mes $@name$;
        mes "^616D7ESo, How may I help you?";
        next;
        switch(select("- Freebies please:- Close")) {
                mes $@name$;
                case 1:
                        if ( getcharid(3) < $@new_aid ) {
                                mes "^616D7EYou doesn't seems to be new to server.";
                                close;
                        }
                       
                        mes "^616D7EOh.. Nice, so would you like to proceed with the Referral System?";
                        switch(select("Yes")) {
                                case 1:
                                        if (#CallFrnd >= 1) {
                                                mes "^616D7EYou are already Registered on our database.";
                                                close;
                                        }
                                        goto ReferralSystem;
                                }
               
                case 2:
                        mes "^616D7ok, nvm!";
                        close;
        }
        end;
       
ReferralSystem:
        next;
        mes $@name$;
        mes " ";
        mes "^ff0000NOTE: ^000000^616D7EEnter your Character Name to claim your Freebies.";
        mes " ";
        mes "^616D7EEnter your Character Name: ";
        next;
        input .@frnd$;
        mes $@name$;
        mes "^616D7ESo your Character Name is [ ^ff000f" + .@frnd$ + "^000000 ]? ^616D7EIs that right??";
        next;
        if(select("Yes:Back")==2) goto ReferralSystem;
                mes $@name$;
                mes "^616D7EIf you play more than [ ^2B60DE" + $@daystoplay + " days ^000000] and spend more than x hours to our server every day. Your friend will get a New Item from the list.";
                next;
                switch(select("Exit:Complete the process")) {
                        case 1:
                                mes $@name$;
                                mes "^616D7ENevermind~, You can come back again!";
                                close;
                        case 2:
                                query_sql("SELECT last_ip FROM `login` WHERE account_id = "+getcharid(3)+"", .@lastip$);        // recruits ip address
                                set .@frnd, query_sql ("SELECT name, char.account_id, last_ip FROM `char` LEFT JOIN `login` ON login.account_id = char.account_id where name = '"+escape_sql(.@frnd$)+"'",.@chname$, .@account_id, .@flastip$); // recruiter ip address and information
                               
                                        if (!.@frnd) {
                                                mes $@name$;
                                                mes "^ff0000FAILED! FAILED! FAILED!";
                                                mes " ";
                                                mes "^616D7ESorry, We didn't found your Character Name in our database. Make sure that you Enter's Everything correctly.";
                                                close;
                                        }
                                        if ( .@account_id < getcharid(3) ) {
                                                mes $@name$;
                                                mes "^ff0000WARNING: ^616D7EThis Player is found on your account. Sorry, Unable to proceed further!!!";
                                                mes " ";
                                                mes "Enter some other name";
                                                close;
                                        }
                                        if ( .@account_id > getcharid(3) ) {    // i am older than my frnd
                                                mes $@name$;
                                                mes "^616D7EIt seems, your not newbie to our server. Damn you cheaters. ";
                                                close;
                                        }
                                query_sql("SELECT count(last_ip) FROM `callfrnd` WHERE last_ip='"+.@lastip$+"'", .@countip);    // retrieve registered ip
                                        if (.@countip){
                                                mes "This ip was already used";
                                                mes "You can't have new freebies, see ya";
                                                close;
                                        }
                                       
                                set #CallFrnd, 1;
                                query_sql("INSERT INTO `callfrnd`(account_id,name,last_ip) VALUES ("+getcharid(3)+",'"+ escape_sql(strcharinfo(0))+"','"+.@lastip$+"')"); //record new ip
                                mes $@name$;
                                mes "^616D7EYour registration is now accepted.";
                                mes "^ff0000Now, you should relog to make changes save and start properly.^000000";
                                mes " ";
                                mes "and ^0000ff~ We Welcome's you to our server.";
                                close;
                }
}
Viewed 453 times, submitted by lighta.