Jump to content

ProjectX

Members
 View Profile  See their activity

  • Posts

    17

  • Joined

  • Last visited

 Content Type 

Posts posted by ProjectX

    GOLD ROOM EXCHANGE.

    in Scripting Support

    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

     

    Item drops on player's death

    in Script Requests

    Posted

    yes there are no drop when i used mapflag 

     

    Spoiler


    //------------------------- Normal Maps ---------------------------
    alb_ship    mapflag    pvp_nightmaredrop    random,equip,300
    alb2trea    mapflag    pvp_nightmaredrop    random,equip,300
    alberta    mapflag    pvp_nightmaredrop    random,equip,300
    alberta_in    mapflag    pvp_nightmaredrop    random,equip,300
    alde_dun01    mapflag    pvp_nightmaredrop    random,equip,300
    alde_dun02    mapflag    pvp_nightmaredrop    random,equip,300
    alde_dun03    mapflag    pvp_nightmaredrop    random,equip,300
    alde_dun04    mapflag    pvp_nightmaredrop    random,equip,300
    aldeba_in    mapflag    pvp_nightmaredrop    random,equip,300
    aldebaran    mapflag    pvp_nightmaredrop    random,equip,300
    anthell01    mapflag    pvp_nightmaredrop    random,equip,300
    anthell02    mapflag    pvp_nightmaredrop    random,equip,300
    arena_room    mapflag    pvp_nightmaredrop    random,equip,300
    c_tower1    mapflag    pvp_nightmaredrop    random,equip,300
    c_tower2    mapflag    pvp_nightmaredrop    random,equip,300
    c_tower3    mapflag    pvp_nightmaredrop    random,equip,300
    c_tower4    mapflag    pvp_nightmaredrop    random,equip,300

    this is the sample

    LEVEL REQUIREMENTS LVL 99

    in Script Requests

    Posted

    15 hours ago, hendra814 said:

    Thanks it's working now 

    -	script	atcmd_noitem	-1,{
  OnInit:
	bindatcmd("getitem",strnpcinfo(3)+"::OnAtcommand");
	setarray .item_restrict,7227,607;	
end;
OnAtcommand:
	if (baselevel >= 99){
	.@itemid = atoi(.@atcmd_parameters$[0]);
	if(!getgmlevel()){
		if(inarray(.item_restrict,.@itemid) != -1){
			message strcharinfo(0),"You cannot create this item.";
			end;
		}	
	}
	if(getitemname(.@itemid) != "null"){
		.@quantity = atoi( .@atcmd_parameters$[1] );
		if ( .@quantity < 1 ) .@quantity = 1;
		getitem .@itemid,.@quantity;
	}
}
else mes "Only for character with level 99 and above";
end;
}

    it's so powerful command, can by pass for create any item for non GM user.

    change into @getitem command, but using @item still can create any items

    thank you very much idol. is now working ?

    LEVEL REQUIREMENTS LVL 99

    in Script Requests

    Posted

    1 hour ago, hendra814 said:

    try this 

    OnInit:
	bindatcmd("item",strnpcinfo(3)+"::OnAtcommand");
	setarray .item_restrict,7227,607;	
end;
OnAtcommand:
	if (baselevel >= 99){
	.@itemid = atoi(.@atcmd_parameters$[0]);
	if(!getgmlevel()){
		if(inarray(.item_restrict,.@itemid) != -1){
			message strcharinfo(0),"You cannot create this item.";
			end;
		}	
	}
	if(getitemname(.@itemid) != "null"){
		.@quantity = atoi( .@atcmd_parameters$[1] );
		if ( .@quantity < 1 ) .@quantity = 1;
		getitem .@itemid,.@quantity;
	}
}
mes "Only for character with level 99 and above";
end;
}

     

    when i use this command. There were still items after using the un command.

    screenrathenaRE000.jpg

    LEVEL REQUIREMENTS LVL 99

    in Script Requests

    Posted 

    -	script	atcmd_noitem	-1,{
OnInit:
	bindatcmd("item",strnpcinfo(3)+"::OnAtcommand",0,99);
	setarray .item_restrict,7227,607;	
end;
OnAtcommand:
	.@itemid = atoi(.@atcmd_parameters$[0]);
	if(!getgmlevel()){
		if(inarray(.item_restrict,.@itemid) != -1){
			message strcharinfo(0),"You cannot create this item.";
			end;
		}	
	}
	if(getitemname(.@itemid) != "null"){
		.@quantity = atoi( .@atcmd_parameters$[1] );
		if ( .@quantity < 1 ) .@quantity = 1;
		getitem .@itemid,.@quantity;
	}
end;
}

     

    HELLO TO SCRIPTER. I WOULD LIKE TO REQUEST .  IF THE PLAYERS IS LVL 99 HE CAN USE THIS COMMAND. AND IF THE PLAYER 99 BELOW HE CANT USE THIS COMMAND.

     

    THANK YOU .

×
×
  • Create New...