Jump to content

Ragnar Lothbrok

Members
 View Profile  See their activity

  • Posts

    309

  • Joined

  • Last visited

 Content Type 

Posts posted by Ragnar Lothbrok

    Is this correct?

    in Scripting Support

    Posted · Edited by arnie2302

    i want my script detect the level of the player, if the character is not yet lvl 99 it will not get the items or the conversation will not continue...thanks in advance

    if(BaseLevel <=98 ){

    mes "GTFU";

    close;

    }

    request freebies NPC

    in Script Requests

    Posted · Edited by arnie2302

    can i request a freebies npc but the npc detects the gender of the char and it will gives the item for the coresponding gender..

    sample :

    if p = male then goto freebies for male

    if p = female then goto freebies for female

    then account base....

    thanks in advance...

    Scripters help me please

    in Scripting Support

    Posted · Edited by Joseph
    Codebox-ed.

    Guys, can you please fix this... every round it's always says "Last round now"

    phtownall,182,199,4 script Disguise NPC 794,{

if (!$guessbegin)
{
mes "^3399FF[Disguise NPC]^000000";
mes "The event is going to start soon!";
close;
}
end;

OnStart:
set $guessbegin, 1;
set .DisguiseWon, 0;
if (!$DisguiseRound)
{
npctalk "Alright. Let's get it over with ~.~ ";
sleep 4000;
npctalk "But first I will explain to you how to play the game.";
sleep 6000;
npctalk "I am going to disguise into a random monster.";
sleep 5000;
npctalk "You have to guess the monster's name and shout it out.";
sleep 5000;
npctalk "Don't bother about the use of capital and small initial letters.";
sleep 8000;
npctalk "Now get ready.";
sleep 5000;
}
else if ($DisguiseRound < $guessrounds-10)
{
npctalk "Get ready for the next round.";
setnpctimer 0;
sleep 8000;
}
else
{
npctalk "Last round now!";
sleep 2000;
npctalk "Get ready.";
sleep 6000;
}

do
{
set .@guessrepeat, 0;
set $monster, 1000 + rand(1,950);
for (set .@k, 0; .@k <getarraysize($Forbidden); set .@k, .@k+1)
{
if ($monster == $Forbidden[.@k])
{
set .@guessrepeat, 1;
break;
}
}
}
while (.@guessrepeat);
setnpctimer 0;
initnpctimer;
setnpcdisplay "Disguise NPC",$monster;
set $MonsterName$, strmobinfo(1,$monster);
defpattern 1, "([^:]+):.*\\s"+$MonsterName$+"(.*)", "winround";
activatepset 1;
npctalk "What's my name?";
sleep 3000;
npctalk "Di mo alam?";
sleep 2000;
npctalk "Balu meh?";
end;

OnTimer10000:
if (!.DisguiseWon)
{
npctalk "Come on. What monster am I?";
sleep 3000;
npctalk "Dimolam?";
sleep 2000;
npctalk "Balumeh?";
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
}
end;


OnTimer25000:
if (!.DisguiseWon)
{
npctalk "Nobody knows that monster?";
sleep 3000;
npctalk "Dimolam?";
sleep 2000;
npctalk "Balumeh?";
}
end;

OnTimer35000:
if (!.DisguiseWon)
{
npctalk "You get 10 more seconds to guess my name.";
sleep 3000;
npctalk "Dimolam?";
sleep 2000;
npctalk "Balumeh?";
}
end;

OnTimer45000:
if (!.DisguiseWon)
{
npctalk "Round is over.";
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
set $DisguiseRound, $DisguiseRound + 1;
sleep 3000;
deletepset 1;
npctalk $MonsterName$ + " would have been the correct answer.";
sleep 5000;
if ($DisguiseRound >= $guessrounds)
{
set $DisguiseRound, 0;
sleep 3000;
npctalk "Event is over now!";
sleep 3500;
npctalk "See ya guys";
sleep 2000;
emotion 12;
sleep 1000;
set $guessactive, 0;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
disablenpc "guesswarp";
end;
}
goto OnStart;
}
end;

winround:
setnpctimer 0;
deletepset 1;
set .DisguiseWon, 1;
set $DisguiseRound, $DisguiseRound + 1;
npctalk strcharinfo(0) + " got my right name!";
sleep2 3000;
npctalk $MonsterName$ + " is the correct answer.";
sleep2 3000;
npctalk "Take this as a reward.";
getitem $guessprize, $guessprizecount;
if (!$guessactive)  {disablenpc "guesswarp"; disablenpc "Disguise NPC"; end;}
if ($DisguiseRound >= $guessrounds)
{
set $DisguiseRound, 0;
set $guessactive, 0;
sleep 3000;
npctalk "Event is over now!";
sleep 3500;
npctalk "See ya guys";
sleep 2000;
emotion 12;
sleep 1000;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
disablenpc "guesswarp";
end;
}
sleep 5000;
goto OnStart;
end;



}

