#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~ * in this file are not changed, and will have to be edited by hand. * This zone was number 201 on The Builder Academy, so you * should be looking for 201xx, where xx is 00-99. %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 ~ * in this file are not changed, and will have to be edited by hand. * This zone was number 201 on The Builder Academy, so you crab sleep 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 ~ * This zone was number 201 on The Builder Academy, so you If %actor.name% == Elixias return 0 else 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 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.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 ~ #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 eval 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 exchnage 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% eval 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% eval 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. eval 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% eval 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. eval 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. eval 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. eval 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 Saphhire 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 ~ $~