Jump to content
  • 0

this script

Phantom Of Rogue-Gon

Asked by Phantom Of Rogue-Gon,

 Share

Question

Phantom Of Rogue-Gon Poring

Phantom Of Rogue-Gon

Posted
  • Group:  Members
  • Topic Count:  65
  • Topics Per Day:  0.02
  • Content Count:  181
  • Reputation:   0
  • Joined:  08/07/13
  • Last Seen:  
Posted 


////////////////////////


prontera,165,147,3	script	Monster Arena	843,{

if(lifetime >= 1) goto LLT;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "What do you want to do?";
menu "Enter Monster Arena",-,"Exchange Arena Points",Lex,"Check Arena Points",Lcheck;
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "You can earn points by killing monster that are inside there, and the points you earn can be traded for cool stuffs.";
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "There are two kinds of Gate pass, the ^0000FFone-time ticket^000000 is for one entry which cost 10 TCG and there's a ^0000FFlife-time ticket^000000 that can give you access anytime which cost 100 TCG.";
mes "What entry do you want to go to?";
menu "One-Time Ticket",-,"Life-Time Ticket",Llife;
next;
if(countitem(7227) < 10) goto Lnen;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go! Come & Visit us again!";
mes "*Stamp Stamp*";
delitem 7227,10;
close2;
warp "mal_dun01",40,232;
end;

OnInit:
	waitingroom "Monster Arena HERE!!",0;
	end;
Llife:
if(countitem(7227) < 100) goto Lnen;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Wow! you must be rich! Here you go! Come & Visit us again!";
mes "*Stamp Stamp*";
delitem 7227,100;
set lifetime,1;
close2;
warp "mal_dun01",40,232;

Lnot:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Suit yourself!";
close;

Lnen:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Not enough TCG!";
close;

LLT:
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "What do you want to do?";
menu "Enter Monster Arena",-,"Exchange Points",Lex,"Check Arena Points",Lcheck;
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "I see you have a life-time pass..";
mes "Do you want to enter the Monster Arena?";
menu "Yes",-,"No",Lnot;
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Bye! Shazam !";
close2;
warp "mal_dun01",40,232;
end;


Lnoep:
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Not Enough Points!";
close;

Lcheck:
next;
mes strcharinfo(0)+"'s Arena Points : ^0000FF"+arenapoint+"^000000 Point(s)";
close;

Lex:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Choose from the categories below :";
menu "Cards",-,"^0000ffCustom Items^000000",Leqp,"^FF00FFGuild Supplies^000000",Lsupp;
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Choose from my card album..";
menu "Ghostring - 5,000pts",-,"Deviling - 1,000pts",Ldev,"Kiel - 15,000pts",Lkiel,"Lady Tanee - 12,000pts",Ltanee,"Thanatos - 80,000pts",Lthana,"Fallen Bishop Card - 200,000pts",Lfbh,"High Wizard - 130,000pts",Lhwiz,"High Priest - 120,000pts",Lhp,"Lord Knight - 280,000pts",LLK,"Sniper - 200,000pts",Lsni,"Whitesmith - 150,000pts",Lws,"Assassin Cross - 300,000pts",Lsinx;

next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 5000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4047,1;
set arenapoint,arenapoint-5000;
close;

Lfbh:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 190000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4441,1;
set arenapoint,arenapoint-190000;
close;


Ldev:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 1000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4174,1;
set arenapoint,arenapoint-1000;
close;

Lkiel:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 15000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4403,1;
set arenapoint,arenapoint-15000;
close;

Ltanee:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 12000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4376,1;
set arenapoint,arenapoint-12000;
close;

Lthana:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 80000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4399,1;
set arenapoint,arenapoint-80000;
close;

Lhwiz:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 130000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4365,1;
set arenapoint,arenapoint-105000;
close;

Lhp:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 120000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4363,1;
set arenapoint,arenapoint-120000;
close;

LLK:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 280000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4357,1;
set arenapoint,arenapoint-280000;
close;

Lws:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 150000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4361,1;
set arenapoint,arenapoint-150000;
close;

Lsni:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 200000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4367,1;
set arenapoint,arenapoint-200000;
close;

Lsinx:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 300000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 4359,1;
set arenapoint,arenapoint-300000;
close;


Leqp:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Choose from the available equipments..";
menu "Headphones - 9,000pts",-,"Blank Eyes - 10,000pts",Lemg,"Dark Traveler Hat - 100,000pts",Luth,"Luminous Ensign - 105,000pts",Lluminous,"Remorse Ensign - 105,000pts",Lremorse,"Red Valkyrie Helm - 19,000pts",Lredvh,"Black Valkyrie Helm - 18,000pts",Lblackvh,"Infernal Bapho - 95,000pts",Ltcg,"Kakashi Headprotector - 40,000pts",Lkak,"Traveler Hat - 25,000pts",Lth,"Robot Ears - 20,000pts",Lrobo,"Red Dragon Wing - 30,000pts",Lrvh,"Black Dragon Wing - 25,000pts",Lbvh,"Ensign Helm - 35,000pts",Lens,"Cyclops Eye - 30,000pts",Lcyc,"White Dragon Wing - 55,000",Lbalm;
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 9000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17024,1;
set arenapoint,arenapoint-9000;
close;

Lremorse:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 105000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17175,1;
set arenapoint,arenapoint-105000;
close;

Lluminous:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 105000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17175,1;
set arenapoint,arenapoint-105000;
close;

Luth:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 100000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17175,1;
set arenapoint,arenapoint-100000;
close;

Ltcg:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 95000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17175,1;
set arenapoint,arenapoint-95000;
close;


Lblackvh:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 18000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17052,1;
set arenapoint,arenapoint-18000;
close;


Lredvh:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 19000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17051,1;
set arenapoint,arenapoint-19000;
close;




Lbalm:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 55000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 20050,1;
set arenapoint,arenapoint-55000;
close;


Lcyc:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 30000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 5135,1;
set arenapoint,arenapoint-30000;
close;


Lemg:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 10000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 5102,1;
set arenapoint,arenapoint-10000;
close;

Lth:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 25000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 16802,1;
set arenapoint,arenapoint-25000;
close;

Lkak:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 40000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 16803,1;
set arenapoint,arenapoint-40000;
close;

Lrobo:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 20000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 17005,1;
set arenapoint,arenapoint-20000;
close;

Lrvh:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 30000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 16910,1;
set arenapoint,arenapoint-30000;
close;

Lbvh:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 25000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 16912,1;
set arenapoint,arenapoint-25000;
close;

Lens:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 35000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 16804,1;
set arenapoint,arenapoint-35000;
close;



Lsupp:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Choose from the available supplies.";
menu "Guild Glistening Coat Supply - 7,000pts",-,"Yggdrasil Berry Bulk Supplies - 14,000pts",Lsupbox;
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "....";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 7000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 12476,5;
set arenapoint,arenapoint-7000;
close;

Lsupbox:
next;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "You can get these for ^FF00FF500^000000 Points, Do you still want it?";
menu "Yes",-,"Nevermind",Lnot;
next;
if(arenapoint < 14000) goto Lnoep;
mes "[ ^00FF00 Gate Keeper ^000000 ]";
mes "Here you go!";
getitem 12474,50;
set arenapoint,arenapoint-14000;
close;



}



