PapaZola

January 8, 2012

here who is online on my server

how i can change make only display Name Class And Blvl/Jlvl

i want hide the map

and here the php for who is online

<?php
/*
Ceres Control Panel
This is a control pannel program for Athena and Freya
Copyright © 2005 by Beowulf and Nightroad
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
To contact any of the authors about special permissions send
an e-mail to [email protected]
*/
session_start();
include_once './config.php'; // loads config variables
include_once './query.php'; // imports queries
include_once './functions.php';
$jobs = $_SESSION[$CONFIG_name.'jobs'];
if (is_woe())
redir("motd.php", "main_div", $lang['WOE_TIME']);
$query = sprintf(WHOISONLINE);
$result = execute_query($query, "whoisonline.php");
opentable($lang['WHOISONLINE_WHOISONLINE']);
echo "
<table width="500">
<tr>
<td align="left" class="head">".$lang['NAME']."</td>
<td align="left" class="head">".$lang['CLASS']."</td>
<td align="center" class="head">".$lang['BLVLJLVL']."</td>
";
if (isset($_SESSION[$CONFIG_name.'level']) && $_SESSION[$CONFIG_name.'level'] >= $CONFIG['cp_admin'])
echo "
</tr>
";
if ($result) {
while ($line = $result->fetch_row()) {
 $charname = htmlformat($line[0]);
 if ($line[9] >= $CONFIG_gm_hide) {
  if (!isset($_SESSION[$CONFIG_name.'level']) || (isset($_SESSION[$CONFIG_name.'level']) && $_SESSION[$CONFIG_name.'level'] < $line[9]))
continue;
 }
  echo "  
<tr>
 <td align="left">$charname</td>
 <td align="left">
";
if (isset($jobs[$line[1]]))
 echo $jobs[$line[1]];
else
 echo $lang['UNKNOWN'];
echo "
 </td>
 <td align="center">$line[2]/$line[3]</td>
 ";
if (isset($_SESSION[$CONFIG_name.'level']) && $_SESSION[$CONFIG_name.'level'] >= $CONFIG['cp_admin'])
 echo "<td align="center">$line[4],$line[5]</td>";
echo "
 <td align="left">$line[6]</td>
</tr>
  ";
}
}
echo "</table>";
closetable();
fim();
?>

January 8, 2012

thx sir emistry

its work now

January 8, 2012

whoa

thx for share

can give me example website use this control panel?

January 8, 2012

Slim

have some problem

i already have etc item and cash point

and when i try exchange become this

and here my script

//Made by Lunar

//Version 1.0

//12.28.08

- shop wing_shop -1,501:50

fgt_village,86,103,4, script Wing Quest 546,{

cutin "dcustom10",2;

set @i,0;

mes "[shop Quest NPC]";

mes "Please Select Ur Item Quest?";

mes "Select only one.";

callshop "wing_shop",1;

npcshopattach "wing_shop";

end;

OnBuyItem:

if(.BuildQuest) {

for(set .e,0; !compare(getarg(.e+1) + "","cash"); set .e,.e+2) {}

npcshopadditem "wing_shop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1) + "","cash");

setarray .Shop[.i],getarg(.e+2);

set .i,.i+1;

goto Hat_Setup;

}

if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Hat_Setup; }

for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Hat_Setup; }

mes "[shop Quest NPC]";

mes "I require the following:";

