Lil Troll

done
- script double_exp_2weeks -1,{ OnInit: set .bexp_rate, 25; set .jexp_rate, 25; set .drop_rate, 25; end; OnFri2300: setbattleflag "base_exp_rate", .bexp_rate*100 * 2; setbattleflag "job_exp_rate", .jexp_rate*100 * 2; setbattleflag "item_rate_common", .drop_rate*100 * 2; setbattleflag "item_rate_heal", .drop_rate*100 * 2; setbattleflag "item_rate_use", .drop_rate*100 * 2; setbattleflag "item_rate_equip", .drop_rate*100 * 2; setbattleflag "item_rate_card", .drop_rate*100 * 2; atcommand "@reloadmobdb"; announce "Week End Double Exp Started!", bc_all; end; OnSun2300: setbattleflag "base_exp_rate", .bexp_rate*100; setbattleflag "job_exp_rate", .jexp_rate*100; setbattleflag "item_rate_common", .drop_rate*100; setbattleflag "item_rate_heal", .drop_rate*100; setbattleflag "item_rate_use", .drop_rate*100; setbattleflag "item_rate_equip", .drop_rate*100; setbattleflag "item_rate_card", .drop_rate*100; atcommand "@reloadmobdb"; announce "The Double Exp Event has ended.", bc_all; end; }

Ok give me a bit, i must create a condition if you are a guild master.


I figure that you cannot change the name in your the Guild Listing, I think its because its client sided or something is preventing that, i tried changing the names in guild_member in query but everytime I char select and refresh the sql it returns back to original name. The best way is to prevent any player from changing name when they are in guild.
 
Now here is the script. Just modify the dialogues.
-Added if Char Name already exists restrictions.
-Added if Char is already in a guild restrictions.
(Use transfer Guild Leader first before changing name if character is a Guild Leader.)
prontera,158,182,0 script Sample 100,{ mes "Blahblah"; menu "Change Name",one,"Change Birth",two; one: query_sql "SELECT `name` FROM `ragnarok`.`char` WHERE `name` = '"+strcharinfo(0)+"'",[email protected]$; set @GID,getcharid(2); if([email protected]==0){ mes "Please leave your guild first before you change name."; close; } mes "Input name..."; input [email protected]$; if(getstrlen([email protected]$)<4| getstrlen([email protected]$)>23){ mes "You cannot enter less than minimum of 4 and greater than maximum of 23 characters."; close; } if([email protected]$ == strcharinfo(0)) { mes "You cannot enter same name."; close; } query_sql "SELECT `name` FROM `ragnarok`.`char` WHERE `name` = '"[email protected]$+"'",[email protected]$; if([email protected]$ == [email protected]$){ mes "Name already exists."; close; } mes "New name: "[email protected]$+""; query_sql "UPDATE `char` SET `name` = '"+escape_sql([email protected]$)+"' WHERE `name` = '"+strcharinfo(0)+"'"; sleep2 1000; mes "Name successfully changed, please relog to see changes."; close; two: query_sql "SELECT `birthdate` FROM `ragnarok`.`login` WHERE `account_id` = '"+getcharid(3)+"'",[email protected]$; mes "Birth Date: "[email protected]$+""; mes "Input Year of Birth."; input [email protected]; if([email protected]==0){ mes "You entered wrong number of month."; close; } mes "Input Month of Birth."; input [email protected]; if([email protected]month==0||[email protected]>12){ mes "You entered wrong number of month."; close; } mes "Input Day of Birth."; input [email protected]; if([email protected]==0||[email protected]>31){ mes "You entered wrong number of day."; close; } mes "New B-D: "[email protected]+"-"[email protected]+"-"[email protected]+""; query_sql "UPDATE `login` SET `birthdate` = '"+escape_sql([email protected])+"-"+escape_sql([email protected])+"-"+escape_sql([email protected])+"' WHERE `account_id` = '"+getcharid(3)+"'"; sleep2 1000; mes "Birth Date successfully changed!"; close; }

in npc\mobs:
prontera,0,0,0,0 monster Wild Rose 1261,1,3600000,0,0 3600000 = 1 Hour

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/

