Jump to content
  • 0

GOLD ROOM EXCHANGE.

ProjectX

Asked by ProjectX,

 Share

Question

ProjectX Metaling

ProjectX

Posted
  • Group:  Members
  • Topic Count:  7
  • Topics Per Day:  0.02
  • Content Count:  17
  • Reputation:   0
  • Joined:  03/29/23
  • Last Seen:  
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

 

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0
ryzenthird Santa Poring

ryzenthird

Posted
  • Group:  Donators
  • Topic Count:  2
  • Topics Per Day:  0.00
  • Content Count:  23
  • Reputation:   2
  • Joined:  10/31/12
  • Last Seen:  
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 ?

Link to comment
Share on other sites

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
×
×
  • Create New...