for(set @i,0; !compare(getarg(@i+1) + "","cash"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";

if(getarg(@i)) mes "^FF0000" + ((#CASHPOINTS>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Cash Points";

mes "^000000In exchange, I will give you:^0000FF";

for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));

switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {

case 1:

for(set @i,0; !compare(getarg(@i+1) + "","cash"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {

next;

mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";

mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";

close;

}

if(cash < getarg(@i)) {

next;

mes "You do not have enough cash.";

mes "Please obtain ^FF0000" + (getarg(@i)-cash) + " more cash^000000.";

close;

}

for(set @i,0; !compare(getarg(@i+1) + "","cash"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);

set #CASHPOINTS,#CASHPOINTS - getarg( @i );

for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);

if (compare(getarg(@i,0) + "","announce")) announce strcharinfo(0) + " Have Make Quest " + getitemname(@bought_nameid) + "!",bc_all;

close;

case 2:

set @bottomview, getlook(3);

set @topview, getlook(4);

set @midview, getlook(5);

addtimer 1000, strnpcinfo(3)+"::On_Leave";

set @equip,getiteminfo(@bought_nameid, 5);

set @view, getiteminfo(@bought_nameid, 11);

if(@equip != -1 && @view > 0) {

if(@equip & 1) atcommand "@changelook 3 " + @view;

if(@equip & 256) atcommand "@changelook 1 " + @view;

if(@equip & 512) atcommand "@changelook 2 " + @view;

}

next;

goto OnBuyItem;

case 3:

close;

}

On_Leave:

atcommand "@changelook 1 " + @topview;

atcommand "@changelook 2 " + @midview;

atcommand "@changelook 3 " + @bottomview;

set @equip,0;

set @view,0;

set @topview,0;

set @midview,0;

set @bottomview,0;

end;

OnInit:

npcshopitem "wing_shop",0,0;

set .BuildQuest,1;

set .i,1;

Hat_Setup:

switch(.i) {

default: set .BuildQuest,0; set .e,0; set .i,0; end;

case 1: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30099,1,"announce";

case 2: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30100,1,"announce";

case 3: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30101,1,"announce";

case 4: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30102,1,"announce";

case 5: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30103,1,"announce";

case 6: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30104,1,"announce";

case 7: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30105,1,"announce";

case 8: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30106,1,"announce";

case 9: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30107,1,"announce";

case 10: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30108,1,"announce";

case 11: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30109,1,"announce";

case 12: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30110,1,"announce";

case 13: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30111,1,"announce";

case 14: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30112,1,"announce";

case 15: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30113,1,"announce";

case 16: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30114,1,"announce";

case 17: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30115,1,"announce";

case 18: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30116,1,"announce";

case 19: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30117,1,"announce";

case 20: callsub OnBuyItem,7047,100,943,100,1019,200,150,"Cash",30118,1,"announce";

}

January 7, 2012

thx a lot Slim

its work

January 7, 2012

i already try find on eathena.ws

but eathena down

can someone make for ma this script work like this

-info

requirements-200 poring coin will change to 200 cash

player can check cash

make cash

like this picture

January 6, 2012

thx Kenpachi

its work fine

no more error

thx a lot to Kenpachi,Emistry,Variant

January 6, 2012

hurmm

so its wont work?

January 6, 2012

hello

i want request npc quest like this

case 1:tao gun ka card

-need using item 50 Poring coin,100 Skull and 100 cash point

case 2:thanatos card

-need item 10 poring coin 50 skull and 50 cash point

thx

January 6, 2012

yeah

me already change

January 6, 2012

maybe can try this

i also download from eathena

- script KoE -1,{
OnInit:
disablenpc "The King#KoE";
disablenpc "Exit#KoE";
end;
OnWhisperGlobal:
if ( getgmlevel() < 99 ) end;
else if ( compare ( @whispervar0$, "on" ) ) goto L_start;
else if ( compare ( @whispervar0$, "off" ) ) goto L_end;
else end;

L_end:
OnClock0810:
OnClock0910:
OnClock1010:
OnClock1110:
OnClock1210:
OnClock1310:
OnClock1410:
OnClock1510:
OnClock1610:
OnClock1710:
OnClock1810:
OnClock1910:
OnClock2010:
OnClock2110:
OnClock2210:
OnClock2310:
announce "The King of Emperium Hill is over!", 0;
set .koe_start, 0;
enablenpc "Exit#KoE";
disablenpc "The King#KoE";
killmonsterall "guild_vs1";
end;
L_start:
OnClock0800:
OnClock0900:
OnClock1000:
OnClock1100:
OnClock1200:
OnClock1300:
OnClock1400:
OnClock1500:
OnClock1600:
OnClock1700:
OnClock1800:
OnClock1900:
OnClock2000:
OnClock2100:
OnClock2200:
OnClock2300:
announce "The King of Emperium Hill has begun!", 0;
set .koe_start, 1;
enablenpc "The King#KoE";
disablenpc "Exit#KoE";
set $koegid, 0;
donpcevent "::OnRevKoE";
maprespawnguildid "guild_vs1", $koegid, 6;
monster "guild_vs1",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead";
end;
OnEmpDead:
set $koegid, getcharid(2);
announce "The current King of Emperium Hill is the [" + strcharinfo(2) + "] guild.", 0;
donpcevent "::OnRevKoE";
maprespawnguildid "guild_vs1", $koegid, 6;
sleep 500;
if ( .koe_start )
 monster "guild_vs1",49,49,"EMPERIUM",1288,1,"KoE::OnEmpDead";
end;
}
// KoE Entrance
prontera,147,92,4 script The King#KoE 58,{
mes "[The King]";
if ( getcharid(2) == 0 ) {
 mes "You must have a guild to participate in the ^FF0000King of Emperium Hill Tournament^000000.";
 close;
}
mes "Hello.";
mes "Would you like to participate in the ^FF0000King of Emperium Hill Tournament^000000?";
if ( select ( "Yes", "No" ) == 2 ) close;
switch( rand(1,4) ){
	case 1: warp "guild_vs1", 50, 88; end;
	case 2: warp "guild_vs1", 88, 50; end;
	case 3: warp "guild_vs1", 50, 11; end;
	case 4: warp "guild_vs1", 11, 50; end;
}
}
// KoE Exit
guild_vs1,49,56,5 script Exit#KoE 51,{
mes "[Exit]";
mes "See ya.";
if ( getcharid(2) == $koegid )
 getitem 25000, 50; // configure prize here
next;
warp "Save",0,0;
close;
}
// Flags
guild_vs1,49,38,4 script King of Emperium Hill#1::koe_flag 722,{
set .@gid, $koegid;
if ( .@gid == 0 ) end;
mes "[King of Emperium Hill]";
mes "The Current King of Emperium Hill is the ["+ getguildname(.@gid) +"] guild.";
close;
OnRevKoE:
flagemblem $koegid;
end;
}
guild_vs1,61,49,6 duplicate(koe_flag) King of Emperium Hill#2 722
guild_vs1,38,49,2 duplicate(koe_flag) King of Emperium Hill#3 722
guild_vs1,49,61,0 duplicate(koe_flag) King of Emperium Hill#4 722
guild_vs1 mapflag gvg
guild_vs1 mapflag nobranch
guild_vs1 mapflag nomemo
guild_vs1 mapflag nopenalty
guild_vs1 mapflag noreturn
guild_vs1 mapflag nosave SavePoint
guild_vs1 mapflag noteleport
guild_vs1 mapflag gvg_noparty
guild_vs1 mapflag nowarp
guild_vs1 mapflag nowarpto

January 6, 2012

still have warning and debug

January 6, 2012


//Made by Lunar
//Version 1.0
//12.28.08
- shop hat_shop -1,501:50
prontera,150,150,4, script Hat Quest 999,{
set @i,0;
mes "[shop Quest NPC]";
mes "Please Select Ur Item Quest?";
mes "Select only one.";
callshop "hat_shop",1;
npcshopattach "hat_shop";
end;

OnBuyItem:
if(.BuildQuest) {
for(set .e,0; !compare(getarg(.e+1),"cash"); set .e,.e+2) {}
npcshopadditem "hat_shop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"Scash");
setarray .Shop[.i],getarg(.e+2);
set .i,.i+1;
goto Hat_Setup;
}
if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Hat_Setup; }
for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Hat_Setup; }
mes "[shop Quest NPC]";
mes "I require the following:";
for(set @i,0; !compare(getarg(@i+1),"cash"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
if(getarg(@i)) mes "^FF0000" + ((#CASHPOINTS>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Cash Points";
mes "^000000In exchange, I will give you:^0000FF";
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
case 1:
for(set @i,0; !compare(getarg(@i+1),"cash"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
if(cash < getarg(@i)) {
next;
mes "You do not have enough cash.";
mes "Please obtain ^FF0000" + (getarg(@i)-cash) + " more cash^000000.";
close;
}
for(set @i,0; !compare(getarg(@i+1),"cash"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
set #CASHPOINTS,#CASHPOINTS - getarg( @i );
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " Have Make Quest " + getitemname(@bought_nameid) + "!",bc_all;
close;
case 2:
set @bottomview, getlook(3);
set @topview, getlook(4);
set @midview, getlook(5);
addtimer 1000, strnpcinfo(3)+"::On_Leave";
set @equip,getiteminfo(@bought_nameid, 5);
set @view, getiteminfo(@bought_nameid, 11);
if(@equip != -1 && @view > 0) {
if(@equip & 1) atcommand "@changelook 3 " + @view;
if(@equip & 256) atcommand "@changelook 1 " + @view;
if(@equip & 512) atcommand "@changelook 2 " + @view;
}
next;
goto OnBuyItem;
case 3:
close;
}
On_Leave:
atcommand "@changelook 1 " + @topview;
atcommand "@changelook 2 " + @midview;
atcommand "@changelook 3 " + @bottomview;
set @equip,0;
set @view,0;
set @topview,0;
set @midview,0;
set @bottomview,0;
end;
OnInit:
npcshopitem "hat_shop",0,0;
set .BuildQuest,1;
set .i,1;
Hat_Setup:
switch(.i) {
default: set .BuildQuest,0; set .e,0; set .i,0; end;
case 1: callsub OnBuyItem,7539,100,7420,120,7227,200,1000,"Cash",30000,1,"announce";



}
}

got this error sir emistry

January 6, 2012

thx

January 6, 2012

//Made by Lunar
//Version 1.0
//12.28.08
- shop hat_shop -1,501:50
animeresort,163,187,4, script Hat Quest 479,{
set @i,0;
mes "[shop Quest NPC]";
mes "Please Select Ur Item Quest?";
mes "Select only one.";
callshop "hat_shop",1;
npcshopattach "hat_shop";
end;

OnBuyItem:
if(.BuildQuest) {
for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {}
npcshopadditem "hat_shop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
setarray .Shop[.i],getarg(.e+2);
set .i,.i+1;
goto Hat_Setup;
}
if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Hat_Setup; }
for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Hat_Setup; }
mes "[shop Quest NPC]";
mes "I require the following:";
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
mes "^000000In exchange, I will give you:^0000FF";
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
case 1:
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
if(Zeny < getarg(@i)) {
next;
mes "You do not have enough Zeny.";
mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
close;
}
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
set Zeny,Zeny-getarg(@i);
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " Have Make Quest " + getitemname(@bought_nameid) + "!",bc_all;
close;
case 2:
set @bottomview, getlook(3);
set @topview, getlook(4);
set @midview, getlook(5);
addtimer 1000, strnpcinfo(3)+"::On_Leave";
set @equip,getiteminfo(@bought_nameid, 5);
set @view, getiteminfo(@bought_nameid, 11);
if(@equip != -1 && @view > 0) {
if(@equip & 1) atcommand "@changelook 3 " + @view;
if(@equip & 256) atcommand "@changelook 1 " + @view;
if(@equip & 512) atcommand "@changelook 2 " + @view;
}
next;
goto OnBuyItem;
case 3:
close;
}
On_Leave:
atcommand "@changelook 1 " + @topview;
atcommand "@changelook 2 " + @midview;
atcommand "@changelook 3 " + @bottomview;
set @equip,0;
set @view,0;
set @topview,0;
set @midview,0;
set @bottomview,0;
end;
OnInit:
npcshopitem "hat_shop",0,0;
set .BuildQuest,1;
set .i,1;
Hat_Setup:
switch(.i) {
default: set .BuildQuest,0; set .e,0; set .i,0; end;
case 1: callsub OnBuyItem,7539,100,7420,120,7227,200,1000000,"SZeny",30169,1,"announce";

}
}

here script im using for quest

but i have some problem

how i can change 7227 to 100 cash point?

January 6, 2012

got this error

January 6, 2012

hello

welcome to rAthena

January 5, 2012

thx emistry

sir amistry how about change to 5 rounds?

January 5, 2012

// Edited version by painisinsane/Eclipse.
// Creator of EclipseRO
// Please dont remove Credits!
// Credits: http://www.paste-it.net/public/a5d2cd4/

quiz_01 mapflag nowarpto
quiz_01 mapflag nowarp
quiz_01 mapflag noteleport
quiz_01 mapflag nomemo
quiz_01 mapflag nosave SavePoint
quiz_01 mapflag nobranch
quiz_01 mapflag noicewall
quiz_01 mapflag nopenalty
quiz_01 mapflag nobranch
quiz_01 mapflag noexp
quiz_01 mapflag noreturn
quiz_01 mapflag pvp_noparty
quiz_01 mapflag restricted 1

- script RFYL#disable -1,{

OnInit:
disablenpc "Zombie Master";
disablenpc "Present For You";
}

quiz_02,124,352,3 script Zombie Minion 1015,{

if (getgmlevel() >= 40) goto LMS_Admin;
mes "[Minion]";
mes "Hello " + strcharinfo(0) + ", my master is busy.";
mes "*sigh*";
close;

LMS_Admin:
mes "[Minion]";
mes "Hello " + strcharinfo(0) + ", would you like me to call my Boss?";
mes "He is the only one who can start it!";
menu "Start Event",RFYL,"Spectate",M_warp,"End Event",M_EndEvent,"No Thanks",leave;
RFYL:
next;
mes "[Minion]";
mes "Ok, I'll call him this instant.";
close2;
set $@offvar,1;
goto StartEvent;

M_warp:
mes "[Minion]";
mes "Very well, I will warp you to the map!";
warp "quiz_01",42,369;
close;

leave:
next;
mes "[Minion]";
mes "Ok " + strcharinfo(0) +", nice seeing you.";
close;

M_EndEvent:
mes "[Minion]";
mes "Ok master, I will stop the event for you right away!";
next;
set $@offvar,1;
disablenpc "Zombie Master";
disablenpc "Present For You";
killmonsterall "quiz_01";
areawarp "quiz_01",10,10,450,450,"prontera",149,169;
stopnpctimer;
disablenpc "Zombie Minion";
warp "prontera",149,169;
sleep 180000;
enablenpc "Zombie Minion";


StartEvent:
announce "Zombie Vs. Novice event Will begin in 3 minutes. Head East/North",0;
killmonsterall "quiz_01";
sleep 55000;
announce "Zombie Vs. Novice event will begin in 2 minutes! Head East/North",0;
sleep 5000;
announce "Zombie Master: I have now appeared in Event Room!",0;
enablenpc "Zombie Master";
sleep 60000;
announce "Zombie Vs. Novice event will begin in 1 minute!",0;
sleep 30000;
mapannounce "quiz_01","In 30 seconds the zombies will spawn!",0;
sleep 25000;
announce "Zombie Vs. Novice event will begin in ~5~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~4~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~3~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~2~",0;
sleep 1000;
announce "Zombie Vs. Novice event will begin in ~1~",0;
sleep 1000;
announce "Zombie Vs. Novice event has now begun!!",0,0x00FF00;
disablenpc "Zombie Master";
disablenpc "Present For You";
sleep 10000;
monster "quiz_01",42,369,"Zombie",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-2",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-3",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
mapannounce "quiz_01","Round 2!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 3!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 4!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 5!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 6!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 55000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
mapannounce "quiz_01","Round 7! Final Round!",0;
sleep 10000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 20000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 30000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
sleep 40000;
monster "quiz_01",42,369,"Zombie-4",1036,1;
sleep 50000;
monster "quiz_01",42,369,"Zombie-4",1036,1;
sleep 60000;
monster "quiz_01",42,369,"Zombie-4",1015,1;
initnpctimer;
end;

OnTimer0500:
if ( getmapusers("quiz_01") == 0 )
{
killmonsterall "quiz_01";
announce "'Zombie Vs. Novice' event has ended. No one joined.",0;
stopnpctimer;
end;
}
else if ( getmapusers("quiz_01") > 1 )
{
mapannounce "quiz_01",getmapusers("quiz_01") +"has survived the event.",0,0x00FF00;;
initnpctimer;
end;
}
initnpctimer;
end;

OnPCDieEvent:
getmapxy .@mapnvz$,.@xnvz,.@ynvz,0;
if ( .@mapnvz$ == "quiz_01") {
sleep2 1;
warp "prontera",149,169;
atcommand "@alive "+ strcharinfo(0);
dispbottom "you have lost...";
}
sleep2 0500;
if ( .@mapnvz$ == "quiz_01" && getmapusers("quiz_01") == 1 ) {
killmonsterall "quiz_01";
mapannounce "quiz_01","You have won, approach the Present For You Npc please.",0;
enablenpc "Present For You";
stopnpctimer;
end;
}
end;
}

quiz_01,42,378,3 script Present For You 72,{

mes "[Present For You]";
mes "Please tell me your name.";
next;
input .@name$;
if(.@name$ != strcharinfo(0)) {
mes "[Present For You]";
mes "Are you sure that is your name?";
close;
}
mes "[Present For You]";
mes "Congrats. You've won.";
close2;
announce "Present For You: We have a winner! "+.@name$+" has won the Novice vs Zombie event!",0;
getitem 7539,30; // Change This item id to what ever you want
warp "prontera",149,169;
disablenpc "Present For You";
end;
}

quiz_02,124,351,3 script Zombie Master 1298,{
if (BaseLevel > 1) goto NO;
if (class == 0) goto event;
if (class > 0) goto NO;
event:
mes "[^0000FFZombie Master^000000]";
mes "You wish to participate the Zombie Vs. Novice event?";
next;
switch(select("Yes","No")) {
case 1:
sc_end SC_ALL;
sc_start SC_DECREASEAGI,1200000,10;
percentheal 100,100;
sc_start SC_STRIPSHIELD,1200000,5;
sc_start SC_STRIPWEAPON,1200000,5;
sc_start SC_STRIPARMOR,1200000,5;
sc_start SC_STRIPHELM,1200000,5;
statusup2 bStr,-999;
statusup2 bAgi,-999;
statusup2 bVit,-999;
statusup2 bInt,-999;
statusup2 bDex,-999;
statusup2 bLuk,-999;
warp "quiz_01",42,369;
end;
break;
case 2:
mes "[^0000FFZombie Master^000000]";
mes "Come back when your ready.";
close;
break;
NO:
mes "[^0000FFZombie Master^000000]";
mes "You are not a Novice, level 1.";
close;
}
OnInit:
disablenpc "Zombie Master";
disablenpc "Prize";
end;
}

here the script

i got this error

and how i can edit this event only 5 rounds?

thx

January 5, 2012

hello anyone have devil square event script?

and the reward is 100 Cash Point

January 5, 2012

its work

thx

January 5, 2012

//=======================================
// Script By:
// eAthenanabs
//
// http://astral-RO.net
//
//=======================================
//= Info:
//
//= This event triggers every 15 minutes of the server time.
//=======================================
//= Mechanics:
//
//= Players have to run / choose a box between box 1 up to box 4
//= After that, that NPCs picks a number randomly
//= (obviously,between 1-4)
//= All players that are not inside the box that the NPC chose will
//= all be eliminated.
//= This event would run until there's only 1 player left.
//= Winner would get an incrementation on its #EVENTPOINTS variable
//= (users can simply just change the prize given.)
//
//========================================

- script DiceTrigger -1,{

OnInit:
disablenpc "Dice Event Warper#dice";
disablenpc "Claim Your Prize!#dice";
end;


OnMinute15:
if(agitcheck() == 1 || $@diceon == 1) end;
enablenpc "Dice Event Warper#dice";
announce "Dice Event: We are going to have a Dice Event",bc_all;
sleep2 1000;
announce "Dice Event: For those who want to join, please warp @ prontera 178 135",bc_all;
sleep2 1000;
announce "Dice Event: The Warper would be open for 1 minute",bc_all;
sleep2 30000;
announce "Dice Event: Last 30 Seconds.",bc_all;
sleep2 30000;
announce "Dice Event: Warper Closed.",bc_all;
disablenpc "Dice Event Warper#dice";
donpcevent "DiceEvent::OnDiceStart";
set $@diceon,1;
end;

}

prontera,179,135,3 script Dice Event Warper#dice 723,{

mes "Do you want to join the Dice Event?";
menu "Yes",-;
warp "quiz_02",55,87;
close;

}

quiz_02,55,90,3 script Got Stuck?#dice 779,{

mes "[ Got Stuck? ]";
mes "Do you wish to go back?";
menu "Yes",-;
warp "prontera",0,0;
close;

}