//-----------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------

- script guessAnnouncer -1,{


OnGMStart:
if ($guessactive) end;
set $guessactive, 1;
announce "A Gamemaster has started the Disguise Event",0;
set $guessbegin, 0;
sleep 3000;
if (!$guessactive) end;
announce "If you want to participate, go to our Maintown and head left!.",0;
enablenpc "Disguise NPC";
enablenpc "guesswarp";
sleep 3000;
announce "Number of Rounds: "+$guessrounds,0;
sleep 2000;
announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
sleep 2000;
if (!$guessactive) {disablenpc "Disguise NPC"; end;}
announce "The event is going to start in one minute.",0;  
sleep 60000;
if (!$guessactive) {disablenpc "Disguise NPC"; end;}
announce "The event is now starting.",0;
set $DisguiseRound, 0;
sleep 5000;
if (!$guessactive) {disablenpc "Disguise NPC"; end;}
if(getmapusers("phtownall") == 0)
{
disablenpc "Disguise NPC";
disablenpc "guesswarp";
set $guessactive, 0;
end;
}

donpcevent "Disguise NPC::OnStart";
end;

OnGMStop:
if ($guessactive)
{
set $guessactive, 0;
announce "A Gamemaster has stopped the Disguise Event",0;
set $DisguiseRound, 0;
setnpcdisplay "Disguise NPC",794;
disablenpc "Disguise NPC";
}
end;


OnMinute00:
if ($guessactive) end;
set $guessactive, 1;
announce "We are starting a Disguise Event now.",0;
set $guessbegin, 0;
sleep 3000;
if (!$guessactive) end;
announce "If you want to participate, go to our Maintown and head left!.",0;
enablenpc "Disguise NPC";
enablenpc "guesswarp";
sleep 2000;
announce "Prize: "+ getitemname($guessprize) + " x " + $guessprizecount,0;
sleep 2000;
if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
announce "The event is going to start in 1 minute.",0;  
sleep 60000;
if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
announce "The event is now starting.",0;
sleep 5000;
if (!$guessactive)  {disablenpc "Disguise NPC"; end;}
announce "Next Event will start in 1 hour.",0;
set $DisguiseRound, 0;
if(getmapusers("phtownall") == 0)
{
disablenpc "Disguise NPC";
disablenpc "guesswarp";
set $guessactive, 0;
end;
}

donpcevent "Disguise NPC::OnStart";
end;

OnInit:
disablenpc "Disguise NPC";
disablenpc "guesswarp";
set $guessactive, 0;
setarray $Forbidden[0],1003,1006,1017,1021,1022,1027,1043,1136,1137,1168,1171,1172,1173,1181,1210,1217,1218,1223,1284,1324,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1407,1411,1414,1496,1501,1900;

}

    Q> about grf+custom items...

    in Tulong para sa Client

    Posted

    ganito gus2 kong gwin may mga pinatch ako mga custom item sa server ko kaso directory nila sa client hindi sa grf... ngyun gus2 ko gumawa ng updated installer na nasa grf na lahat ng ginawa kong custom items... pano ko ilalagay lahat ng custome items ko sa grf ko para mkagawa ako updated grf na hindi pinapatch?

    please edit this script!

    in Script Requests

    Posted · Edited by Joseph
    Codebox.

    i want this script to check for party before entering the room and when inside the room i want to disable /organize, please edit it... thanks

    - script LMS#disable -1,{
