Euphy

The custom battlegrounds are old scripts created before we received the official scripts. They work, but they're not as thorough (actually, I'm not too sure why we've kept them XD).

prontera,150,150,0 script #sample 100,{ // Spawn 20 Porings if none are on the map. if (mobcount("prontera","#sample::OnMyMobDead") == 0) monster "prontera",150,150,"Poring",1002,20,"#sample::OnMyMobDead"; end; OnMyMobDead: // Label is needed to be able to count the monsters. end; }

See here.

- script PVP_Points -1,{ OnPCKillEvent: if (killedrid == getcharid(3) || killedrid == last_kill) end; set last_kill, killedrid; set #CASHPOINTS, #CASHPOINTS+1; dispbottom "Gained a kill point! Total: "+#CASHPOINTS; end; }

Somehow I doubt that anyone will translate 8000 lines when we could just wait for an official script.

I added a comment explaining that. o.o

// Multipliers for Base Exp, Job Exp, and Zeny rewards.

{},{ changebase 0; },{ changebase Class; }
http://rathena.org/wiki/Custom_Items

para_suv02 is set to 14 after finishing any quest by Instructor Ur and receiving the Paradise Advance Gears.

npctalk "<message>"; sleep <ms>; // repeat
Alternately,

while(1) { npctalk "<message>"; sleep <ms>; }

<header> { setarray [email protected]$[1],"Upper Headgear","Armor","Left hand","Right hand","Garment","Footgear","Left Accessory","Right Accessory","Mid Headgear","Lower Headgear"; set [email protected]$,""; for (set [email protected],1; [email protected] <= 10; set [email protected],[email protected]+1) { if (getequipisequiped([email protected])) set [email protected]$, [email protected][email protected]$[[email protected]]+" [^0055FF"+getequipname([email protected])+"^000000]"; set [email protected]$, [email protected]$+":"; } set @i, select([email protected]$); if (!getequipisequiped(@i)) { message strcharinfo(0),"Nothing is equipped there!"; close; } if (getarg(0)) { if (!getequipisenableref(@i)) { message strcharinfo(0),getequipname(@i)+" cannot be refined."; close; } if (getequiprefinerycnt(@i) >= 10 ) { message strcharinfo(0),"+"+getequiprefinerycnt(@i)+" "+getequipname(@i)+" cannot be refined any further."; close; } } while (getequiprefinerycnt(@i) < 10) successrefitem @i; message strcharinfo(0),"All done!"; close; }

Well, since you didn't supply proper percentages, still, here's the best I could do:

<header> { mes "[Lotti Girl]"; mes "It costs "+.Cost[1]+"x "+getitemname(.Cost[0])+" to play."; if (countitem(.Cost[0]) < .Cost[1]) close; next; if(select("Deal me in!:No way...")==2) close; mes "[Lotti Girl]"; mes "Here we go..."; progressbar "",2; delitem .Cost[0], .Cost[1]; set [email protected], rand(1,.Total); if (rand(1,100) > getd(".P"[email protected]+"[0]")) { for(set [email protected],0; [email protected]<getarraysize(.Default); set [email protected],[email protected]+2) { getitem .Default[[email protected]], .Default[[email protected]+1]; if ([email protected][0]) setarray [email protected][0], .Default[[email protected]], .Default[[email protected]+1]; } } else { for(set [email protected],1; [email protected]<getarraysize(getd(".P"[email protected])); set [email protected],[email protected]+2) { getitem getd(".P"[email protected]+"["[email protected]+"]"), getd(".P"[email protected]+"["+([email protected]+1)+"]"); if ([email protected][0]) setarray [email protected][0], getd(".P"[email protected]+"["[email protected]+"]"), getd(".P"[email protected]+"["+([email protected]+1)+"]"); } } announce "Congratulations to "+strcharinfo(0)+" for getting "[email protected][1]+"x "+getitemname([email protected][0])+"!",0; specialeffect2 248; close; OnInit: // Format: <%>,<item ID>,<count>{,...}; setarray .P1[0],70,607,25; setarray .P2[0],70,13710,1; setarray .P3[0],40,5471,1; setarray .P4[0],40,5210,1; setarray .P5[0],40,5224,1; setarray .P6[0],50,2357,1,2524,1,2421,1,2115,1; setarray .P7[0],25,2701,1; setarray .P8[0],5,2394,1; setarray .Default[0],12214,1; setarray .Cost[0],7227,300; set .Total,8; end; }

You can disable that option and write a script that does it manually:

- script Skulls -1,{ OnPCKillEvent: if (killedrid != getcharid(3)) getnameditem(7420,rid2name(killedrid)); end; }

Sounds like a call for my Item Rewards NPC! c:

This is a great idea, actually... if you don't mind, I'm stealing it for my own scripts. ;3

<header> { if (ismounting()) { message strcharinfo(0),"You must first remove your mount."; close; } else if ((eaclass()&EAJ_THIRDMASK==EAJ_RANGER) && !countitem(6124)) { if (!checkfalcon() && getskilllv(127) && !checkwug()) { if(select(" ~ Falcon: ~ Warg")==1) setfalcon; else getitem 6124,1; } else getitem 6124,1; } else if ((eaclass()&EAJ_THIRDMASK==EAJ_MECHANIC) && !checkcart()) { if (!checkmadogear() && getskilllv(2255)) { if(select(" ~ Cart: ~ Mado")==1) setcart; else setmadogear; } else setcart; } else if (!checkcart() && getskilllv(39)) setcart; else if (!checkfalcon() && getskilllv(127) && !checkwug()) setfalcon; else if (!checkriding() && getskilllv(63)) { if (eaclass()&EAJ_THIRDMASK==EAJ_RUNE_KNIGHT) setdragon; else setriding; } else if (!checkmadogear() && getskilllv(2255)) setmadogear; else { message strcharinfo(0),"You do not meet requirements to rent."; close; } close; }

<header> { set [email protected], countitem(7227); mes "[TCG Exchanger]"; mes "You have ^0055FF"[email protected]+" TCG^000000."; if ([email protected]) { mes "Please come back later."; close; } mes "I can trade ^FF00001 TCG^000000 for ^FF00005 Cash Points^000000."; next; if(select(" - Trade: - ^777777Leave^000000")==2) close; mes "[TCG Exchanger]"; mes "How many would you like to exchange?"; next; input [email protected]; mes "[TCG Exchanger]"; if ([email protected] < 1 || [email protected] > countitem(7227)) { mes "That's an invalid amount."; close; } mes "Are you sure you want to exchange ^0055FF"[email protected]+" TCG^000000?"; if(select(" - Yes: - No")==2) close; mes " "; delitem 7227, [email protected]; set #CASHPOINTS, #CASHPOINTS+([email protected]*5); mes "You now have "+#CASHPOINTS+" Cash Points."; close; }

A password or random code...? Password should be self-explanatory, and here's for a random code:

set [email protected]$,""; for(set [email protected],0; [email protected]<10; set [email protected],[email protected]+1) set [email protected]$, [email protected]$+rand(9); mes [email protected]$; input [email protected]$; if ([email protected]$ != [email protected]$) mes "Code invalid."; else warp "<map>",<x>,<y>; close;

<header> { L_Summon: monster "<map>",<x>,<y>,<name>,<ID>,1,strnpcinfo(3)+"::OnBossDead"; disablenpc "bosswarp"; end; OnBossDead: enablenpc "bosswarp"; sleep <ms>; // Respawn time goto L_Summon; end; } <from map> warp bosswarp 2,2,<to map>

No... that's still exactly what you're describing.
http://write.ratemyserver.net/ragnoark-online-how-to/the-auction-house-system/

- <tab> script <tab> HourlyAnnounce <tab> -1,{ OnInit: setarray .Messages$[0],"Welcome!","(type your messages here)","Etc."; end; OnMinute00: announce .Messages$[rand(getarraysize(.Messages$))],0; end; }

@SlashGeeGee: Almost! You didn't include a check for WOE SE, and the variable shouldn't be permanent.

{ if((agitcheck() || agitcheck2()) && (@y1 > gettimetick(2))) end; set @y1, gettimetick(2)+<seconds>; percentheal 100,100; },{},{}

// ... addtimer 180000,strnpcinfo(3)+"::OnExit"; warp "<map_name>",<x>,<y>; close; OnExit: warp "SavePoint",0,0; end; OnPCDieEvent: if (strcharinfo(3)=="<map_name>") warp "SavePoint",0,0; end;

Cashshop?

<map_name>,<x>,<y>,<facing> %tab% cashshop %tab% <NPC Name> %tab% <sprite>,<item 1>:<cost>,<item 2>:<cost>,<etc.>
http://rathena.org/wiki/General_Shop_creation (replace "shop" with "cashshop")