Jump to content

Peopleperson49's Scripts


Peopleperson49

Recommended Posts


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

If you read the top part of my first post it says that my scripts have to be configured before use. I made it very easy to setup though. I didn't announce it hourly since I didn't actually script it that way. My way it can be constantly used and there is no hourly limit, but still has a cooldown for players. It is not hard to adjust it for hourly if you just follow the doc/script_commands.txt. May sure you use the latest version as I am always making it better.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  7
  • Topics Per Day:  0.00
  • Content Count:  28
  • Reputation:   0
  • Joined:  10/13/12
  • Last Seen:  

im working for it right now. by the way can i request MVP script?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

I'm glad your using my scripts vgrebirth. As for the MVP script I sugget that you search around for one and if you don't find anything you like then post in the Script Request section. I already have a lot of work going on and until I can fix the NPCLocationRadius errors with my client, I probably won't be taking on anymore projects.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  105
  • Topics Per Day:  0.02
  • Content Count:  390
  • Reputation:   27
  • Joined:  07/12/12
  • Last Seen:  

I'm glad your using my scripts vgrebirth. As for the MVP script I sugget that you search around for one and if you don't find anything you like then post in the Script Request section. I already have a lot of work going on and until I can fix the NPCLocationRadius errors with my client, I probably won't be taking on anymore projects.

Peopleperson49

hey there my friend, long time since we talked /?? , i would like to ask if you can make a NPC that will reward somebody that has participated in the monster spawn event.

and i would also like to ask you if you can make the script announce the player name who killed a monster in the entire server :)

and also, what numbers should be set at this event for it to only take place twice a day? (in milisec.)

thanks man! /kis2 /kis2 /kis2 /kis2 /kis2

Edited by stydianx
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

By monster spawn event do you mean my Monster Hunter? I can easily do that however since I want to keep it the way it is then I will just tell you how. If you look at it you will see a bc_map. Just change it to bc_all where ever you want it to announce to everybody. If you have any questions just look at the doc/script_commands.txt. If you look at my King Of Emperium script then you can see how to make an NPC to give items. I am going on vacation for the next week so I'm not really sure when I will be getting on.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  344
  • Topics Per Day:  0.08
  • Content Count:  1060
  • Reputation:   1
  • Joined:  02/13/12
  • Last Seen:  

is it the KoE script works fine??? can anyone tell me please?

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2345
  • Joined:  10/28/11
  • Last Seen:  

is it the KoE script works fine??? can anyone tell me please?

all released script should be working fine..

and you should download the script and run it in game ...then you will know it's working or not....

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

The KoE script works fine and if you use version 4.7 then even the guild flags will show the emblems. I won't post a script knowing that it doesn't work (without a big disclaimer anyway), which is actually in the rules here somewhere.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  54
  • Topics Per Day:  0.01
  • Content Count:  177
  • Reputation:   4
  • Joined:  05/23/12
  • Last Seen:  

Sir about your KingOfEmperium script. the emblem is not showing on the flag. y?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

It is starting on version 4.7.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  20
  • Topics Per Day:  0.00
  • Content Count:  99
  • Reputation:   4
  • Joined:  10/25/12
  • Last Seen:  

Hai sir, about your KoE script. The script allowed to make 4 events which is i can make it for 4 days of KoE.

How can i add it to 7 Events which is i can set the KoE start everyday.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  105
  • Topics Per Day:  0.02
  • Content Count:  390
  • Reputation:   27
  • Joined:  07/12/12
  • Last Seen:  

King Of Emperium Hill

My version of King Of Emperium Hill. It was make for donkeyg on rAthena.org. I did not use the other versions as a base. You can set it to give a zeny and upto five item prizes to the guild leader through the Emperium Assistant. They can collect once after each time the KoE ends. The time is fully setable for up to four seperate events. All aspects of it is contolled in game. Unless you have the KoE patch () you will be able to hit the emperium even if you control it, it is just how the emperium is progammed and not a glitch with the script!

Version 4.7:

can you give me a brief definition of this event?

and what's the difference between WoE and KoE? :) thanks my friend!

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

There are lots of discriptions for KoE events so read this entire topic. Also search for KoE topics especially since there is a King Of Emperium Hill script that I origionally wrote this script for.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  20
  • Topics Per Day:  0.00
  • Content Count:  99
  • Reputation:   4
  • Joined:  10/25/12
  • Last Seen:  

You didnt answer this yet.