quiz_02,37,80,3 script Box 1 111,{

warp "quiz_02",37,70;
close;

}

quiz_02,49,80,3 script Box 2 111,{

warp "quiz_02",49,70;
close;

}

quiz_02,61,80,3 script Box 3 111,{

warp "quiz_02",61,70;
close;

}


quiz_02,73,80,3 script Box 4 111,{

warp "quiz_02",73,70;
close;

}

quiz_02,37,64,3 script Go Back#1 858,{

warp "quiz_02",55,76;
close;

}


quiz_02,49,64,3 script Go Back#2 858,{

warp "quiz_02",55,76;
close;

}

quiz_02,61,64,3 script Go Back#3 858,{

warp "quiz_02",55,76;
close;

}

quiz_02,73,64,3 script Go Back#4 858,{

warp "quiz_02",55,76;
close;

}


- script DiceEvent -1,{

OnDiceStart:
mapannounce "quiz_02","We are about to start the Dice event.",bc_blue;
sleep2 1000;
mapannounce "quiz_02","Rules are simple:",bc_blue;
sleep2 1000;
mapannounce "quiz_02","I'm going to pick a number, 1 to 4. Then I'll do a countdown from 5 to 0",bc_blue;
sleep2 1000;
mapannounce "quiz_02","All you have to do is go to box of the number you want",bc_blue;
sleep2 1000;
mapannounce "quiz_02","Example, If I get the number 4, All players standing on number 1 to 3 loses.",bc_blue;
sleep2 1000;
mapannounce "quiz_02","We'll do it again and again until we have 1 player left on this map.",bc_blue;
sleep2 2000;
mapannounce "quiz_02","Before I forget, you must GO INSIDE THE BOX! because if you're caught standing outside the box you'll be automatically disqualified!",bc_blue;
sleep2 2000;
mapannounce "quiz_02","That's it.. Now let's get it on!",bc_blue;
sleep2 3000;
goto L_start;
end;


L_start:
enablenpc "Go Back#1";
enablenpc "Go Back#2";
enablenpc "Go Back#3";
enablenpc "Go Back#4";
if(getmapusers("quiz_02") == 1) goto L_winner;
enablenpc "Box 1";
enablenpc "Box 2";
enablenpc "Box 3";
enablenpc "Box 4";
if(getmapusers("quiz_02") == 0) goto L_noone;
if(getmapusers("quiz_02") > 1) {
set $@number,rand(1,4);
sleep2 1000;
mapannounce "quiz_02","I'm ready to pick a number. Please go to the box of the number you want! Go go go!",bc_blue;
sleep2 20000;
mapannounce "quiz_02","5",bc_blue;
sleep2 1500;
mapannounce "quiz_02","4",bc_blue;
sleep2 1500;
mapannounce "quiz_02","3",bc_blue;
sleep2 1500;
mapannounce "quiz_02","2",bc_blue;
sleep2 1500;
mapannounce "quiz_02","1",bc_blue;
disablenpc "Box 1";
disablenpc "Box 2";
disablenpc "Box 3";
disablenpc "Box 4";
disablenpc "Go Back#1";
disablenpc "Go Back#2";
disablenpc "Go Back#3";
disablenpc "Go Back#4";
areawarp "quiz_02",32,95,79,76,"prontera",0,0;
areawarp "quiz_02",80,85,80,76,"prontera",0,0;
areawarp "quiz_02",31,85,31,76,"prontera",0,0;
if(getmapusers("quiz_02") == 0) goto L_noone;
sleep2 1000;
mapannounce "quiz_02","Time's Up. Winning number is "+$@number+"!",bc_blue;
if($@number == 4) goto L_Lose1;
if($@number == 3) goto L_Lose2;
if($@number == 2) goto L_Lose3;
if($@number == 1) goto L_Lose4;
end;

}

L_Lose1:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
goto L_start;
end;

L_Lose2:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;

L_Lose3:
areawarp "quiz_02",33,73,41,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;

L_Lose4:
areawarp "quiz_02",45,73,53,52,"prontera",0,0;
areawarp "quiz_02",57,73,65,52,"prontera",0,0;
areawarp "quiz_02",69,73,77,52,"prontera",0,0;
goto L_start;
end;

L_noone:
announce "No one won the Dice Event!",bc_all;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
set $@diceon,0;
end;

L_winner:
enablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
end;

}

quiz_02,55,84,3 script Claim Your Prize!#dice 904,{

set #EVENTPOINTS,#EVENTPOINTS+1;
announce strcharinfo(0)+" won the Dice Event!",bc_all;
disablenpc "Claim Your Prize!#dice";
disablenpc "Dice Event Warper#dice";
dispbottom "You now have "+#EVENTPOINTS+" Event Point(s).";
warp "prontera",0,0;
set $@diceon,0;
close;
end;

}

how to change to cash point?

January 5, 2012

very nice

8/10

January 4, 2012

solved

January 4, 2012

gepard

i already make clean before use make sql

Sign In

Profiles

Forums

Downloads

Jobs Available

Server Database

Third-Party Services

Top Guides

Store

Crowdfunding

Posts posted by PapaZola