morocc,81,103,4 script Bree 555,{ function a; function b; goto MainMenu; MainMenu: mes .npc$; mes "Greetings "+strcharinfo(0)+"!"; mes "I am the known ^00557fGift Package Wrapper^000000."; next; if(getgmlevel()>=.@gm) { menu "[ ^005500Information^000000 ]",Info,"[ ^00007fWrap a Gift^000000 ]",Wrap,"[ ^ff0000GM Menu^000000 ]",GMMenu; } else { menu "[ ^005500Information^000000 ]",Info,"[ ^00007fWrap a Gift^000000 ]",Wrap; } close; GMMenu: mes .npc$; mes "Please select an option."; next; menu "[ ^005500Gift Listing^000000 ]",GiftList,"[ ^00007fDelete a Gift^000000 ]",DeleteGift,"[ ^ff0000Main Menu^000000 ]",MainMenu; close; GiftList: set .@serials,query_sql("SELECT `serial`,`sender`,`time_created`,`item_id`,`refine`,`card1`,`card2`,`card3`,`card4` FROM `ragnarok`.`gift_sys` ORDER BY `time_created` ASC LIMIT 15",.@ser$,.@sen$,.@time$,.@a,.@b,.@c,.@d,.@e,.@f); mes "[ ^00007fGift Box Listing^000000 ]"; if ( !.@serials ) { mes "^ff0000No Gift Box existed.^000000"; next; menu "[ ^00007fDelete a Gift^000000 ]",DeleteGift,"[ ^ff0000GM Menu^000000 ]",GMMenu,"[ ^00007fClose^000000 ]",No; close; } dispbottom "#:Serial:Sender:Time Created:Item:Refine:Card1:Card2:Card3:Card4"; mes "^ff0000See Chat-Box below to see Gift Listing.^000000"; for(set .@i,0; .@i 1) { mes .npc$; mes " "; mes "^3b3b3bLooks like you have same equipment in your inventory, store it first.^000000"; close; } if(getequipisequiped(1)==0&&getequipisequiped(2)==0&&getequipisequiped(3)==0&&getequipisequiped(4)==0&&getequipisequiped(5)==0&&getequipisequiped(6)==0&&getequipisequiped(7)==0&&getequipisequiped(8)==0&&getequipisequiped(9)==0&&getequipisequiped(10)==0){ mes "...."; sleep2 500; mes "^4f4f4fYou are not equipping any item!^000000"; close; } mes .npc$; mes "Input the reciever`s name."; input .@reciever$; mes "[ Name ] : ^55007f"+.@reciever$+"^000000"; if(getstrlen(.@reciever$)<4||getstrlen(.@reciever$)>23){ next; mes .npc$; mes " "; mes "^3b3b3bName must be atleast 4 character lenght and maximum of 23.^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; close; } if(.@reciever$ == strcharinfo(0)){ next; mes .npc$; mes " "; mes "^3b3b3bYou cannot put your own name!^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; close; } next; if (getequipid(.@m) != .@gi) { mes .npc$; mes "Aha! You switched your equipment! You dont do that to me!"; close; } mes .npc$; mes "Now type your message."; input .@rm$; if(getstrlen(.@rm$)<4||getstrlen(.@rm$)>23){ next; mes .npc$; mes " "; mes "^3b3b3bMessage must be atleast 4 character lenght and maximum of 23.^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; close; } mes "[ Message ] :"; mes "^00007f"+.@rm$+"^000000"; next; if (getequipid(.@m) != .@gi) { mes .npc$; mes "Aha! You switched your equipment! You dont do that to me!"; close; } mes .npc$; mes "Input your desired serial."; input .@h$; mes "[ Serial ] :"; mes "^339a9a"+.@h$+"^000000 "; query_sql "SELECT `serial`,`sender`,`account_id` FROM `ragnarok`.`gift_sys` WHERE `serial` = '"+escape_sql(.@h$)+"'",.@s$,.@g$,.@i; query_sql "SELECT `sender` FROM `ragnarok`.`gift_box` WHERE `serial` = '"+escape_sql(.@h$)+"'",.@n$; if(getstrlen(.@h$)<4||getstrlen(.@h$)>10){ next; mes .npc$; mes " "; mes "^3b3b3bSerial must be atleast 4 character length and maximum of 10.^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; close; } if(strcharinfo(0) == .@h$) { mes .npc$; mes " "; mes "^3b3b3bYou cannot enter your name as serial.^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; } if(strcharinfo(0) == .@g$ || getcharid(3) == .@i){ next; mes .npc$; mes " "; mes "^3b3b3bYour gift is not opened yet, cannot create another one^000000."; close; } if(.@s$ == .@h$){ next; mes .npc$; mes " "; mes "^3b3b3bYou cannot enter this serial.^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; close; } if (getequipid(.@m) != .@gi || (getequiprefinerycnt(.@m) != .@gr)) { next; mes .npc$; mes " "; mes "^3b3b3bYou changed your equipment.^000000"; close; } if(getequipisequiped(1)==0&&getequipisequiped(2)==0&&getequipisequiped(3)==0&&getequipisequiped(4)==0&&getequipisequiped(5)==0&&getequipisequiped(6)==0&&getequipisequiped(7)==0&&getequipisequiped(8)==0&&getequipisequiped(9)==0&&getequipisequiped(10)==0){ mes "...."; sleep2 500; mes "^4f4f4fYou are not equipping any item!^000000"; next; menu "[ ^005500Return^000000 ]",Yes,"[ ^ff0000Cancel^000000 ]",No; close; } if(.toggle[0]==1) { for(set .@b,1; .@b> 16; set .@aid,getcharid(3); next; mes .npc$; mes " "; mes "^005500Done wraping the gift!^000000"; getitem2 .gb,1,1,0,0,254,0,.@card3,.@card4,.@aid; if(.toggle[1]==1) { set Zeny,Zeny-.toggle[2]; } if(.toggle[0]==1) { for(set .@b,1; .@b