Hai sir, about your KoE script. The script allowed to make 4 events which is i can make it for 4 days of KoE.

How can i add it to 7 Events which is i can set the KoE start everyday.

btw i got debug msg after reloadscript - not important maybe cause i use @reloadscript

[Debug]: script debug : 0 110043499 : Agit!

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

To make it 7 days you need to know how to modify loops. The rest of it is easy, just copy the code from the first 4 days to add 3 more days. Anyways, just play with it and see how it goes. I will check on the debug.

Peopleperson49

Edit: Stydianx my KoE script is pretty simple. It spawns an emperium in the middle of the map and a guild breaks the emperium just like WoE. When KoE ends the guildleader wins whatever prizes you have setup. Its basically a WoE script.

Edited by Peopleperson49
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  105
  • Topics Per Day:  0.02
  • Content Count:  390
  • Reputation:   27
  • Joined:  07/12/12
  • Last Seen:  

Peopleperson49

Edit: Stydianx my KoE script is pretty simple. It spawns an emperium in the middle of the map and a guild breaks the emperium just like WoE. When KoE ends the guildleader wins whatever prizes you have setup. Its basically a WoE script.

lol! i know you couldn't resist answering my question :) thanks..

so it's a WoE but i can place it anywhere in a map..

so if i place the Emperium in the middle of Prontera, it becomes the guild castle? is this right?

sorry to keep asking, KoE is very new to me and i have no clue about it..

the definition in your KoE script is good, but for my case cause it's new to me, i need a more detailed description.

i love you dude! /no1

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

I never really thought about it like that, but yes you can basically change the emperium location to the middle of Prontera and move the NPC somethere also. But I still wouldn't really call Prontera a guild castle, lol. You would probably still need to set some mapflags for Prontera though. I hope that helps.

Peopleperson49

Edit: I have finally fixed my NPCLocationRadius errors so I will have time to get back in to this more!

Edited by Peopleperson49
Link to comment
Share on other sites

  • 3 weeks later...

  • Group:  Members
  • Topic Count:  20
  • Topics Per Day:  0.00
  • Content Count:  99
  • Reputation:   4
  • Joined:  10/25/12
  • Last Seen:  

@Peopleperson49

KoE doesn't start automatically.


