#20101 Seabreeze/Landbreeze - All Rooms~ 2 b 75 ~ if ( %time.hour% >=7 && %time.hour% <=19) %echo% WA seabreeze arrives from the south, bringing in the smell of salt. n return 0 else %echo% WA landbreeze arrives swiftly from the north. n return 0 end ~ #20102 Seawaves for the Seashore~ 2 b 75 ~ %echo% CThe waves roll onto the beach and breaks gently... n return 0 ~ #20103 Seabreeze only - all~ 2 b 100 ~ if ( %time.hour% >=7 && %time.hour% <=19) %echo% WA seabreeze arrives from the south, bringing in the smell of salt. n return 0 end ~ #20104 water swelling - shallow waters~ 2 b 50 ~ %echo% CThe waves crawl inland, swelling occasionally as an incipient wind arrives from the open ocean. n return 0 ~ #20105 deep wave~ 2 b 50 ~ %echo% WA wind howls and blows forcefully, forming froth at the surface of the dark waters. n return 0 ~ #20106 tree shake - 20105~ 1 c 100 shake~ if %arg% == tree %send% %actor% You shake the tree, and a coconut falls out! %echoaround% %actor% %actor.name% shakes a coconut tree and a coconut falls out! %load% obj 20104 else %force% %actor% shake %arg% end ~ #20107 waves + wind~ 2 b 75 ~ eval line %random.2% switch %line% case 1 %echo% WHarsh, cold wind tears at you in all directions. n break default %echo% BThe waves rush in as the ocean body shifts... n break done ~ #20108 wind+pounding~ 2 b 80 ~ eval line %random.2% switch %line% case 1 %echo% WHarsh, cold wind tears at you in all directions. n return 0 break default %echo% BThe incessant waves pounds the base of the cliff... n return 0 break done ~ #20109 seagull eat the crabs~ 0 d 100 test~ %echo% FINDOBJ: There are %findobj.1233(1300)% objects of vnum 1300 in roo m 1233. %echo% There is %findobj.1233(1332664)% object of ID 1332605 in r oom 1233. %echo% There are %findobj.1233(app)% objects of name app in room 1233. %echo% There are %findobj.1233(apprehension)% objects of name app in room 1233. ~ #20110 the crabs sleep - 20101~ 0 b 100 ~ if ( %time.hour% <=7 || %time.hour% >=19) eval line %random.5% switch %line% case 1 sleep break case 2 break default break done else eval line %random.10% switch %line% case 1 wake rest break case 2 %echo% A crab burrows itself into the sand and disappears beneath the grains. %purge% %self% wait 10 secs break default wake stand break done end ~ #20111 seagull sleeps/wake - 20103~ 0 b 100 ~ if ( %time.hour% <=5 || %time.hour% >=18) south %teleport% %self% 20110 wait 2 secs sleep else %echo% The seagull ruffles its wings and starts preening itself. wake stand end ~ #20112 Siren sings to all around her - 20104~ 2 g 100 ~ if (%actor.sex% == male) %send% %actor% You hear someone sing, the voice overpowering your senses and strangely luring... wait 2 secs %send% %actor% You feel dizzy, as your feet takes you towards the voice... %echoaround% %actor% %actor.name% has a blank look on his face as he wanders off... %force% %actor% south %force% %actor% look end ~ #20113 Siren confuses the male - 20104~ 0 g 100 ~ %echo% A siren smile sweetly as you approach her. if (%actor.name%==Elixias) return 0 else if (%actor.sex%==male) %send% %actor% A siren slides her body against yours seductively. wait 5 sec %echo% The siren starts singing, and walks towards the ocean... %asound% You hear the voice of someone singing... wait 5 sec %send% %actor% The siren beckons you to follow. %echoaround% %actor% The siren beckons %actor.name% to follow her... wait 3 secs %force% %actor% nod wait 3 secs %echoaround% %actor% %actor.name% walks into the sea... %teleport% %actor% 20130 %teleport% siren 20130 lick %actor.name% wait 3 secs kiss %actor.name% wait 2 secs %send% %actor% Laughing, the siren waves goodbye to you and swims away. %teleport% %self% 20129 %force% %actor% look %echo% A siren splashes out of the water! wait 1 sec smile wait 2 sec while (%actor.hitp%>-10) %send% %actor% You gasp for breath! wait 5 sec %damage% %actor% 100 done else return 0 end end ~ #20114 Player can't move! - 20104~ 0 c 0 *~ If %actor.name% == Elixias return 0 else if (%actor.sex%==male) %send% %actor% The power of the Siren's voice holds you mesmerized. %send% %actor% You can't move! else return 0 end end ~ #20115 Play Harp - 20109~ 1 c 1 play~ if (%arg%==harp) %send% %actor% You strum your fingers across the harp and create mellifluous music. %echoaround% %actor% Beautiful tunes are created when %actor.name% strums the strings if the harp... wait 4 secs %echo% The sound of harps echoes around the area, the sharp tunes sounding crystal clear and sharp... wait 4 secs %echo% You hear the echo of harps being played... wait 4 secs %echo% Having lost its ambience, the sound of harps fade slowly into the background sounds... else return 0 end ~ #20116 tosses char around waters - 20132, 20140, 20141, 20142~ 2 g 100 ~ if !(%actor.varexists(breath_air)%) %send% %actor% RGULP AIR W! You're running out of oxygen! end switch %random.10% case 1 wait 1 secs %send% %actor% BThe powerful and formidable currents takes tosses you Cnorth B! n %echoaround% %actor% B %actor.name% is pulled screaming Cnorth B by the forceful currents! n %force% %actor% north break case 2 wait 1 secs %send% %actor% BThe powerful and formidable currents takes tosses you Csouth B! n %echoaround% %actor% B %actor.name% is pulled screaming Csouth B by the forceful currents! n %force% %actor% south break case 3 wait 1 secs %send% %actor% BThe powerful and formidable currents takes tosses you Ceast B! n %echoaround% %actor% B %actor.name% is pulled screaming Ceast B by the forceful currents! n %force% %actor% east break case 4 wait 1 secs %send% %actor% BThe powerful and formidable currents takes tosses you Cwest B! n %echoaround% %actor% B %actor.name% is pulled screaming Cwest B by the forceful currents! n %force% %actor% west break case 5 wait 1 secs %send% %actor% BThe waves surges and grew to tower over you. Then they come crashing down and Cdrowns B you beneath the surface! n %echoaround% %actor% BA gigantic wave forms and comes crashing Cdown B upon %actor.name%! n %force% %actor% down break case 6 wait 1 secs %send% %actor% BYou hit a nearby jagged reef and everything went dark... n %teleport% %actor% 20146 %damage% %actor% 100 break default wait 2 secs %send% %actor% BUnderwater seacurrents sucks you Cdownwards B and pushes you beneath the surface! n %echoaround% %actor% BA gigantic wave forms and comes crashing Cdown B upon %actor.name%! n %force% %actor% down %damage% %actor% 50 break done ~ #20117 Underwater currents - 20139 20145 20144 20143~ 2 g 100 ~ if %actor.is_pc% if !(%actor.varexists(breath_air)%) %send% %actor% WPANIC! You ran out of oxygen and feel as if your lungs are going to burst! n %damage% %actor% 10 else %send% %actor% WYou hold your breath as long as you can before they escape through your mouth as bubbles... n rdelete breath_air %actor.id% end eval line %random.10% switch %line% case 1 wait 1 secs %send% %actor% BUnderwater sea currents hauls you Cnorth B! n %echoaround% %actor% B %actor.name% is pulled Cnorth B by invisible hands! n %force% %actor% north break case 2 wait 1 secs %send% %actor% BUnderwater sea currents hauls you Csouth B! n %echoaround% %actor% B %actor.name% is pulled Csouth B by invisible hands! n %force% %actor% south break case 3 wait 1 secs %send% %actor% BUnderwater sea currents hauls you Ceast B! n %echoaround% %actor% B %actor.name% is pulled Ceast B by invisible hands! n %force% %actor% east break case 4 wait 1 secs %send% %actor% BUnderwater sea currents hauls you Cwest B! n %echoaround% %actor% B %actor.name% is pulled screaming Cwest B by the forceful currents! n %force% %actor% west break default wait 1 secs %send% %actor% BThe currents suddenly go Cup B, and you are dragged above the surface! n %echoaround% %actor% BThe currents drags %actor.name% Cup B n %force% %actor% up break done end ~ #20118 Haplessness - 20146~ 2 c 100 *~ If %actor.name% == Elixias return 0 else %send% %actor% You are unconscious, unable to do anything... end ~ #20119 Waking up - 20146~ 2 b 100 ~ eval person %self.people% wait 1 sec *While there are still people in the room. while (%person%) %echo% Darkness surrounds you... set worthy_oceana 1 remote worthy_oceana %person.id% wait 5 secs %send% %person% You feel a sharp splitting headache as you try to open your eyes... wait 5 secs %send% %person% Another wave of pain forces you to succumb to it, and your eyes submit, closing in an agonized grimace. wait 5 secs %teleport% %person% 20147 %echoaround% %person% %person.name% is washed onto the shore. %send% %person% You open your eyes... %force% %person% look eval person %self.people% done ~ #20120 search for treasure - 20148~ 2 c 100 search~ if !(%actor.varexists(found_treasure)%) %send% %actor% You search around the northern wall and discover a massive treasure chest! %echoaround% %actor% %actor.name% searches around the area and stumbles upon a hidden seachest! %load% obj 20112 wait 2 secs %echo% A small piece of paper falls to the floor beside the chest. %load% obj 20114 set found_treasure 1 remote found_treasure %actor.id% else %send% %actor% You search around but found nothing. %echoaround% %actor% %actor.name% searches around the area for something, but failed to find it! *he/she has found the treasure already halt end ~ #20121 Receiving and calling for Oceana! - 20148~ 2 d 100 liquiddreams~ if !(%actor.varexists(receive_oceana)%) if %actor.varexists(found_treasure)% if %actor.varexists(worthy_oceana)% *yes you have the requirements %echo% The island trembles... wait 3 secs %echoaround% %actor% CWater burst out from the tip of the cliff, forming a gigantic waterfall over %actor.name% n %send% %actor% CWater burst out from the tip of the cliff, forming a gigantic waterfall over you! n wait 4 secs wait 2 secs %send% %actor% A voice says to you, 'You are worthy of this blade, receive this gift from Leviathius - Son of Leviathan.' set receive_oceana 1 remote receive_oceana %actor.id% %send% %actor% A blade appears before you... %echoaround% %actor% A blade appears before %actor.name% %load% obj 20111 %actor% inv else %send% %actor% A voice says to you, 'You are not worthy of this blade, begone!' end else %send% %actor% A voice says to you, 'You are not worthy of this blade, begone!' end else %send% %actor% Nothing happens. end ~ #20122 Sword restriction - 20111~ 1 j 100 ~ if !(%actor.varexists(receive_oceana)%) %send% %actor% You try to wield the sword bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs n, but it freezes your hand and you hurriedly drop it onto the floor. %echoaround% %actor% %actor.name% accidentally drops bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs n to the floor in an attempt to wield it. %force% %actor% drop oceana else %send% %actor% Energy flows into your veins as visions of the vast ocean and its interminable depths floods your vision. %echoaround% %actor% %actor.name% looks refreshed after wielding bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs n. end ~ #20123 blade commands! - 20111~ 1 c 1 execute~ eval half_hit %actor.maxhitp%/2 eval half_mana %actor.maxmana%/2 if (%arg%==fusion) if !(%actor.hitp%>=%half_hit%) if !(%actor.mana%<50) eval %actor.mana% %actor.mana%-50 %send% %actor% BYou weave a web of healing around you with the aid of the blade... n %echoaround% %actor% B%actor.name% weaves a web of healing around him with the aid of %actor.hisher% bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs n. while (%actor.hitp%<%half_hit%) %send% %actor% BWebs of healing fixes your scars and injuries... n wait 1 secs %damage% %actor% -10 done %send% %actor% BYou lost connection with the sword. n else %send% %actor% BNot enough mana to complete the transition! n %send% %actor% BYou lost connection with the sword. n end else %send% %actor% BThe blade refuses to heal you because you are healthy enough! n end else %send% %actor% BThat is not a function of the blade. n end ~ #20124 randomevents rooms 32, 40-42~ 2 b 100 ~ switch %random.3% case 1 %echo% The wind howls in your face, tearing at you in all directions in utmost fury. break case 2 %echo% The waves pound against you threatening to drown you! break default %echo% The waves around you grew, and the undercurrents become more forceful! break done ~ #20125 Random Events - 44 43 45 39~ 2 b 100 ~ switch %random.3% case 1 %echo% The undersea currents pushes you momentarily out of the water. break case 2 %echo% Something grasp at your feet! break default %echo% Water enters your mouth and you utter a choked cry. break done ~ #20126 Gulp air! 41 40 42 32~ 2 c 100 gulp~ if (%arg%==air) if !(%actor.varexists(breath_air)%) %send% %actor% WYou gulp in a mouthful of air! n set breath_air 1 remote breath_air %actor.id% else %send% %actor% WYou can't take in anymore! n end end ~ #20127 Oceana's Offensive function! - 20111~ 1 c 1 perform~ if (%arg%==aurorafall) if (%actor.hitp%>100) if (%actor.mana%>100) %damage% %actor% 100 eval %actor.mana% %actor.mana%-100 eval victim %actor.fighting% %echoaround% %actor% W%actor.name% performs Aurora Fall with %actor.hisher% bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W. n %echoaround% %actor% W%actor.name% whirls bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W around %actor.himher% creating bf Br Co Wzen illusions of the blade. n %send% %actor% WYou whirl bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W around you, creating bf Br Co Wsted illusions of the sacred blade. n wait 2 secs %echo% WThe surroundings Dloose W their colours as bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W rapidly Ddrains W energy from them. n wait 2 secs if (%actor.fighting%) if ((%victim.is_pc%)) %send% %actor% WYour blade refuses to kill %victim.himher%. n halt end %echoaround% %actor% W%actor.name%'s movement becomes a Dblur W as %actor.himher% impales %victim.name%, inflicting bretribution W onto the enemy! n %send% %actor% WYou put a step forward, movements becoming a Dblur W as you impale %victim.name% with your blade. n set count 0 while (%count%<10) if (!(%victim.hitp%<-10) && %victim% && %actor.fighting%) eval victim %actor.fighting% %echoaround% %actor% W%actor.name%'s bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs y e Yx Wplod Ye ys W with a thousand burst of Wb Yr bi Wl Yl Ci ba Wn bc Ye W! n %send% %actor% WYour bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W explodes with a thousand burst of Wb Yr bi Wl Yl Ci ba Wn bc Ye W! n %echo% Y%victim.name% screams with agony! n %damage% %victim% 100 eval count %count%+1 wait 2 else %send% %actor% WSparks fly from your bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W and creates an impact on the ground. n %echoaround% %actor% WSparks fly from %actor.name%'s bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W and creates an impact on the ground! n %echo% The ground trembles... eval count %count%+1 wait 2 end done end %echoaround% %actor% WThe glow on %actor.name%'s bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W subsides... n %send% %actor% WThe glow on your bO Bc Ce Wa Cn Ba bM Be Cr Widia Cn Bu bs W subsides... n else %send% %actor% WYou're not in the condition to use this function! n end else %send% %actor% WYou're not in the condition to use this function! n end end ~ #20128 dig around for those treasures! - all seashore, coast of konolua~ 2 c 100 dig~ %echoaround% %actor% %actor.name% digs furiously in the sand. %send% %actor% You dig around in the sand. wait 1 switch %random.10% case 1 switch %random.10% case 5 %echoaround% %actor% %actor.name% finds a spiral Ws ye Wa ys rh ye Wll! n %send% %actor% You found a spiral shell! %load% obj 20101 %actor% inv break case 3 %echoaround% %actor% %actor.name% finds a brown coconut! %send% %actor% You found a brown coconut! %load% obj 20104 %actor% inv break case 1 %echoaround% %actor% %actor.name% finds a MP Wr Mi ms Wm S Mhe Wll! n %send% %actor% You found a prism shell! %load% obj 20116 %actor% inv break default %echoaround% %actor% %actor.name% finds a MP Wr Mi ms Wm S Mh ma Wrd! n %send% %actor% You found a prism shard! %load% obj 20115 %actor% inv break done break case 2 %echoaround% %actor% %actor.name% finds a brown coconut! %send% %actor% You found a brown coconut! %load% obj 20104 %actor% inv break case 3 %echoaround% %actor% %actor.name% finds a spiral Ws ye Wa ys rh ye Wll! n %send% %actor% You found a spiral shell! %load% obj 20101 %actor% inv break default %send% %actor% You found nothing! break done ~ #20129 Greet Tryny - 20105~ 0 c 100 greet~ if %arg%==tryny %send% %actor% You greet Tryny the Widow. %echoaround% %actor% %actor.name% greets Tryny the Widow. wait 2 secs smile %actor% wait 2 secs say Hello %actor.name%, what brings you here this day? wait 2 secs say I sell some stuff that you may want to buy, type Rlist n to show them. wait 2 secs smile end ~ #20130 DIVE - 20107~ 2 c 100 dive~ %send% %actor% You take a deep breath and dive underwater. %echoaround% %actor% %actor.name% takes a deep breath and disappears beneath the water surface. %teleport% %actor% 20151 wait 1 secs %force% %actor% look ~ #20131 SURFACE - 20151~ 2 c 100 surface~ %send% %actor% You push yourself upwards, propelling yourself out of the water. %echoaround% %actor% %actor.name% pushes upwards and surfaces. wait 1 secs %teleport% %actor% 20107 %force% %actor% look %send% %actor% You break through the surface of the water and take in a huge breath. %echoaround% %actor% %actor.name% pops out from the surface of the water! ~ #20132 SURFACE-20152~ 2 c 100 surface~ %send% %actor% You push yourself upwards, propelling yourself out of the water. %echoaround% %actor% %actor.name% pushes upwards and surfaces. wait 1 secs %teleport% %actor% 20153 %force% %actor% look %send% %actor% You break through the surface of the water and take in a huge breath. %echoaround% %actor% %actor.name% pops out from the surface of the water! ~ #20133 DIVE - 20153~ 2 c 100 dive~ %send% %actor% You take a deep breath and dive underwater. %echoaround% %actor% %actor.name% takes a deep breath and disappears beneath the water surface. %teleport% %actor% 20152 wait 1 secs %force% %actor% look ~ #20134 Tryny Sleeps - 20105~ 0 b 100 ~ wait until 7:00 wake wait 5 secs yawn wait 1 secs stand unlock door open door wait until 21:00 say The shop if close now, please leave. wait 1 secs open door wait 1 secs set room_var %self.room% set target_char %room_var.people% while %target_char% if (%target_char%==%self%) set target_char %tmp_target% else %send% %target_char% Tryny beckons you out of the door. %force% %target_char% south set target_char %tmp_target% end done close door lock door wait 5 secs emote prepares to go to bed. wait 5 secs yawn wait 5 secs sleep ~ #20135 CLIMB - 20109~ 2 c 100 climb~ if (%arg%==up) %send% %actor% GYou swiftly climb up the vines. n %echoaround% %actor% %actor.name% grabs at hanging vines and deftly climbs %actor.hisher% way to the top. %teleport% %actor% 20157 %force% %actor% look else %send% %actor% Climb where? end ~ #20136 Talk to Old Fool - 20136~ 0 c 100 greet~ if ((%arg%==man) || (%arg%==fool)) %send% %actor% You greet an Old Fool. %echoaround% %actor% %actor.name% greets an Old Fool. wait 2 secs peer %actor.name% wait 2 secs say What do you want %actor.name%? %send% %actor% 1) Talk %send% %actor% 2) Trade MP Wr Mi ms Wm S Mh ma Wrds for MP Wr Mi ms Wm S Mhe Wlls n %send% %actor% 3) say Can you make me some fine prism equipments? else %send% %actor% Greet who? end ~ #20137 Old fool 1) talk - 20106~ 0 c 100 1~ %send% %actor% You talk to an Old Fool. %echoaround% %actor% %actor.name% talks to an Old Fool. wait 2 secs say I am one of the last few people who can make prism equipments out from prism shards and shells. wait 2 secs ponder say I will make some for you if you would just bring me some of those stuff. ~ #20138 Numder of shards - 20106~ 0 c 100 2~ %send% %actor% An Old Fool tells you 'Ten MP Wr Mi ms Wm S Mh ma Wrds n is the same as a single MP Wr Mi ms Wm S Mhe Wll n.' wait 2 secs %send% %actor% An Old Fool tells you 'Holding a single shell is way lighter than having 10 shards, and it is wise to exchange them to ease your load.' wait 2 secs %send% %actor% An Old Fool tells you 'If you want just MTRADE n with me, and I'll exchange them for you.' eval i %actor.inventory% set no_of_shards 0 while (%i%) set next %i.next_in_list% if %i.vnum%==20115 eval no_of_shards %no_of_shards%+1 set i %next% else set i %next% end done say %actor.name%, you currently have %no_of_shards% number of prism shards in your inventory. ~ #20139 CLIMBDOWN! - 20157~ 2 c 0 climb~ if (%arg%==down) %send% %actor% GYou swing down the vines. n %echoaround% %actor% %actor.name% grabs at hanging vines and swings down. %teleport% %actor% 20109 %force% %actor% look else %send% %actor% Climb where? end ~ #20140 trade for shards -20106~ 0 c 100 trade~ eval i %actor.inventory% set no_of_shards 0 while (%i%) set next %i.next_in_list% if %i.vnum%==20115 eval no_of_shards %no_of_shards%+1 set i %next% else set i %next% end done if (%no_of_shards%<10) say You don't have enough shards for me to trade that many shells! else %send% %actor% You give an Old Fool ten MP Wr Mi ms Wm S Mh ma Wrds! n %echoaround% %actor% %actor.name% gives ten MP Wr Mi ms Wm S Mh ma Wrds n to an Old Fool. wait 2 secs %send% %actor% An Old Fool gives you a MP Wr Mi ms Wm S Mhe Wll n. %echoaround% %actor% An Old Fool gives %actor.name% a MP Wr Mi ms Wm S Mhe Wll n. set n 10 while (%n%>0) %purge% %actor.inventory(20115)% eval n %n%-1 done %load% obj 20116 %actor% inv end ~ #20141 MAKE the Prism stuff~ 0 c 100 create~ eval i %actor.inventory% set no_of_shells 0 while (%i%) set next %i.next_in_list% if %i.vnum%==20116 eval no_of_shells %no_of_shells%+1 set i %next% else set i %next% end done if (%arg%==anklet) if (%no_of_shells%>=5) %send% %actor% You hand the shells to the Fool, who gives you a MP Wr Mi ms Wm MA Wn Mk ml We mt n in return. %echoaround% %actor% %actor.name% hands a few shells to the Fool, who in return gives %actor.name% a MP Wr Mi ms Wm MA Wn Mk ml We mt n. set n 5 while (%n%>0) %purge% %actor.inventory(20116)% eval n %n%-1 done %load% obj 20120 %actor% inv else say You do not have enough shells for me, %actor.name%. end else if (%arg%==collar) if (%no_of_shells%>=5) %send% %actor% You hand the shells to the Fool, who gives you a MP Wr Mi ms Wm MC Wo Ml ml Wa Mr n in return. %echoaround% %actor% %actor.name% hands a few shells to the Fool, who in return gives %actor.name% a MP Wr Mi ms Wm MC Wo Ml ml Wa Mr n. set n 5 while (%n%>0) %purge% %actor.inventory(20116)% eval n %n%-1 done %load% obj 20122 %actor% inv else say You do not have enough shells for me, %actor.name%. end else if (%arg%==dress) if (%no_of_shells%>=15) %send% %actor% You hand the shells to the Fool, who gives you a MP Wr Mi ms Wm MD Wr Me ms Ws n in return. %echoaround% %actor% %actor.name% hands a few shells to the Fool, who in return gives %actor.name% a MP Wr Mi ms Wm MD Wr Me ms Ws n. set n 15 while (%n%>0) %purge% %actor.inventory(20116)% eval n %n%-1 done %load% obj 20121 %actor% inv else say You do not have enough shells for me, %actor.name%. end else %send% %actor% An Old Fool tells you 'Make what?' end end end ~ #20142 Old fool explains - 20106~ 0 c 100 3~ say Ah %actor.name%... wait 2 secs say You want me to make equipments for you. wait 2 secs nod wait 2 secs say I can make equipments out of prism shells. To do that, RCREATE <OBJECT> n and I will make you the item. %send% %actor% Prism Dress - 15 Shells %send% %actor% Prism Collar - 05 Shells %send% %actor% Prism Anklet - 05 Shells ~ #20143 DOLPHINS! - 20147~ 2 c 100 jump~ %echoaround% %actor% %actor.name% jumps into the ocean and floats around for a while. %send% %actor% You jump into the ocean and float for a while. wait 5 secs %echo% You hear clicking sounds. wait 2 secs %echoaround% %actor% Dolphins appear from under the sea and drags %actor.name% away! %send% %actor% Dolphins suddenly appear from under you and drags you away! %teleport% %actor% 20112 %echoaround% %actor% Dolphins appear from nowhere and dumps %actor.name% onto the beach! %send% %actor% You are tossed onto the beach by the dolphins! wait 5 %echo% The sea swallows the dolphins as they swim out of sight. ~ #20144 More effects - 20147~ 2 b 100 ~ if ( %time.hour% >=6 && %time.hour% <=17) %echo% A bird sings from the nearby tree. return 0 else %echo% Crickets chirp, the sound coming from all directions. return 0 end ~ #20145 new trigger~ 0 g 100 ~ say When you sleep you have it, yet you cannot get it. wait 2 secs say You can get the other, but it is just not solid enough. wait 2 secs think wait 2 secs emote goes back to %self.hisher% muttering. ~ #20146 attach to cushions 20117-19~ 1 c 100 rest~ if (%arg%==cushion) %echoaround% %actor% %actor.name% snuggles onto a cushion and starts resting. %send% %actor% You plop yourself on a cushion and start resting. %force% %actor% rest set cushion_old_title %actor.title()% remote cushion_old_title %actor.id% set %actor.title(is resting on a %self.shortdesc%)% else %force% %actor% rest end ~ #20147 Stand up!~ 1 c 4 stand~ if (%actor.varexists(cushion_old_title)%) eval title_old %actor.cushion_old_title% set %actor.title(%title_old%)% %echoaround% %actor% %actor.name% stands up from %self.shortdesc%. %send% %actor% You stand up from %self.shortdesc%. %force% %actor% stand else %force% %actor% stand end ~ #20149 underwater 53 52~ 2 b 100 ~ set actor %random.char% %send% %actor% You can't breathe underwater. %damage% %actor% 10 %echoaround% %actor% %actor.name%'s face turn blue from lack of oxygen. ~ #20186 new trigger~ 1 c 1 test~ if %arg% == sit %force% %actor% say Sit! %force% salem sit end if %arg% == grope %force% %actor% say Sing! %force% salem sing end if %arg% == smile %force% %actor% say Kood kitty! %force% salem smile end if %arg% == drop %force% salem remove surfboard %force% salem drop surfboard end if %arg% == purge %purge% %actor.inventory(43306)% end ~ #20187 sword - 20190~ 1 c 1 slash~ if (%actor.fighting%) set victim %actor.fighting% %damage% %victim% 100 %force% %victim% scream %echoaround% %actor% %actor.name%'s bDeathly bnirvana W glows n! %send% %actor% Your bDeathly bnirvana W glows n at %victim.name%. end ~ #20188 delete/add? - computer mob 20197~ 0 c 100 please~ if %arg% == delete say Deleted all quest flags! rdelete found_treasure %actor.id% rdelete worthy_oceana %actor.id% rdelete receive_oceana %actor.id% rdelete aloha_welcome %actor.id% elseif %arg% == add say Added quest flags! set receive_oceana 1 remote receive_oceana %actor.id% set found_treasure 1 remote found_treasure %actor.id% set worthy_oceana 1 remote worthy_oceana %actor.id% else say Invalid command! RPlease Add n or Rdelete n? end ~ #20190 for random stuff~ 1 c 2 eat~ if (%arg% == icecream) %send% %actor% The icecream melts slowly in your mouth. %echoaround% %actor% %actor.name% happily eats an icecream. %purge% icecream end ~ #20191 void!~ 1 c 1 void~ %teleport% %arg% 0 %send% %arg% CYou are swept away by a large tsunami! n %force% %arg% look %echo% CA large tsunami arrives and sweeps %arg% away! n ~ #20192 summon someone!- trans!~ 1 c 1 trans~ %send% %arg% CA large tsunami arrives and carries you away! n %echo% CA large tsunami arrives and tosses %arg% onto the ground! n %teleport% %arg% %actor.name% %force% %arg% look ~ #20193 Telport Someone - Surfboard =)~ 1 c 1 teleport~ %teleport% %arg% %echo% CA large tsunami arrives! n ~ #20194 remove trig~ 0 g 100 ~ rdelete aloha_welcome %actor.id% say Deleted. ~ #20195 Aloha Welcome! - Tour Guide~ 0 g 100 ~ if !(%actor.varexists(aloha_welcome)%) smile %actor.name% wait 2 secs say Welcome to the Sapphire Islands, %actor.name%! wait 2 secs say I have prepared some items for you. wait 2 secs %load% obj 20198 give shirt %actor.name% %load% obj 20193 give bag %actor.name% %load% obj 20104 give coconut %actor.name% %load% obj 20124 give book %actor.name% wait 2 secs whisper %actor.name% If you lose the objects at any point of time, you can come to me and say replace wait 2 secs wink wait 2 secs open door wait 2 secs say Have fun! set aloha_welcome 1 remote aloha_welcome %actor.id% wait 10 secs close door else say Welcome back! open door wait 10 secs close door end ~ #20196 Replace items - tourguide~ 0 d 100 replace~ if %actor.varexists(aloha_welcome)% say Okay, there you go! %load% obj 20198 give shirt %actor.name% %load% obj 20104 give coconut %actor.name% %load% obj 20193 give bag %actor.name% %load% obj 20124 give book %actor.name% open door wait 10 secs close door else halt return 0 end ~ #20197 cook auto cook~ 0 g 100 ~ say I've made a little something for you %actor.name% wait 1 sec smile %actor.name% wait 1 sec %load% obj 20197 give meal %actor.name% smile ~ #20198 Chef cooks crabs!~ 0 j 100 ~ if %object.vnum% == 65535 %purge% %object% say Alright, I'll start cooking! wait 1 sec emote prepares the ingredients for the dish and starts cooking... wait 5 sec %load% obj 20197 give meal %actor.name% say Enjoy! smile else say I can't cook that! return 0 end ~ #20199 Cook greets pc - 20199~ 0 g 100 ~ say Hello, I can offer some of my services if you need any. wait 1 sec say Just bring me the corpses of dead crabs and I'll start cooking! smile ~ $~