set [email protected]$,"[Daily Reward]"; mes [email protected]$; mes "Hey! Have you taken your reward today?"; select("Yes"); if (#dr_time$ != gettimestr("%Y%m%d",9)) { next; mes [email protected]$; mes "LIAR!!!"; mes "Telling lies are no good."; mes "Please take your reward!"; next; set #dr_time$, gettimestr("%Y%m%d",9); switch (gettime(4)) { Case 0: getitem 671,1; break; Case 1: getitem 672,1; break; Case 2: getitem 673,1; break; Case 3: getitem 674,1; break; Case 4: getitem 675,1; break; Case 5: getitem 676,1; break; Case 6: getitem 677,1; break; } next; mes [email protected]$; mes "Don't tell lies next time..."; mes "Have a nice day!"; close; } next; mes [email protected]$; mes "Then don't talk to me!"; close; } This is a account based daily from these post:
http://rathena.org/board/topic/68819-request-daily-rewards-npc/
You can change the reward prize by just changing the getitem 671 "item id". 671 = Gold Coin change that to other Item(ID ONLY).
 

Here is your request. It just need some minor adjustments. Feel free to modify the whole script.
 
- script Quest_Quest -1,{ OnInit: setarray $QReq[0],501,502,503,504,505,506,507,508,509,510; // Input Quest Requirements here, you can add or remove. setarray $Prize[0],501,502,503,504,505,506,507,508,509,510; // Input Prizes here, you can add or remove. setarray $Amount[0],1,1,1,1,1,1,1,1,1,1; // Amount of items to be deleted in for statement. /* lemon = Variable to determine what quest is set or attach to the player. */ } city,84,317,5 script DudeMan 665,{ //I always like to index quest variables at the top if(lemon == 1){goto QUESTNAME1;} if(lemon == 2){goto QUESTNAME2;} if(lemon == 3){goto QUESTNAME3;} if(lemon == 4){goto QUESTNAME4;} if(lemon == 5){goto QUESTNAME5;} if(lemon == 6){goto QUESTNAME6;} if(lemon == 7){goto QUESTNAME7;} if(lemon == 8){goto QUESTNAME8;} if(lemon == 9){goto QUESTNAME9;} if(lemon == 10){goto QUESTNAME10;} if(lemon == 11){goto QUESTNAME11;} if(lemon == 11){goto QUESTNAME12;} mes "[DudeMan]"; mes "Go and punch Lemon and i will reward you."; set lemon, 1; close; QUESTNAME1: mes "[DudeMan]"; mes "Did you do it?"; mes "Come on, i know you didn't."; close; QUESTNAME2: mes "[DudeMan]"; mes "Its seems you need to prepare first before punching that lemon."; next; mes "[DudeMan]"; ​ mes "Now talk to orange! To find out how!"; set lemon,3; close; QUESTNAME3: mes "[DudeMan]"; mes "Did you talk already to Orange?"; close; QUESTNAME4: mes "[DudeMan]"; mes "So whats Orange did told you?"; next; mes "[DudeMan]"; mes "Ohh so he wanted you to talk to apple eh..."; close; QUESTNAME5: mes "[DudeMan]"; mes "Did you already punch Lemon?"; close; QUESTNAME6: mes "[DudeMan]"; mes "Whats the news man! Your talking it too long!"; close; QUESTNAME 7: mes "[DudeMan]"; mes "So whats Orange tell you to do now?"; close; QUESTNAME 8: mes "[DudeMan]"; mes "If you dont want to do what i told you i will not give you your prize!"; close; QUESTNAME 9: mes "[DudeMan]"; mes "Why the task taking you so long?"; close; QUESTNAME 9: mes "[DudeMan]"; mes "OMG! It taking my patient off!"; close; QUESTNAME 10: mes "[DudeMan]"; mes "Yeah! Im waiting for that chance! I will now avenge my lose to that woman!"; close; QUESTNAME 11: mes "[DudeMan]"; mes "Hehe, you showed that idiot."; next; mes "[DudeMan]"; mes "Now here is your reward!"; set [email protected],$Prize[rand(getarraysize($Prize))]; // Seting random Prize in the list above set [email protected],rand(5,10); // Setting random amount of prize getitem [email protected],[email protected]; close; QUESTNAME11: mes "[DudeMan]"; mes "Thanks buddy! I owe you one!"; close; }//End of DudeMan city,85,300,5 script Orange 665,{ if(lemon == 3) {goto QUESTNAME1;} if(lemon == 4) {goto QUESTNAME2;} if(lemon == 5) {goto QUESTNAME3;} if(lemon == 6) {goto QUESTNAME4;} if(lemon == 7 && lemon == 8 && lemon == 9) {goto QUESTNAME5; } if(lemon == 10) {goto QUESTNAME6;} if(lemon == 11) {goto QUESTNAME7; } mes "[Orange]"; mes "I Have no business with you...."; close; QUESTNAME1: mes "[Orange]"; mes "So, Dudeman got grudge on Lemon ehh..."; next; mes "[Orange]"; mes "In order to punch Lemon, you must first get "+getitemname($QReq[0])+" and "+getitemname($QReq[1])+" to Apple. Now talk to Apple"; set lemon,4; close; QUESTNAME2: mes "[Orange]"; mes "Did you already talked to Apple?..."; close; QUESTNAME3: mes "[Orange]"; mes "Wow good job! Now talk to Strawberry to get other items"; close; QUESTNAME4: mes "[Orange]"; mes "You are doing great! Now talk to Watermelon to get the remaining items."; mes "The items are the following "+getitemname($QReq[6])+", "+getitemname($QReq[7])+", "+getitemname($QReq[8])+" and "+getitemname($QReq[9])+"."; close; QUESTNAME5: mes "[Orange]"; mes "Im geting bored, you need to finish my task asap!"; close; QUESTNAME6: mes "[Orange]"; mes "Ok! Now you have the items, all you need to do is give them to orange and offer them for free. Then when he grabs the items go and punch him and run!"; set lemon,12; close; QUESTNAME7: mes "[Orange]"; mes "LOL! I wonder whats Lemon looks like when you punch him! That suit him for stealing my girl Strawberry!"; close; } city,150,200,5 script Water Melon 665,{ if(lemon == 6) {goto QUESTNAME1;} if(lemon == 9) {goto QUESTNAME2;} mes "[Water Melon]"; set [email protected],rand(1,2); if([email protected] == 1){ mes "Its a boring day!"; close; } if([email protected] == 2){ mes "I wanted to sleep now, please stop bothering me!" close;} QUESTNAME1: mes "[Water Melon]"; mes "So Apple like to have "+getitemname($QReq[6])+", "+getitemname($QReq[7])+", "+getitemname($QReq[8])+" and "+getitemname($QReq[9])+"?"; next; mes "[Water Melon]"; mes "I will give it to you but in one condition."; mes "You must give this "+getitemname(712)+" to Strawberry"; getitem 712,1; set lemon8, close; QUESTNAME2: mes "[Water Melon]"; mes "Wow thanks! im really shy giving the flower to straberry personally, thanks for your help!"; mes "Here you go! This are your "+getitemname($QReq[6])+", "+getitemname($QReq[7])+", "+getitemname($QReq[8])+" and "+getitemname($QReq[9])+"."; set Zeny,Zeny-500; getitem $QReq[6],1; getitem $QReq[7],1; getitem $QReq[8],1; getitem $QReq[8],9; set lemon,10; close; } city,87,200,5 script Strawberry 665,{ if(lemon == 5) {goto QUESTNAME1;} if(lemon == 8) {goto QUESTNAME2;} mes "[Straberry]"; set [email protected],rand(1,2); if([email protected] == 1){ mes "Its a great day today isnt it?"; close; } if([email protected] == 2){ mes "I wonder where is my lover Lemon?" close;} QUESTNAME1: mes "[Straberry]"; mes "So Apple like to have "+getitemname($QReq[3])+", "+getitemname($QReq[4])+" and "+getitemname($QReq[5])+"?"; next; mes "[Straberry]"; mes "I will give it to you cheap, because you are refered by Apple. It will cost 500Zeny."; next; if(Zeny < 500 ){ mes "[Straberry]"; mes "You dont have enought Zeny"; close; } mes "[Straberry]"; mes "Here you go! This are your "+getitemname($QReq[3])+", "+getitemname($QReq[4])+" and "+getitemname($QReq[5])+"."; set Zeny,Zeny-500; getitem $QReq[3],1; getitem $QReq[4],1; getitem $QReq[5],1; set lemon,6; close; QUESTNAME2: if(countitem 712 == 0){ mes "[Straberry]"; mes "Why are you here for?"; mes "Is there something wrong?"; close; } mes "[Straberry]"; mes "Wow im very thankful for this beautiful flowers! Please tell Water Melon my appreciation!"; set lemon,10; delitem 712,1; close; } city,85,300,5 script Apple 665,{ if(lemon == 4) {goto QUESTNAME1;} mes "[Apple]"; set [email protected],rand(1,2); if([email protected] == 1){ mes "Selling Apples cheap! Want to buy?"; close; } if([email protected] == 2){ mes "You will love this cheap Apples!" close; } QUESTNAME1: mes "[Apple]"; mes "So, Orange told you something ehhh...."; mes "He wants to have "+getitemname($QReq[0])+" and "+getitemname($QReq[1])+"?"; next; mes "[Apple]"; mes "Ok wait for a moment while im getting the items..."; sleep2 1000; mes "........"; sleep2 1000; mes "...."; sleep2 1000; mes "Ok! here is your "+getitemname($QReq[0])+" and "+getitemname($QReq[1])+" now talk to Orange again."; getitem $QReq[0],1; getitem $QReq[1],1; set lemon,5; close; } city,84,317,5 script Lemon 665,{ if(lemon == 1){goto QUESTNAME1;} if(lemon == 10){goto QUESTNAME2;} if(lemon == 11){goto QUESTNAME3;} mes "[Lemon]"; mes "This script is UNNACEPTABLEEEEEE!."; close; QUESTNAME1: mes "[Lemon]"; mes "Please bug off!"; set lemon, 2; close; QUESTNAME2: for ([email protected] = 0; [email protected] < getarraysize($QReq); [email protected]++){ // For Statement if (countitem($QReq[[email protected]]) < 1 ){ // Check the requirements. message "I wonder how can sneak and punch Lemon"; } } dispbottom "You punch him really hard in the belly."; sleep2 2000; emotion e_sob; mes "[Lemon]"; mes "w... why?"; sleep2 3000; emotion e_sob; mes "That hurts!"; set lemon, 11; for ([email protected] = 0; [email protected] < getarraysize($QReq); [email protected]++) delitem $QReq[[email protected]], $Amount[[email protected]]; // Delete all items. (For statement) close; QUESTNAME3: emotion e_sob; mes "[Lemon]"; mes "Please don't hurt me!"; close; }//End of Lemon

I think i know whats your problem in chromus post: Use TABS
prontera,158,204,4<TAB>script<TAB>TCG Shop<TAB>98,{ If no appearing try mine:
http://rathena.org/board/topic/86137-item-trader/?p=216167 And also try icetie post.

Congrats you got lot of options!.

Im really new to scripting but i got a lil information to spare.

Q: How to make a script to work from the start of the server?
A: There are vary of options you can choose,
          ex: OnPCLoginEvent: = When a char Log in
          ex: mapname,x,y,z,<TAB>script<TAB>scriptname<TAB>spriteid,{   = NPC
 
Q: How to make an image appear over a player (like emblem in WoE)?
A: Probably src editing or, playing special effects attaching in the player.
 
Q; How to equip the item only if it the player has a skill ? (eg with Sword -> Sword Mastery)
A: I only know, if( BaseClass == Job_"JOB" ) atm.
 
Q: - And how to put multiple scripts in a single weapon? (eg A script when it is equipped and B script when unequipped)
A:  {  bonus bAllstats,10; },{ equip 1202; },{ unequip 1202; atcommand "@die"; }
                     { Script },  { OnEquip_Script },      { OnUnequip_Script }

Hope more advance and pro scripter help give you more info.