guild_vs1,27,68,5 script Emperium Assistant 55,{
if(getgmlevel()>98) { goto GMEmpMenu; end; }
if($KOEGUILD==0) { mes "[Emperium Assistant]"; mes "Only the King Of Emperium Hill can reap the rewards!"; close; }
if(strcharinfo(2)!=GetGuildName($KOEGUILD)) { mes "[Emperium Assistant]"; mes "Your guild is not the King Of Emperium Hill!"; close; }
if(strcharinfo(0)!=GetGuildMaster($KOEGUILD)) { mes "[Emperium Assistant]"; mes "Only the guild master may collect the rewards for the guild as King Of Emperium Hill!"; close; }
goto EmpAssStart;
end;
EmpAssStart:
mes "[Emperium Assistant]";
mes " ";
mes " ";
mes " ";
mes " ";
mes "Your guild is the King Of Emperium Hill!";
next;
if($KoEStatus==1) { mes "[Emperium Assistant]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot access my services at this time."; close; }
if($KoEPrizeTracker==1) { mes "[Emperium Assistant]"; mes "You can only reap the rewards of being the King Of Emperium Hill once after each battle for the Hill!"; close; }
mes "[Emperium Assistant]";
mes "Your rewards await you!";
next;
if($KoEZenyPrize>0) { set zeny,zeny+$KoEZenyPrize; }
if($KoEItemPrize1!=0&&$KoEItemAmount1!=0) { getitem $KoEItemPrize1,$KoEItemAmount1; }
if($KoEItemPrize2!=0&&$KoEItemAmount2!=0) { getitem $KoEItemPrize2,$KoEItemAmount2; }
if($KoEItemPrize3!=0&&$KoEItemAmount3!=0) { getitem $KoEItemPrize3,$KoEItemAmount3; }
if($KoEItemPrize4!=0&&$KoEItemAmount4!=0) { getitem $KoEItemPrize4,$KoEItemAmount4; }
if($KoEItemPrize5!=0&&$KoEItemAmount5!=0) { getitem $KoEItemPrize5,$KoEItemAmount5; }
set $KoEPrizeTracker,1;
mes "[Emperium Assistant]";
mes "You have been rewarded for your victory!";
close;

GMEmpMenu:
mes "[GM Menu]";
mes "From this menu you can set event times, zeny prize, and item prizes.";
switch(prompt("Add New KoE Event:Clear All KoE Events:View KoE Events:Stop Current KoE Event:Change Zeny Prize:Change Item Prize 1:Change Item Prize 2:Change Item Prize 3:Change Item Prize 4:Change Item Prize 5:Return To Non-GM Menu")) {
case 1:
next;
mes "[GM Menu]";
mes "From here you can add new KoE events.";
set .KoE,0;
set @KoEAddMenu$,0;
AddCountCheck:
if($KoEStartDay[.KoE]==0&&$KoEEndDay[.KoE]==0&&$KoEStartTime[.KoE]==0&&$KoEEndTime[.KoE]==0) { goto AddCountCheck2; }
set .KoE,.KoE+1;
goto AddCountCheck;
AddCountCheck2:
for( set .@i,1; .@i<=7; set .@i,.@i+1 ) { set @KoEAddMenu$,@KoEAddMenu$+((getd("KoEEvent_"+.@i+"$")=="")?"No Event Set":getd("KoEEvent_"+.@i+"$"))+":"; }
set .KoE,select(@KoEAddMenu$);
next;
mes "[GM Menu]";
mes "Which day do you want KoE to ^00FF00start^000000?";
switch(select("Sunday:Monday:Tuesday:Wednesday:Thursday:Friday:Saturday")) {
case 1: set $KoEStartDay[.KoE],0; break;
case 2: set $KoEStartDay[.KoE],1; break;
case 3: set $KoEStartDay[.KoE],2; break;
case 4: set $KoEStartDay[.KoE],3; break;
case 5: set $KoEStartDay[.KoE],4; break;
case 6: set $KoEStartDay[.KoE],5; break;
case 7: set $KoEStartDay[.KoE],6; break;
}
next;
mes "[GM Menu]";
mes "When do you want KoE to ^00FF00start^000000?";
switch(select("1AM:2AM:3AM:4AM:5AM:6AM:7AM:8AM:9AM:10AM:11AM:Noon:1PM:2PM:3PM:4PM:5PM:6PM:7PM:8PM:9PM:10PM:11PM:Midnight")) {
case 1: set $KoEStartTime[.KoE],"01"; break;
case 2: set $KoEStartTime[.KoE],"02"; break;
case 3: set $KoEStartTime[.KoE],"03"; break;
case 4: set $KoEStartTime[.KoE],"04"; break;
case 5: set $KoEStartTime[.KoE],"05"; break;
case 6: set $KoEStartTime[.KoE],"06"; break;
case 7: set $KoEStartTime[.KoE],"07"; break;
case 8: set $KoEStartTime[.KoE],"08"; break;
case 9: set $KoEStartTime[.KoE],"09"; break;
case 10: set $KoEStartTime[.KoE],"10"; break;
case 11: set $KoEStartTime[.KoE],"11"; break;
case 12: set $KoEStartTime[.KoE],"12"; break;
case 13: set $KoEStartTime[.KoE],"13"; break;
case 14: set $KoEStartTime[.KoE],"14"; break;
case 15: set $KoEStartTime[.KoE],"15"; break;
case 16: set $KoEStartTime[.KoE],"16"; break;
case 17: set $KoEStartTime[.KoE],"17"; break;
case 18: set $KoEStartTime[.KoE],"18"; break;
case 19: set $KoEStartTime[.KoE],"19"; break;
case 20: set $KoEStartTime[.KoE],"20"; break;
case 21: set $KoEStartTime[.KoE],"21"; break;
case 22: set $KoEStartTime[.KoE],"22"; break;
case 23: set $KoEStartTime[.KoE],"23"; break;
case 24: set $KoEStartTime[.KoE],"00"; break;
}
next;
mes "[GM Menu]";
mes "Which day do you want KoE to ^00FF00finish^000000?";
next;
switch(select("Same Day:Sunday:Monday:Tuesday:Wednesday:Thursday:Friday:Saturday")) {
case 1: set $KoEEndDay[.KoE],$KoEStartDay[.KoE]; break;
case 2: set $KoEEndDay[.KoE],0; break;
case 3: set $KoEEndDay[.KoE],1; break;
case 4: set $KoEEndDay[.KoE],2; break;
case 5: set $KoEEndDay[.KoE],3; break;
case 6: set $KoEEndDay[.KoE],4; break;
case 7: set $KoEEndDay[.KoE],5; break;
case 8: set $KoEEndDay[.KoE],6; break;
}
next;
mes "[GM Menu]";
mes "When do you want KoE to ^00FF00finish^000000?";
switch(select("1AM:2AM:3AM:4AM:5AM:6AM:7AM:8AM:9AM:10AM:11AM:Noon:1PM:2PM:3PM:4PM:5PM:6PM:7PM:8PM:9PM:10PM:11PM:Midnight")) {
case 1: set $KoEEndTime[.KoE],"01"; break;
case 2: set $KoEEndTime[.KoE],"02"; break;
case 3: set $KoEEndTime[.KoE],"03"; break;
case 4: set $KoEEndTime[.KoE],"04"; break;
case 5: set $KoEEndTime[.KoE],"05"; break;
case 6: set $KoEEndTime[.KoE],"06"; break;
case 7: set $KoEEndTime[.KoE],"07"; break;
case 8: set $KoEEndTime[.KoE],"08"; break;
case 9: set $KoEEndTime[.KoE],"09"; break;
case 10: set $KoEEndTime[.KoE],"10"; break;
case 11: set $KoEEndTime[.KoE],"11"; break;
case 12: set $KoEEndTime[.KoE],"12"; break;
case 13: set $KoEEndTime[.KoE],"13"; break;
case 14: set $KoEEndTime[.KoE],"14"; break;
case 15: set $KoEEndTime[.KoE],"15"; break;
case 16: set $KoEEndTime[.KoE],"16"; break;
case 17: set $KoEEndTime[.KoE],"17"; break;
case 18: set $KoEEndTime[.KoE],"18"; break;
case 19: set $KoEEndTime[.KoE],"19"; break;
case 20: set $KoEEndTime[.KoE],"20"; break;
case 21: set $KoEEndTime[.KoE],"21"; break;
case 22: set $KoEEndTime[.KoE],"22"; break;
case 23: set $KoEEndTime[.KoE],"23"; break;
case 24: set $KoEEndTime[.KoE],"00"; break;
}
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to set a new KoE event? To finalize the new KoE event? If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust KoE event times!"; close2; goto GMEmpMenu; end; }
if($KoEStartDay[.KoE]==0&&$KoEEndDay[.KoE]==0&&$KoETime[.KoE]==0&&$KoEEndTime[.KoE]==0) { close2; goto GMEmpMenu; end; }
if($KoEStartDay[.KoE]==0) { set $@KoEStartDayName$,"Sunday"; }
if($KoEStartDay[.KoE]==1) { set $@KoEStartDayName$,"Monday"; }
if($KoEStartDay[.KoE]==2) { set $@KoEStartDayName$,"Tuesday"; }
if($KoEStartDay[.KoE]==3) { set $@KoEStartDayName$,"Wednesday"; }
if($KoEStartDay[.KoE]==4) { set $@KoEStartDayName$,"Thursday"; }
if($KoEStartDay[.KoE]==5) { set $@KoEStartDayName$,"Friday"; }
if($KoEStartDay[.KoE]==6) { set $@KoEStartDayName$,"Saturday"; }
if($KoEEndDay[.KoE]==0) { set $@KoEEndDayName$,"Sunday"; }
if($KoEEndDay[.KoE]==1) { set $@KoEEndDayName$,"Monday"; }
if($KoEEndDay[.KoE]==2) { set $@KoEEndDayName$,"Tuesday"; }
if($KoEEndDay[.KoE]==3) { set $@KoEEndDayName$,"Wednesday"; }
if($KoEEndDay[.KoE]==4) { set $@KoEEndDayName$,"Thursday"; }
if($KoEEndDay[.KoE]==5) { set $@KoEEndDayName$,"Friday"; }
if($KoEEndDay[.KoE]==6) { set $@KoEEndDayName$,"Saturday"; }
next;
mes "[GM Menu]";
mes ""+$@KoEStartDayName$+" from "+$KoEStartTime[.KoE]+":00 till "+$@KoEStartDayName$+" at "+$KoEEndTime[.KoE]+":00";
setd("KoEEvent_"+.KoE+"$"),"Event "+.KoE+" Set";
close2; goto GMEmpMenu; end;
case 2:
next;
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes "KoE events cannot be cleared at this time. You must stop the current KoE event first."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "You are about to clear all the set KoE events and prizes set for them. If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't clear KoE events!"; close2; goto GMEmpMenu; end; }
set $KoEZenyPrize,0;
set $KoEItemPrize1,0;
set $KoEItemAmount1,0;
set $KoEItemPrize2,0;
set $KoEItemAmount2,0;
set $KoEItemPrize3,0;
set $KoEItemAmount3,0;
set $KoEItemPrize4,0;
set $KoEItemAmount4,0;
set $KoEItemPrize5,0;
set $KoEItemAmount5,0;
set .KoE,0;
ResetLoop:
set $KoEStartDay[.KoE],0;
set $KoEEndDay[.KoE],0;
set $KoEStartTime[.KoE],0;
set $KoEEndTime[.KoE],0;
setd("KoEEvent_"+.KoE+"$"),"No Event Set";
set .KoE,.KoE+1;
if(.KoE>7) { next; mes "[GM Menu]"; mes "All KoE events have been cleared."; close2; goto GMEmpMenu; end; }
goto ResetLoop;
end;
case 3:
next;
mes "Current KoE Event Times:";
mes " ";
set .KoE,1;
KoEDayCheck:
if($KoEStartDay[.KoE]==0) { set $@KoEStartDayName$,"Sunday"; }
if($KoEStartDay[.KoE]==1) { set $@KoEStartDayName$,"Monday"; }
if($KoEStartDay[.KoE]==2) { set $@KoEStartDayName$,"Tuesday"; }
if($KoEStartDay[.KoE]==3) { set $@KoEStartDayName$,"Wednesday"; }
if($KoEStartDay[.KoE]==4) { set $@KoEStartDayName$,"Thursday"; }
if($KoEStartDay[.KoE]==5) { set $@KoEStartDayName$,"Friday"; }
if($KoEStartDay[.KoE]==6) { set $@KoEStartDayName$,"Saturday"; }
if($KoEEndDay[.KoE]==0) { set $@KoEEndDayName$,"Sunday"; }
if($KoEEndDay[.KoE]==1) { set $@KoEEndDayName$,"Monday"; }
if($KoEEndDay[.KoE]==2) { set $@KoEEndDayName$,"Tuesday"; }
if($KoEEndDay[.KoE]==3) { set $@KoEEndDayName$,"Wednesday"; }
if($KoEEndDay[.KoE]==4) { set $@KoEEndDayName$,"Thursday"; }
if($KoEEndDay[.KoE]==5) { set $@KoEEndDayName$,"Friday"; }
if($KoEEndDay[.KoE]==6) { set $@KoEEndDayName$,"Saturday"; }
mes "^FF0000Event "+.KoE+"^000000";
if($KoEStartDay[.KoE]==0&&$KoEEndDay[.KoE]==0&&$KoEStartTime[.KoE]==0&&$KoEEndTime[.KoE]==0) { mes "No Event Set"; } else { mes ""+$@KoEStartDayName$+" at "+$KoEStartTime[.KoE]+":00 till "+$@KoEEndDayName$+" at "+$KoEEndTime[.KoE]+":00"; }
set .KoE,.KoE+1;
if(.KoE>7) { close2; goto GMEmpMenu; end; }
goto KoEDayCheck;
end;
case 4:
next;
if($KoEStatus==0) { mes "[GM Menu]"; mes "There is currently no KoE event running."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "You are about to stop the current KoE event. If your 100% sure type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't stop KoE events while there going!"; close2; goto GMEmpMenu; end; }
set $KoEStatus,0;
gvgoff "gefg_cas01";
if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,7; }
killmonsterall "gefg_cas01",0;
set .@name$,GetGuildMaster($KOEGUILD);
if($KOEGUILD!=0) { Announce "The King of Emperium Hill has ended! The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild.",bc_all|bc_WoE; } else { Announce "The King of Emperium Hill has ended! No guild has proven themselves King Of Emperium Hill!",bc_all|bc_WoE; }
close2;
goto GMEmpMenu;
end;
case 5:
next;
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Zeny Prize at this time."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
mes "The current Zeny Prize amount is ^ff0000"+$KoEZenyPrize+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes " ";
mes "Enter what you want the new Zeny Prize to be.";
input .@GMAdjust;
if(.@GMAdjust<0) { next; mes "[GM Menu]"; mes "The Zeny Prize cannot be less than 0."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to modify the Zeny Prize to ^ff0000"+.@GMAdjust+"^000000? To finalize the change in Zeny Prize type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize==.@RandomFinalize) { next; set $KoEZenyPrize,.@GMAdjust; mes "[GM Menu]"; mes "The Zeny Prize amount has been changed to ^ff0000"+$KoEZenyPrize+"^000000."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
mes "It is probably for the best that you don't adjust the Zeny Prize!";
close2;
goto GMEmpMenu;
end;
case 6:
next;
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount1+"^000000 ^ff0000"+getitemname($KoEItemPrize1)+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes " ";
mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!";
input .@GMAdjust;
next;
set $KoEItemPrize1,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize1)+"^000000[^ff0000"+$KoEItemPrize1+"^000000].";
next;
mes "[GM Menu]";
mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount1+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes "Enter what you want the new Item Prize Amount to be.";
input .@GMAdjust;
if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize1)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set $KoEItemAmount1,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount1+"^000000 ^ff0000"+getitemname($KoEItemPrize1)+"^000000.";
close2;
goto GMEmpMenu;
end;
case 7:
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount2+"^000000 ^ff0000"+getitemname($KoEItemPrize2)+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes " ";
mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!";
input .@GMAdjust;
next;
set $KoEItemPrize2,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize2)+"^000000[^ff0000"+$KoEItemPrize2+"^000000].";
next;
mes "[GM Menu]";
mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount2+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes "Enter what you want the new Item Prize Amount to be.";
input .@GMAdjust;
if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize2)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set $KoEItemAmount2,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount2+"^000000 ^ff0000"+getitemname($KoEItemPrize2)+"^000000.";
close2;
goto GMEmpMenu;
end;
case 8:
next;
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount3+"^000000 ^ff0000"+getitemname($KoEItemPrize3)+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes " ";
mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!";
input .@GMAdjust;
next;
set $KoEItemPrize3,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize3)+"^000000[^ff0000"+$KoEItemPrize3+"^000000].";
next;
mes "[GM Menu]";
mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount3+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes "Enter what you want the new Item Prize Amount to be.";
input .@GMAdjust;
if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize3)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set $KoEItemAmount3,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount3+"^000000 ^ff0000"+getitemname($KoEItemPrize3)+"^000000.";
close2;
goto GMEmpMenu;
end;
case 9:
next;
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount4+"^000000 ^ff0000"+getitemname($KoEItemPrize4)+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes " ";
mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!";
input .@GMAdjust;
next;
set $KoEItemPrize4,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize4)+"^000000[^ff0000"+$KoEItemPrize4+"^000000].";
next;
mes "[GM Menu]";
mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount4+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes "Enter what you want the new Item Prize Amount to be.";
input .@GMAdjust;
if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize4)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set $KoEItemAmount4,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount4+"^000000 ^ff0000"+getitemname($KoEItemPrize4)+"^000000.";
close2;
goto GMEmpMenu;
end; 
case 10:
next;
if($KoEStatus==1) { mes "[GM Menu]"; mes " "; mes " "; mes " "; mes " "; mes "You cannot adjust the Item Prize at this time."; close2; goto GMEmpMenu; end; }
mes "[GM Menu]";
mes "From this menu you can adjust the item prize. The current Reward is: ^ff0000"+$KoEItemAmount5+"^000000 ^ff0000"+getitemname($KoEItemPrize5)+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes " ";
mes "Enter what you want the new Item Prize to be. WARNING: If you input an invalid itemID it will error everytime a player tries to recieve it!";
input .@GMAdjust;
next;
set $KoEItemPrize5,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+getitemname($KoEItemPrize5)+"^000000[^ff0000"+$KoEItemPrize5+"^000000].";
next;
mes "[GM Menu]";
mes "The current Item Prize Amount is ^ff0000"+$KoEItemAmount5+"^000000.";
mes "NOTE: If it says 'NULL' or '0' then that value has not been set.";
mes "Enter what you want the new Item Prize Amount to be.";
input .@GMAdjust;
if(.@GMAdjust<1) { next; mes "[GM Menu]"; mes "The Item Prize Amount cannot be less than 1."; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set .@RandomFinalize,rand(100,999);
mes "Are you sure you want to modify the Item Prize Amount to ^ff0000"+.@GMAdjust+"^000000 "+getitemname($KoEItemPrize5)+"? To finalize the change in Item Prize type the number ^0000FF"+.@RandomFinalize+"^000000.";
input .@Finalize;
if(.@Finalize!=.@RandomFinalize) { next; mes "[GM Menu]"; mes "It is probably for the best that you don't adjust the Item Prize!"; next; goto GMEmpMenu; end; }
next;
mes "[GM Menu]";
set $KoEItemAmount5,.@GMAdjust;
mes "The Item Prize amount has been changed to ^ff0000"+$KoEItemAmount5+"^000000 ^ff0000"+getitemname($KoEItemPrize5)+"^000000.";
close2;
goto GMEmpMenu;
end;
case 11:
next;
goto EmpAssStart;
end;
case 255:
goto EmpAssStart;
end;
}
}

