Jump to content
  • 0

GOLD ROOM EXCHANGE.

ProjectX

Asked by ProjectX,

 Share

Question

ProjectX Metaling

ProjectX

Posted
Posted

I WOULD LIKE TO REQUEST TO ANYONE.

1. ENTRANCE FEE IS OKEY

2. RAMDOM POINT/S 1-3 ONLY FOR GOLDROOM EVERY TIME YOU KILLED A MONTER.

3. 200 POINT/S EXCHANGE TO ITEM LIKE 7227

4. 10 POINT/S EXCHANGE ZENY 10,000,000

 

  

prontera,155,180,4	script	Gold Room#tst	100,{
	mes "What do you want?";
	next;
	switch(select("Enter Gold Room.:Exchange Points:Cancel")) {
		case 1:
			@str$ = "";
			mes "Make sure to type the strings correctly.";
			mes "Fee: ^FF0000"+F_InsertComma(.zeny)+" Z^000000";
			for( .@i=0; .@i<.strLen; .@i++ )
				@str$ += charat(.charSet$, rand(0, getstrlen(.charSet$)));
			mes "Passcode : ^FF0000"+@str$+"^000000";
			next;
			input .@txt$;
			if( .@txt$ != @str$ ) {
				mes "You will be kicked.";
				close2;
				atcommand "@kick "+strcharinfo(0);
				end;
			} else {
				if( Zeny < .zeny ) {
					mes "Sorry, but you can't enter the room.";
					close;
				} else {
					@str$ = "";
					Zeny -= .zeny;
					warp "ordeal_1-1",0,0;
					end;
				}
			}
			break;
			
		case 2:
			if( !#goldPoint ) {
				mes "Don't have enough Gold Points to exchange.";
				close;
			}
			mes "You currently have "+F_InsertPlural(#goldPoint, "Gold Point")+".";
			mes "Do you want to exchange them all or decide on how many you will exchange?";
			next;
			switch(select("Exchange all of my Gold Points:Decide on how many will I exchange:Cancel")) {
				case 1:
					if(!checkweight(969,#goldPoint)) {
						mes "Sorry, you can't carry these gold bars.";
						close;
					} else {
						getitem 969,#goldPoint;
						#goldPoint = 0;
						mes "Here's your gold bars.";
						mes "You currently have "+F_InsertPlural(#goldPoint, "Gold Point")+".";
						close;
					}
					break;
					
				case 2:
					mes "Input how many gold points will you get.";
					next;
					input .@gpoint,0,30000;
					if( .@gpoint > #goldPoint ) {
						mes "Sorry, you don't have enough gold points to exchange.";
						close;
					} else {
						if(!checkweight(969,.@gpoint)) {
							mes "Sorry, you can't carry these gold bars.";
							close;
						} else {
							getitem 969, .@gpoint;
							#goldPoint -= .@gpoint;
							mes "Here's your gold bars.";
							mes "You currently have "+F_InsertPlural(#goldPoint, "Gold Point")+".";
							close;
						}
					}
					break;
					
				default:
					goto L_Quit;
					break;
			}
			close;
			break;
			
		default:
			goto L_Quit;
			break;
	}
	L_Quit:
		close;
		end;
	
	OnInit:
		.charSet$ = "0123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ";
		.strLen = 10;		// Sets how many characters for the generated confirmation code.
		.zeny = 200000;		// Entrance fee for the room
		end;
}

ordeal_1-1,150,150,4	script	Exit	100,{
	mes "Want to go out?";
	if( select("Yes:No") == 2 ) close;
	else {
		warp "SavePoint",0,0;
		end;
	}
}


-	script	gold_room	-1,{
	OnInit:
		.mob_id = 1002;		// Monster ID for the Gold Room mobs
		monster "ordeal_1-1",0,0,"Golden Peco",.mob_id,100,strnpcinfo(0)+"::OnKilled";
		end;
		
	OnKilled:
		.ppk = rand(1,5);		// Points per kill
		#goldPoint += .ppk;
		dispbottom "-- Gold Point Information --";
		dispbottom "You have acquired "+F_InsertPlural(.ppk,"Gold Point")+".";
		dispbottom "You have currently have "+F_InsertPlural(#goldPoint,"Gold Point")+".";
		monster "ordeal_1-1",0,0,"Golden Peco",.mob_id,1,strnpcinfo(0)+"::OnKilled";
		end;
		
	OnPCDieEvent:
		if( strcharinfo(3) == "ordeal_1-1" ) {
			#goldPoint = 0;
			dispbottom "Sorry, but all of the Gold Points you have earned has vanished.";
		}
		end;
}

ordeal_1-1	mapflag	pvp_noparty
ordeal_1-1	mapflag	pvp_noguild
ordeal_1-1	mapflag	nowarp
ordeal_1-1	mapflag	noreturn
ordeal_1-1	mapflag	noteleport
ordeal_1-1	mapflag	noskill

 

1 answer to this question

Recommended Posts

  • 0
ryzenthird Santa Poring

ryzenthird

Posted
Posted 
prontera,155,180,4	script	Gold Room#tst	100,{
	mes "What do you want?";
	next;
	switch(select("Enter Gold Room.:Exchange Points:Cancel")) {
		case 1:
			@str$ = "";
			mes "Make sure to type the strings correctly.";
			mes "Fee: ^FF0000"+F_InsertComma(.zeny)+" Z^000000";
			for( .@i=0; .@i<.strLen; .@i++ )
				@str$ += charat(.charSet$, rand(0, getstrlen(.charSet$)));
			mes "Passcode : ^FF0000"+@str$+"^000000";
			next;
			input .@txt$;
			if( .@txt$ != @str$ ) {
				mes "You will be kicked.";
				close2;
				atcommand "@kick "+strcharinfo(0);
				end;
			} else {
				if( Zeny < .zeny ) {
					mes "Sorry, but you can't enter the room.";
					close;
				} else {
					@str$ = "";
					Zeny -= .zeny;
					warp "ordeal_1-1",0,0;
					end;
				}
			}
			break;
			
		case 2:
			if( !#goldPoint ) {
				mes "Don't have enough Gold Points to exchange.";
				close;
			}
			mes "You currently have "+F_InsertPlural(#goldPoint, "Gold Point")+".";
			mes "Select to what you will exchange your Gold Point";
			next;
			switch(select("GOLD BARS:ZENY:Cancel")) {
              case 1:
					switch(select("Exchange all of my Gold Points:Decide on how many will I exchange:Cancel")) {
						case 1:
							if(!checkweight(969,#goldPoint)) {
								mes "Sorry, you can't carry these gold bars.";
								close;
							} else {
								getitem 969,#goldPoint;
								#goldPoint = 0;
								mes "Here's your gold bars.";
								mes "You currently have "+F_InsertPlural(#goldPoint, "Gold Point")+".";
								close;
							}
							break;
						case 2:
							mes "Input how many gold points will you get.";
							next;
							input .@gpoint,0,30000;
							if( .@gpoint > #goldPoint ) {
								mes "Sorry, you don't have enough gold points to exchange.";
								close;
							} else {
							if(!checkweight(969,.@gpoint)) {
								mes "Sorry, you can't carry these gold bars.";
								close;
							} else {
								getitem 969, .@gpoint;
								#goldPoint -= .@gpoint;
								mes "Here's your gold bars.";
								mes "You currently have "+F_InsertPlural(#goldPoint, "Gold Point")+".";
								close;
							}
						}
							break;
						default:
							goto L_Quit;
							break;
					}
              case 2:
					mes "Input how many Gold Points would you like to convert!";
                    input .@gpoint,0,30000;
						if( .@gpoint > #goldPoint ) {
							mes "Sorry, you don't have enough gold points to exchange.";
							close;
						} else {
                        	.@totalzeny = zeny + (.@gpoint * .zeny_to_gpoint); 
							if(.@totalzeny > MAX_ZENY){
								mes "Sorry, you can't have that much zeny in to your account.";
                               	close;
							}else{
                            	zeny += .@gpoint * .zeny_to_gpoint;
                                #goldPoint -= .@gpoint;
								mes "Transaction Success! You earned ("+F_InsertComma(.@gpoint * .zeny_to_gpoint)+")z";
								close;
							}
						}
				
              default:
                	goto L_QUIT;
                	break;
            }
			close;
			break;
			
		default:
			goto L_Quit;
			break;
	}
	L_Quit:
		close;
		end;
	
	OnInit:
		.charSet$ = "0123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ";
		.strLen = 10;		// Sets how many characters for the generated confirmation code.
		.zeny = 200000;		// Entrance fee for the room
		.zeny_to_gpoint = 1000000;
		end;
}

ordeal_1-1,150,150,4	script	Exit	100,{
	mes "Want to go out?";
	if( select("Yes:No") == 2 ) close;
	else {
		warp "SavePoint",0,0;
		end;
	}
}


-	script	gold_room	-1,{
	OnInit:
		.mob_id = 1002;		// Monster ID for the Gold Room mobs
		monster "ordeal_1-1",0,0,"Golden Peco",.mob_id,100,strnpcinfo(0)+"::OnKilled";
		end;
		
	OnKilled:
		.ppk = rand(1,3);		// Points per kill
		#goldPoint += .ppk;
		dispbottom "-- Gold Point Information --";
		dispbottom "You have acquired "+F_InsertPlural(.ppk,"Gold Point")+".";
		dispbottom "You have currently have "+F_InsertPlural(#goldPoint,"Gold Point")+".";
		monster "ordeal_1-1",0,0,"Golden Peco",.mob_id,1,strnpcinfo(0)+"::OnKilled";
		end;
		
	OnPCDieEvent:
		if( strcharinfo(3) == "ordeal_1-1" ) {
			#goldPoint = 0;
			dispbottom "Sorry, but all of the Gold Points you have earned has vanished.";
		}
		end;
}

ordeal_1-1	mapflag	pvp_noparty
ordeal_1-1	mapflag	pvp_noguild
ordeal_1-1	mapflag	nowarp
ordeal_1-1	mapflag	noreturn
ordeal_1-1	mapflag	noteleport
ordeal_1-1	mapflag	noskill

I'm not sure if this will work but I added a "GPOINT -> ZENY" converter and also changed the point from random(1,5) to random(1,3) hope this helps ?

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...