OnInit:
disablenpc "Mr. Banker";
enablenpc "Last Man Standing";
end;
}
- script LMS -1,{
OnClock000:
OnClock0305:
OnClock0605:
OnClock0905:
OnClock1205:
OnClock1505:
OnClock1805:
OnClock2105:
goto startlmsevent;
startlmsevent:
announce "Mr. Manager: The Last Man Standing event will be starting shortly.",0;
sleep2 10000;
announce "Mr. Manager: Those who want to play, please proceed to Maintown.",0;
sleep2 10000;
announce "Mr. Manager: After 1 Minute the LMS NPC will close.",0;
sleep2 10000;
announce "Mr. Manager: Please go to Maintown now if you want to join.",0;
enablenpc "Last Man Standing";
initnpctimer;
end;
OnTimer30000:
announce "Mr. Manager: Last 30 seconds.",0;
sleep2 5000;
announce "Mr. Manager: If you want to join go in Maintown.",0;
end;
OnTimer50000:
announce "Mr. Manager: Last 10 seconds.",0;
end;
OnTimer55000:
announce "Mr. Manager: 5.",0;
end;
OnTimer56000:
announce "Mr. Manager: 4.",0;
end;
OnTimer57000:
announce "Mr. Manager: 3.",0;
end;
OnTimer58000:
announce "Mr. Manager: 2.",0;
end;
OnTimer59000:
announce "Mr. Manager: 1.",0;
end;
OnTimer60000:
announce "Mr. Manager: Time's up.",0;
end;
OnTimer61000:
disablenpc "Last Man Standing";
donpcevent "Mr. Banker::OnEnable";
stopnpctimer;
end;
}
//---------All Job Registration---------------
phtownall,194,184,5 script Last Man Standing 488,{
if( Class == Job_Novice ){
	mes "Novice cant join.";
	close;
}
if (ismounting) atcommand "@newmount";
else if (checkriding()) atcommand "@mount";
warp "quiz_02",310,267;
atcommand "@disguise 1163";
atcommand "@fakename Raydric";
atcommand "@size 0";
mes "[Mr. Manager]";
mes "Hello What can I do for you?";
next;
menu "Register",-,"What is LMS?",what,"Leave",leave;
next;
mes "[Mr. Manager]";
mes "Thankyou for registering Mr. " + strcharinfo(0) + ", Have fun!";
warp "quiz_02",310,267;
end;
what:
mes "[Mr. Manager]";
mes "LMS is also known as Last Man Standing Event";
next;
mes "[Mr. Manager]";
mes "LMS is also like a PvP.";
mes "The only difference is at LMS you will get 5 Proof of Donation if you are the Last Man Standing at the arena.";
next;
mes "[Mr. Manager]";
mes "That's all";
close;
leave:
mes "[Mr. Manager]";
mes "I hope you will register next time";
close;

}
//--------------------------
//--------------------------
quiz_02,303,265,6 script Mr. Banker 56,{
mes "[banker]";
mes "Congrats. You've won.";
next;
announce "Mr. Manager: We have a winner! well done "+strcharinfo(0)+".",0;
getitem 7179, 5; // Change This item id to what ever you want . item id,amount
getitem 110, 30;
dispbottom "5 Proof of Donation and 30 Event Coins";
mes "You will return now";
warp "phtownall",200,180;
disablenpc "Mr. Banker";
close;
end;
OnEnable:
pvpoff "quiz_02";
mapannounce "quiz_02","Mr. Manager:The Last Man Standing Event will start shortly",0;
sleep2 10000;
mapannounce "quiz_02","Mr. Manager:But before we start this is just a few reminders..",0;
sleep2 10000;
mapannounce "quiz_02","Mr. Manager:Using Cloaking , Hiding is strictly not allowed..",0;
sleep2 10000;
mapannounce "quiz_02","Mr. Manager: Only the Last Man Standing will win this event!!",0;
sleep2 10000;
mapannounce "quiz_02","Mr. Manager: What are we waiting for?..Let's Get Ready to Rumble!!...",0;
sleep2 10000;
goto L_Start;
end;
L_Start:
if(getmapusers("quiz_02") == 1) goto L_Champ;
if(getmapusers("quiz_02") == 0) goto L_None;
if(getmapusers("quiz_02") > 1) {
mapannounce "quiz_02","Mr. Manager: Get ready at the count of 5 we will start!....",0;
sleep2 10000;
mapannounce "quiz_02","Mr. Manager: 5",0;
sleep2 5000;
mapannounce "quiz_02","Mr. Manager: 4",0;
sleep2 4000;
mapannounce "quiz_02","Mr. Manager: 3",0;
sleep2 3000;
mapannounce "quiz_02","Mr. Manager: 2",0;
sleep2 2000;
mapannounce "quiz_02","Mr. Manager: 1",0;
sleep2 1000;
pvpon "quiz_02";
goto timer;
end;
}
timer:
initnpctimer;
end;
OnTimer1000:
end;
OnTimer1100:
if(getmapusers("quiz_02") == 1) goto L_Champ;
if(getmapusers("quiz_02") > 2) goto timer;
if(getmapusers("quiz_02") == 2) goto champ;
stopnpctimer;
end;
champ:
announce "Mr. Manager: Last 2 Brave warriors are still alive!",0;
sleep2 10000;
if(getmapusers("quiz_02") == 1) goto L_Champ;
if(getmapusers("quiz_02") > 1) goto timer;
end;
L_Champ:
mapannounce "quiz_02","Mr. Banker: Please talk to me to get your prize..",0;
pvpoff "quiz_02";
enablenpc "Mr. Banker";
end;
L_None:
disablenpc "Banker";
pvpoff "quiz_02";
end;
}
//----- Die = warp prt -----
- script Killa_warp -1,{
OnPCDieEvent:
getmapxy(.@map$,.@x,.@y,0);
if(.@map$=="quiz_02")
{
set #kill_point, 0;
announce ""+strcharinfo(0)+" died, and out of the game!.",bc_all;
warp "phtownall",188,188;
sleep 1;
atcommand "@raise";
end;
}
OnPCKillEvent:
getmapxy(.@map$,.@x,.@y,0);
if(.@map$=="quiz_02")
{
set #kill_point,#kill_point+1;
if ( #kill_point % 4 == 0) {
announce ""+strcharinfo(0)+" have made 4 Consecutive Kills!!He will be granted an item",bc_all;
getitem 671, 10;
getitem 7619, 2;
getitem 7620, 2;
end;
}
}
}

// == Mapflags
quiz_02 mapflag nowarp
quiz_02 mapflag nowarpto
quiz_02 mapflag noteleport
quiz_02 mapflag nosave
quiz_02 mapflag nomemo
quiz_02 mapflag nobranch
quiz_02 mapflag pvp_noparty
quiz_02 mapflag restricted 1
quiz_02 mapflag pvp_noguild
quiz_02 mapflag nocommand 1

    can anyone help me on this error!

    in General Support

    Posted

    it's about castle treasure box, i try to change the items that drops in castle treasure box w/ my custom items... the problem is after hitting the treasure box and the custom item drop i got gravity error... but when i try to drop the custom item from my inventory i dont get error but when in castle treasure box i got gravity error... can anyone knows how to fix this error??

×
×
  • Create New...