- script KingOfEmperium -1,{
end;
OnInit:
set $GvGPvP,0; //Set to 0 for GvG and 1 for PvP
set $KoEStatus,0;
OnMinute00:
set .KoE,0;
StartLoop:
if(gettime(7)==$KoEEndDay[.KoE]&&gettime(6)==$KoEEndTime[.KoE]) { goto KoEActualEnd; end; }
if(gettime(7)==$KoEStartDay[.KoE]&&gettime(6)>=$KoEStartTime[.KoE]&&(gettime(3)<$KoEEndTime[.KoE] || $KoEStartDay[.KoE]!=$KoEEndDay[.KoE])) { goto KoEActualStart; end; }
set .KoE,.KoE+1;
if(.KoE>7) { goto StartLoopEnd; }
goto StartLoop;
end;

KoEActualStart:
if($KoEStatus==1) { end; }
set $KoEStatus,1;
set $KoEPrizeTracker,0;
if($KOEGUILD!=0) { Announce "The King of Emperium Hill has begun! The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild.",bc_all|bc_WoE; } else { Announce "King Of Emperium Hill has began! Which guild will prove their worth?",bc_all|bc_WoE; }
if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,6; }
if($GvGPvP==0) { gvgon "gefg_cas01"; } else { pvpon "gefg_cas01"; }
monster "gefg_cas01",198,182,"EMPERIUM",1288,1,"KingOfEmperium::OnEmperiumBreak";
end;

