The follow is a list of example mobprogs found on the mud, MadROM, at: telnet mad.rom.org 1536 All programs written by Madman =) and Etaine, except Baba and Bluebird programs written by Garion of Blue Facial Mud These are for use as examples only...if you use any parts of these, please don't use them exactly as IS..and if you must use them almost unmodified, please credit Madman somewhere If you are writing for MadROM and need more info on mobprog making, email Etaine at sofa@io.org.....also see: MobSounds.txt Mob Vnum: 3012 Cam the Angelic healer's Mobprog: --------------------------------------------------- >rand_prog 2~ gossip MH in 3!! =) gossip MH in 2!! =) gossip MH in 1!! =) gossip MASS HEAL AT PIT NOW!!! =) cast 'mass heal' gossip Gee I count fast...=) ~ >greet_prog 20~ if rand(50) wave else smile endif ~ >rand_prog 2~ if level($r) >= 20 cast 'heal' $r endif ~ >act_prog stands~ wave $n if goldamt($i) > 100000 mpat 3020 give 98000 gold armourer mpat 3020 give 2000 gold armourer endif endif ~ | Mob Vnum: 3062 the beastly pillow's Mobprog: ----------------------------------------------- >greet_prog 20~ if rand(50) tickle $n nuzzle $n smile else snuggle $n whap $n smile $n endif ~ | Mob Vnum: 3067 the cityguard's Mobprog: ------------------------------------------ >greet_prog 10~ if rand(50) say If you are entering Midgaard, welcome! say If you are leaving, I hope you've enjoyed your stay! else emote beats up a punk into a bloody pulp...What a mess... howl say Awoooo!!! endif ~ | Mob Vnum: 3011 Hassan's Mobprog: ----------------------------------- >greet_prog 99~ if rand(10) say Anybody REALLY want my Golden Scimitar? endif if rand(20) say Any newbies need any help? endif if rand(50) if ispc($n) tickle $n endif else if rand(25) shake $n say Hi $n! How ya doin? endif endif ~ >fight_prog 99~ if rand(10) say So ya think yer a tough guy eh? endif if isimmort($n) if rand(10) bonk $n endif if rand(10) say What are you BORED or something? endif if rand(10) say You call yourself an Imm?! endif if rand(10) say You're supposed to be KEEPING the peace! NOT disrupting it! endif if rand(10) anvil $n endif endif ~ >act_prog p gives you the bird...What an ass!~ say Oh yeah? Well f*ck you too! bird $n ~ >act_prog p gives you the bird happily...What an ass!~ say Oh yeah? Well f*ck you too! bird $n ~ >act_prog says~ if rand(5) say Hmmmm interesting... endif if rand(5) ponder endif if rand(5) boggle endif if rand(5) tickle $n endif if rand(5) emote scratches his head. endif if rand(5) whap endif if rand(5) whap hassan smile endif ~ | Mob Vnum 16008: the drunk pirate's Mobprog: ---------------------------------------------- >greet_prog 99~ if ispc($n) if level($n) >= 50 mpkill $n say "Die high level mud scum!!" endif endif ~ >rand_prog 60~ if rand(50) dance hic else emote sings 'For I'm a jolly good fellow...' if rand(25) emote sings 'For I'm a jolly good fellllllooooowwww.....That nobody can deny! burp endif endif ~ >bribe_prog 10~ say Ahh! More spirits! Good spirits! sing >fight_prog 99 if rand(50) kick $n else bash $n endif ~ | Mob Vnum: 16007 the angry pirate's Mobprog: ---------------------------------------------- >rand_prog 60~ if rand(50) growl else fume endif ~ >greet_prog 99~ say En guarde ye mud scum! growl $n if ispc($n) if level($n) >= 50 mpkill $n say My name is Enigo Montoya. You killed my father. Prepare to Die! endif endif ~ >fight_prog 99~ if rand(50) kick $t else bash $t endif ~ | Mob Vnum: 9582 The Royal Guard's Mobprog: -------------------------------------------- >greet_prog 20~ if rand(50) head else emote holds his head in the air and mutters disdainfully, 'mudders...' endif | Mob Vnum: 2220 Tiamat's Mobprog: ----------------------------------- >greet_prog 50~ if ispc($n) say Well, hello there! You've come far! To have gotten here! say Be careful though! Many dangers await you in the lairs below! endif ~ >fight_prog 10~ if rand(25) say You're doing well! Doing well! endif if rand(25) say But its not over 'til it's over! endif if rand(25) pat $n endif if rand(25) endif if rand(25) smile $n endif ~ >act_prog says~ say Awwww shaddup and fight ya wuss! ~ >act_prog p you disarm~ cackle say Nyah Nyah Nyah! I DISARMED YOU! ~ | Mob Vnum: 4216 The great sphinx's Mobprog: --------------------------------------------- >greet_prog 99~ say Correctly answer this riddle and the key to my treasures are yours... say Answer incorrectly and prepare to meet your doom! say What do you call a horse without legs? ~ >speech_prog p < correct answer phrase goes here >~ say Correct! remove answer give answer $n mpechoat $n The great sphinx vanishes in a gust a sand... mppurge sphinx ~ >act_prog says~ say You fool! prepare to die! bonk $n anvil $n mpkill $n ~ | Baba Yaga's hut program (by Garion of BFM) >death_prog 100~ mpecho hut The force animating the hut is gone. Its legs buckle and it falls... mpecho hut THUD! mpecho hut The door *bangs* open and a powerful wind sucks you into the hut. mpecho hut The door slams shut and disappears. mptransfer all 9901 ~ | Wooof or the Persian shopkeeper greet progam >greet_prog 99~ if ispc($n) bow $n say Greetings, good friend! Welcome. say All manner of fine exotic party items may be yours. say Read the sign, it lists our goods, and how to order. emote points to the sign. endif ~ | Zaktar the RMES space cowboy program >speech_prog p give me a smoke~ say You want a smoke? smoke Zaktar say Tell you what..I'm on my LAST pack...gimme 1000 gold, we'll talk. ~ >bribe_prog 499~ mpoload 9329 mpoload 9329 mpoload 9329 mpoload 9330 mpat 9301 put cigarette pack mpat 9302 put cigarette pack mpat 9303 put cigarette pack emote reaches back and bangs a pack out of the cigarette machine. give pack $n mpjunk all mpoload 9331 ~ | A Banker mobprogram >greet_prog 99~ if ispc ($n) say Cross my palm with gold coin, young adventurer. say The riches of the Earth will then be within your grasp. say Beware! Any amount less than 500 thousand gold is a grave insult to me. endif ~ >bribe_prog 749999~ mpoload 22543 give tribeworkb $n bow $n ~ >bribe_prog 499999~ say See you in Brazil, SUCKER! sigh mpoload 22542 give tribeworka $n bow $n ~ | The Architects Program >give_prog stone red tribeworka~ say Ahhh...the gem that holds the power of the volcano ... how amusing! mpoload 22540 give artifacta $n say Take this, the Horn of Creation, to Ozymandias, Thunder or Etaine. say We shall begin this great work at dawnbreak. ~ >give_prog stone blue tribeworkb~ smile $n say The most precious of the fire gems, the Blue Flame! mpoload 22541 give artifactb $n say Take this, the Hammer of Creation, to Ozymandias, Thunder or Etaine. say We begin this great work at dawnbreak. ~ | The Beat Poet Program >greet_prog 99~ if rand(50) say Girl---friend ... my---friend? say she's jag---ged ... and blas---ted... say Got no---head ... She's untopp---ed. endif if rand(20) smoke poet endif ~ | Bluebird the Pirate program (by Garion of BFM) >all_greet_prog 100~ if ispc($n) mpechoat $n Bluebird squints at you with his one good eye. "Aarrh!" mpechoat $n Bluebird says 'Ahoy there matey! What be the password?' endif ~ >act_prog p < the password phrase here :) >~ if ispc($n) mpechoat $n Bluebird says 'Aarrh! That be correct matey!' emote intones 'Shiver me timbers! Blow me down!' mpechoat $n A whirlwind carries you away and dumps you on your behind. mptransfer $n 22675 mpecho Bluebird A powerful whirlwind swirls around $n and whisks $m away! endif ~ >act_prog < the wrong phrase(s) or action here >~ if ispc($n) emote roars: "WRONG!!, ya ScuRvY dog!" mpechoat $n Bluebird rests the tip of his sabre against your throat! mpechoat $n Bluebird marches you to the plank and forces you to walk it! mpechoat $n * * * S P L A S H * * * mptransfer $n 9796 emote rests the tip of his sabre against $n's throat! mpecho Bluebird $n is marched to the plank and forced to walk it! endif ~ | Hope these help some...not all mp commands available on MadROM may be available on other muds. If you make up any fun mobprogs and want to send them around, mail sofa@io.org :)