-	script	monsterarena	-1,{

OnGuardianKill:
set arenapoint,arenapoint+1;
dispbottom "You earned 1 Arena Point";
end;

OnBowGuardianKill:
set arenapoint,arenapoint+2;
dispbottom "You earned 2 Arena Point";
end;

OnDestroyerKill:
set arenapoint,arenapoint+200;
dispbottom "You earned 200 Arena Points";
end;

OnIceKill:
set arenapoint,arenapoint+40;
dispbottom "You earned 40 Arena Points";
end;

OnGiantKill:
set arenapoint,arenapoint+4;
dispbottom "You earned 4 Arena Points";
end;

OnFireKill:
set arenapoint,arenapoint+20;
dispbottom "You earned 20 Arena Points";
end;

OnEarthKill:
set arenapoint,arenapoint+40;
dispbottom "You earned 30 Arena Points";
end;

OnWindKill:
set arenapoint,arenapoint+40;
dispbottom "You earned 40 Arena Points";
end;

OnRBonusKill:
set arenapoint,arenapoint+40;
dispbottom "You earned 40 Arena Points";
end;

OnBBonusKill:
set arenapoint,arenapoint+20;
dispbottom "You earned 20 Arena Points";
end;

OnYBonusKill:
set arenapoint,arenapoint+20;
dispbottom "You earned 20 Arena Points";
end;

OnKeeperKill:
set arenapoint,arenapoint+20;
dispbottom "You earned 20 Arena Points";
end;

OnAssassinKill:
set arenapoint,arenapoint+20;
dispbottom "You earned 20 Arena Points";
end;

OnGodKill:
set arenapoint,arenapoint+600;
dispbottom "You earned 600 Arena Points";
end;



}



mal_dun01,0,0,0,0	monster	Swamp Lord	1916,3,1,7200,monsterarena::OnGodKill
mal_dun01,0,0,0,0	monster	Swamp Weed	3618,20,5,900,monsterarena::OnGuardianKill
mal_dun01,0,0,0,0	monster	Swamp Bowl	3612,20,5,900,monsterarena::OnBowGuardianKill
mal_dun01,0,0,0,0	monster	Swamp High Guardian	3623,7,5,7200,monsterarena::OnDestroyerKill
mal_dun01,0,0,0,0	monster	Swamp Kraken	3614,10,5,900,monsterarena::OnIceKill
mal_dun01,0,0,0,0	monster	Swamp Star Fish	3620,12,5,900,monsterarena::OnWindKill
mal_dun01,0,0,0,0	monster	Swamp Blue Flower	1934,5,5,3600,monsterarena::OnBBonusKill
mal_dun01,0,0,0,0	monster	Swamp Red Flower	1935,5,5,3600,monsterarena::OnRBonusKill
mal_dun01,0,0,0,0	monster	Swamp Yellow Flower	1936,5,5,3600,monsterarena::OnYBonusKill
mal_dun01,0,0,0,0	monster	Swamp Eel	3619,13,5,1800,monsterarena::OnKeeperKill
mal_dun01,0,0,0,0	monster	Swamp Demonoid	3621,10,5,900,monsterarena::OnAssassinKill


///////////

 how can change the mobs points / item exchanger 

 

lets say

i wanna buy from this script 1 item using Cashpoint and the player is enough cashpoint she/he cant buy the items from npc

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

Jasc Poring

Jasc

Posted
  • Group:  Members
  • Topic Count:  29
  • Topics Per Day:  0.01
  • Content Count:  270
  • Reputation:   20
  • Joined:  12/10/11
  • Last Seen:  
Posted (edited) 

if(#CASHPOINTS < 10)  goto Lnen;

set #CASHPOINTS,#CASHPOINTS-10;

 

 

 

Edited by Jasc
Link to comment
Share on other sites
Phantom Of Rogue-Gon Poring

Phantom Of Rogue-Gon

Posted
  • Group:  Members
  • Topic Count:  65
  • Topics Per Day:  0.02
  • Content Count:  181
  • Reputation:   0
  • Joined:  08/07/13
  • Last Seen:  
  • Author
Posted

can you show me the right replacing code

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...