StartLoopEnd:
set .KoE,0;
EndLoop:
if((gettime(7)==$KoEEndDay[.KoE])&&(gettime(6)==$KoEEndTime[.KoE])) { goto KoEActualEnd; end; }
if($KoEEndDay[.KoE]==0&&$KoEStartTime[.KoE]==0&&$KoEEndTime[.KoE]==0) { end; }
set .KoE,.KoE+1;
if(.KoE>7) { end; } 
goto EndLoop;
end;

KoEActualEnd:
if($KoEStatus==0) { end; }
set $KoEStatus,0;
if($GvGPvP==0) { gvgoff "gefg_cas01"; } else { pvpoff "gefg_cas01"; }
if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,7; }
killmonsterall "gefg_cas01",0;
set .@name$,GetGuildMaster($KOEGUILD);
if($KOEGUILD!=0) { Announce "The King of Emperium Hill has ended! The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild.",bc_all|bc_WoE; } else { Announce "The King of Emperium Hill has ended! No guild has proven themselves King Of Emperium Hill!",bc_all|bc_WoE; }
end;

OnEmperiumBreak:
if(getskilllv(10000)!=1) { announce "Only a guild with the Guild Approval skill can kill the Emperium!",bc_self; monster "gefg_cas01",198,182,"EMPERIUM",1288,1,"KingOfEmperium::OnEmperiumBreak"; end; }
killmonsterall "gefg_cas01",0;
set $KOEGUILD,getcharid(2);
mapannounce "gefg_cas01",""+strcharinfo(0)+" has broken the emperium for the ["+GetGuildName($KOEGUILD)+"] guild.",bc_map|bc_WoE,"0x00CCFF",FW_NORMAL,12;
sleep 2000;
if(getmapusers("gefg_cas01")>0) { MapRespawnGuildID "gefg_cas01",$KOEGUILD,6; }
announce "The ["+getguildName($KOEGUILD)+"] guild has became the King Of Emperium Hill!",bc_all|bc_WoE;
sleep 5000;
if($KoEStatus==1) { monster "gefg_cas01",198,182,"EMPERIUM",1288,1,"KingOfEmperium::OnEmperiumBreak"; }
end;

