Jaburak Posted May 31, 2013 Posted May 31, 2013 prontera,145,158,1 script Gold Room 4_m_yuri,{ if (Life == 1) goto L_Life; mes "[Gold Room]"; mes "Hey, Hey! You wonder why I am so Rich?!"; mes "Well, that because I found this place called the Gold Room"; mes "OMG! There's 10 Gold Room!"; mes "The 1x is free"; mes "But all the other Gold Room you have to pay Gold."; mes "2x is 2000 Gold, 3x is 3000 Gold and Soon On..."; mes "Why you have to pay? Well it drops MORE Times the GOLD!"; mes "Oh! There's a Lifetime Pass! You need 30k Gold..."; mes "So, which Gold Room would you like to go too?"; menu "1x",1,"2x",2,"3x",3,"4x",4,"5x",5,"6x",6,"7x",7,"8x",8,"9x",9,"10x",10,"Lifetime Pass",lt,"Bye",bye; lt: mes "[Gold Room]"; mes "You need 30k Gold to have a Lifetime pass."; mes "Lifetime Pass let's you go to ALL the Gold Room for Free!"; mes "Do you have 30k Gold?"; menu "Yes!",yup,"Nope",bye; yup: if (countitem(969)==30000) ) goto yup_; mes "[Gold Room]"; mes "You don't have it!"; next; close; yup_: delitem 969,30000; set Life,1; mes "[Gold Room]"; mes "You have a Life Time Pass!"; next; close; 1: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_1-1",0,0; end; 2: if (countitem(969)>=2000) ) goto 2_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 2_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,2000; next; warp "pvp_y_2-1",0,0; end; 3: if (countitem(969)>=3000) ) goto 3_; mes "[Gold Room]"; mes "Ha! You don't have enough!",; next; close; 3_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,3000; next; warp "pvp_y_3-1",0,0; end; 4: if (countitem(969)>=4000) ) goto 4_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 4_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,4000; next; warp "pvp_y_4-1",0,0; end; 5: if (countitem(969)>=5000) ) goto 5_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 5_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,5000; next; warp "pvp_y_5-1",0,0; end; 6: if (countitem(969)>=6000) ) goto 6_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 6_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,6000; next; warp "pvp_y_6-1",0,0; end; 7: if (countitem(969)>=7000) ) goto 7_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 7_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,7000; next; warp "pvp_y_7-1",0,0; end; 8: if (countitem(969)>=8000) ) goto 8_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 8_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,8000; next; warp "pvp_y_8-1",0,0; end; 9: if (countitem(969)>=9000) ) goto 9_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 9_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,9000; next; warp "pvp_y_1-5",0,0; end; 10: if (countitem(969)>=10000) ) goto 10_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 10_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,10000; next; warp "pvp_y_2-5",0,0; end; bye: mes "[Gold Room]"; mes "Bye"; close; L_Life: mes "[Gold Room]"; mes "You have a Life Time Pass"; mes "Which Room would you like to go in?"; menu "1x",1__,"2x",2__,"3x",3__,"4x",4__,"5x",5__,"6x",6__,"7x",7__,"8x",8__,"9x",9__,"10x",10__,"Bye",bye; 1__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_1-1",0,0; end; 2__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_2-1",0,0; end; 3__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_3-1",0,0; end; 4__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_4-1",0,0; end; 5__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_5-1",0,0; end; 6__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_6-1",0,0; end; 7__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_7-1",0,0; end; 8__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_8-1",0,0; end; 9__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_1-5",0,0; end; 10__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_2-5",0,0; end; } - script I AM cool? -1,{ OnInit: monster "pvp_y_1-1",0,0,"Gold",1614,2500,"1::OnMobKilled"; monster "pvp_y_2-1",0,0,"Gold",1614,2500,"2::OnMobKilled"; monster "pvp_y_3-1",0,0,"Gold",1614,2500,"3::OnMobKilled"; monster "pvp_y_4-1",0,0,"Gold",1614,2500,"4::OnMobKilled"; monster "pvp_y_5-1",0,0,"Gold",1614,2500,"5::OnMobKilled"; monster "pvp_y_6-1",0,0,"Gold",1614,2500,"6::OnMobKilled"; monster "pvp_y_7-1",0,0,"Gold",1614,2500,"7::OnMobKilled"; monster "pvp_y_8-1",0,0,"Gold",1614,2500,"8::OnMobKilled"; monster "pvp_y_1-5",0,0,"Gold",1614,2500,"9::OnMobKilled"; monster "pvp_y_2-5",0,0,"Gold",1614,2500,"10::OnMobKilled"; end; } - script 1 -1,{ OnMobKilled: getitem 969,1; monster "pvp_y_1-1",0,0,"Gold",1847,1,"1::OnMobKilled"; } - script 2 -1,{ OnMobKilled: getitem 969,2; monster "pvp_y_2-1",0,0,"Gold",1614,1,"2::OnMobKilled"; } - script 3 -1,{ OnMobKilled: getitem 969,3; monster "pvp_y_3-1",0,0,"Gold",1614,1,"3::OnMobKilled"; } - script 4 -1,{ OnMobKilled: getitem 969,4; monster "pvp_y_4-1",0,0,"Gold",1614,1,"4::OnMobKilled"; } - script 5 -1,{ OnMobKilled: getitem 969,5; monster "pvp_y_5-1",0,0,"Gold",1614,1,"5::OnMobKilled"; } - script 6 -1,{ OnMobKilled: getitem 969,6; monster "pvp_y_6-1",0,0,"Gold",1614,1,"6::OnMobKilled"; } - script 7 -1,{ OnMobKilled: getitem 969,9; monster "pvp_y_7-1",0,0,"Gold",1614,1,"7::OnMobKilled"; } - script 8 -1,{ OnMobKilled: getitem 969,8; monster "pvp_y_8-1",0,0,"Gold",1614,1,"8::OnMobKilled"; } - script 9 -1,{ OnMobKilled: getitem 969,9; monster "pvp_y_1-5",0,0,"Gold",1614,1,"9::OnMobKilled"; } - script 10 -1,{ OnMobKilled: getitem 969,10; monster "pvp_y_2-5",0,0,"Gold",1614,1,"10::OnMobKilled"; } Quote
Yoona Posted June 18, 2013 Author Posted June 18, 2013 prontera,145,158,1 script Gold Room 4_m_yuri,{ if (Life == 1) goto L_Life; mes "[Gold Room]"; mes "Hey, Hey! You wonder why I am so Rich?!"; mes "Well, that because I found this place called the Gold Room"; mes "OMG! There's 10 Gold Room!"; mes "The 1x is free"; mes "But all the other Gold Room you have to pay Gold."; mes "2x is 2000 Gold, 3x is 3000 Gold and Soon On..."; mes "Why you have to pay? Well it drops MORE Times the GOLD!"; mes "Oh! There's a Lifetime Pass! You need 30k Gold..."; mes "So, which Gold Room would you like to go too?"; menu "1x",1,"2x",2,"3x",3,"4x",4,"5x",5,"6x",6,"7x",7,"8x",8,"9x",9,"10x",10,"Lifetime Pass",lt,"Bye",bye; lt: mes "[Gold Room]"; mes "You need 30k Gold to have a Lifetime pass."; mes "Lifetime Pass let's you go to ALL the Gold Room for Free!"; mes "Do you have 30k Gold?"; menu "Yes!",yup,"Nope",bye; yup: if (countitem(969)==30000) ) goto yup_; mes "[Gold Room]"; mes "You don't have it!"; next; close; yup_: delitem 969,30000; set Life,1; mes "[Gold Room]"; mes "You have a Life Time Pass!"; next; close; 1: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_1-1",0,0; end; 2: if (countitem(969)>=2000) ) goto 2_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 2_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,2000; next; warp "pvp_y_2-1",0,0; end; 3: if (countitem(969)>=3000) ) goto 3_; mes "[Gold Room]"; mes "Ha! You don't have enough!",; next; close; 3_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,3000; next; warp "pvp_y_3-1",0,0; end; 4: if (countitem(969)>=4000) ) goto 4_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 4_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,4000; next; warp "pvp_y_4-1",0,0; end; 5: if (countitem(969)>=5000) ) goto 5_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 5_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,5000; next; warp "pvp_y_5-1",0,0; end; 6: if (countitem(969)>=6000) ) goto 6_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 6_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,6000; next; warp "pvp_y_6-1",0,0; end; 7: if (countitem(969)>=7000) ) goto 7_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 7_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,7000; next; warp "pvp_y_7-1",0,0; end; 8: if (countitem(969)>=8000) ) goto 8_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 8_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,8000; next; warp "pvp_y_8-1",0,0; end; 9: if (countitem(969)>=9000) ) goto 9_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 9_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,9000; next; warp "pvp_y_1-5",0,0; end; 10: if (countitem(969)>=10000) ) goto 10_; mes "[Gold Room]"; mes "Ha! You don't have enough!"; next; close; 10_: mes "[Gold Room]"; mes "Have Fun!"; delitem 969,10000; next; warp "pvp_y_2-5",0,0; end; bye: mes "[Gold Room]"; mes "Bye"; close; L_Life: mes "[Gold Room]"; mes "You have a Life Time Pass"; mes "Which Room would you like to go in?"; menu "1x",1__,"2x",2__,"3x",3__,"4x",4__,"5x",5__,"6x",6__,"7x",7__,"8x",8__,"9x",9__,"10x",10__,"Bye",bye; 1__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_1-1",0,0; end; 2__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_2-1",0,0; end; 3__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_3-1",0,0; end; 4__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_4-1",0,0; end; 5__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_5-1",0,0; end; 6__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_6-1",0,0; end; 7__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_7-1",0,0; end; 8__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_8-1",0,0; end; 9__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_1-5",0,0; end; 10__: mes "[Gold Room]"; mes "Have Fun!"; next; warp "pvp_y_2-5",0,0; end; } - script I AM cool? -1,{ OnInit: monster "pvp_y_1-1",0,0,"Gold",1614,2500,"1::OnMobKilled"; monster "pvp_y_2-1",0,0,"Gold",1614,2500,"2::OnMobKilled"; monster "pvp_y_3-1",0,0,"Gold",1614,2500,"3::OnMobKilled"; monster "pvp_y_4-1",0,0,"Gold",1614,2500,"4::OnMobKilled"; monster "pvp_y_5-1",0,0,"Gold",1614,2500,"5::OnMobKilled"; monster "pvp_y_6-1",0,0,"Gold",1614,2500,"6::OnMobKilled"; monster "pvp_y_7-1",0,0,"Gold",1614,2500,"7::OnMobKilled"; monster "pvp_y_8-1",0,0,"Gold",1614,2500,"8::OnMobKilled"; monster "pvp_y_1-5",0,0,"Gold",1614,2500,"9::OnMobKilled"; monster "pvp_y_2-5",0,0,"Gold",1614,2500,"10::OnMobKilled"; end; } - script 1 -1,{ OnMobKilled: getitem 969,1; monster "pvp_y_1-1",0,0,"Gold",1847,1,"1::OnMobKilled"; } - script 2 -1,{ OnMobKilled: getitem 969,2; monster "pvp_y_2-1",0,0,"Gold",1614,1,"2::OnMobKilled"; } - script 3 -1,{ OnMobKilled: getitem 969,3; monster "pvp_y_3-1",0,0,"Gold",1614,1,"3::OnMobKilled"; } - script 4 -1,{ OnMobKilled: getitem 969,4; monster "pvp_y_4-1",0,0,"Gold",1614,1,"4::OnMobKilled"; } - script 5 -1,{ OnMobKilled: getitem 969,5; monster "pvp_y_5-1",0,0,"Gold",1614,1,"5::OnMobKilled"; } - script 6 -1,{ OnMobKilled: getitem 969,6; monster "pvp_y_6-1",0,0,"Gold",1614,1,"6::OnMobKilled"; } - script 7 -1,{ OnMobKilled: getitem 969,9; monster "pvp_y_7-1",0,0,"Gold",1614,1,"7::OnMobKilled"; } - script 8 -1,{ OnMobKilled: getitem 969,8; monster "pvp_y_8-1",0,0,"Gold",1614,1,"8::OnMobKilled"; } - script 9 -1,{ OnMobKilled: getitem 969,9; monster "pvp_y_1-5",0,0,"Gold",1614,1,"9::OnMobKilled"; } - script 10 -1,{ OnMobKilled: getitem 969,10; monster "pvp_y_2-5",0,0,"Gold",1614,1,"10::OnMobKilled"; } error at line 21 =( Quote
Skorm Posted June 18, 2013 Posted June 18, 2013 (edited) Hate it when I run into codes like these they're so repetitive. I haven't tested it but, instead just did a quick proof read. Made more changes. http://pastebin.com/raw.php?i=1G8dUWVd If you're running rAthena you can Replace: set .@map$, callfunc "str_charat", strcharinfo(3), 6;With:set .@map$, substr(strcharinfo(3), 6, 6);And Delete:/// callfunc "str_charat", "<string>" , <pos> ; function script str_charat { sleep2 1; setarray .@char$[ 0 ], " ", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "e", "i", "a", "s", "r", "n", "t", "o", "u", "l", "c", "p", "m", "d", "v", "h", "g", "f", "b", "y", "q", "k", "z", "x", "j", "w", "_", "-", ".", ","; set .@charsize, getarraysize(.@char$); set .@tmp$, "|~key~|"; set .@str$, .@tmp$ + getarg(0) ; set .@len, getstrlen(getarg(0)); set .@pos, getarg(1); if ( .@pos >= .@len ) return ""; while( .@len>.@s ) { set .@i,0; while( .@i<.@charsize ) { if ( ! ( set(.@l,.@l+1) % 650) ) sleep2 1; if ( compare( .@str$ , .@tmp$ + .@char$[.@i] ) ) { set .@tmp$, .@tmp$ + .@char$[.@i]; if ( .@s == .@pos ){ return .@char$[.@i] ; end; } else break; } set .@i, .@i+1; } if ( .@i == .@charsize ) return 0; else set .@s, .@s+1; } end; } Edited June 19, 2013 by Skorm Quote
Question
Yoona
Can someone help me with this?
4 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.