OnWhisperGlobal:
if(getgmlevel()<99) { end; }
if(@whispervar0$=="StartKoE") { if($KoEStatus==1) { dispbottom "KoE is already running."; end; } goto KoEActualStart; end; }
if(@whispervar0$=="EndKoE") { if($KoEStatus==0) { dispbottom "KoE is currently not running."; end; }goto KoEActualEnd; end; }
end;
}

//==================================================================================
//--------|King Of Emperium Hill Guild Protection|----------------------------------
//==================================================================================
- script KoEGuildProtection -1,{
OnInit: 
end;

OnPCLoadMapEvent:
if(getgmlevel()<20&&strcharinfo(3)=="gefg_cas01"&&getcharid(2)==0) { announce "You must be in a guild to enter Emperium Hill!",bc_self; warp "SavePoint",0,0; end; }
end;

}

//==================================================================================
//--------|KoE Flag Script|---------------------------------------------------------
//==================================================================================
- script KoEFlag 723,-1,-1,{
set .@gid, $KOEGUILD;
if ( .@gid == 0 ) end;
mes "[Emperium Hill]";
mes " ";
mes " ";
mes " ";
mes " ";
if($KOEGUILD!=0) { mes "The King Of Emperium Hill is the ["+GetGuildName($KOEGUILD)+"] guild."; } else { mes "Only the strongest warriors should may over take Emperium Hill!"; }
close;
OnRevKoE:
flagemblem $KOEGUILD;
end;
OnInit:
flagemblem $KOEGUILD;
end;
}
prontera,156,192,4 duplicate(KoEFlag) King of Emperium#EH1 722

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

Please read my introductory paragraph in the original post, which version are you using? Make sure that you set it up correctly. It is very simple to setup in game. I just tested the latest version and it worked everytime. You can also start and stop it with using a whisper command (worked also). As a side not for anybody else, I am coming out with a version here soon that uses bindatcmd instead of using the whisper system. Thanks for using my scripts. Feel free to get back to me if you need anymore support.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  54
  • Topics Per Day:  0.01
  • Content Count:  177
  • Reputation:   4
  • Joined:  05/23/12
  • Last Seen:  

how to add more event sets on the KoE script.? is there an option in the script to add more events instead of 4?

thanks

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

You can't specify just 4 or howmany without me rescripting it using loops or something which is doable. Currently I use a seperate case: for each of the 4 options. I might look into making a total of 7 in the future or redo it adding loops.

Peopleperson49

Edit: First off let me say that I am retarted! I was thinking about the itemprize script portion. You can modify it to allow more days of the week. I just don't have time to show you now.

Edit (Again): Added version 5.0 which allows you to set up to 7 different KoE event times.

Edited by Peopleperson49
Link to comment
Share on other sites

  • 2 weeks later...

  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

I recently posted a lot more of my scripts.

Peopleperson49

Rock, Paper, Scissors Roulette (works as an update to the rpsroulette.txt)

Powerball Lottery (works as an update to the lottery.txt)

Advanced Banker (works as an update to the bank.txt)

Heads or Tails

Jackpot Leon

Double Dice Roll (works as an update to the roll_a_dice.txt)

Saving Angel

Magic 8 Ball

Wishing Well

Edited by Peopleperson49
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  111
  • Topics Per Day:  0.02
  • Content Count:  573
  • Reputation:   20
  • Joined:  11/19/11
  • Last Seen:  

How can I change the maximum amount of input zeny in "Custom Amount" cause it's only 100,000 only, in the script Double Dice Roll.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  218
  • Topics Per Day:  0.05
  • Content Count:  1180
  • Reputation:   141
  • Joined:  01/27/12
  • Last Seen:  

Slash I just added version 2.1 with the change for you. All you do is just set the .MaxDiceBet. What did you think of my other scripts? Any comments, suggestions, or ideas to improve them? I'm still debating on releasing my mulitplayer texas hold'em script with full cutin interface, but not sure yet. I might make this a paid download, since all the work I put into it.

Peopleperson49

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  111
  • Topics Per Day:  0.02
  • Content Count:  573
  • Reputation:   20
  • Joined:  11/19/11
  • Last Seen:  

Slash I just added version 2.1 with the change for you. All you do is just set the .MaxDiceBet. What did you think of my other scripts? Any comments, suggestions, or ideas to improve them? I'm still debating on releasing my mulitplayer texas hold'em script with full cutin interface, but not sure yet. I might make this a paid download, since all the work I put into it.

Peopleperson49

Thanks ! hahaha I'm still testing other scripts :) , well my suggestion is to make a slot machine script with cutin also :)/no1

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
Reply to this topic...

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

×
×
  • Create New...