A forum for discussion about the PBBRPG Cantr II
https://forum.cantr.org:443/
Code: Select all
global engine,promp,surface
property type,pnam,desc,trek,init,stat,rpro,rloc,argo,echo,abno,movv,rest,skil,race,hand,worn,ring,atag
property spd,dam,hps,mps,eps,atts,attp,wepn,syze,xps,sex,class,air,dly,ride,jug
on new me,narb,thar
jug = me
ride = 1
syze = 4
wepn = #blunt
atts = ["slurp"]
attp = ["slurps"]
spd = 1
dam = 1
hps = 50 --health
mps = 50 --magic
eps = 50 --energy
xps = 7777
race = "vagina"
class = "animal"
sex = "female"
hand = 2
ring = 2
movv = 0
type = #body
trek = thar
init = []
argo = []
atag = 0
abno = ""
echo = narb
pnam = ["a vagina"]
desc = "a giant man-eating vagina"
air = 10
dly = 0
stat = [25,1,10,15,15,1,0]
skil = [:]
rpro = [:]
rloc = ["pack","cloak","amulet","head","neck","body","left leg","right leg","left arm","right arm","left hand","right hand","left foot","right foot"]
worn = [0,0,0,0,0,0,0,0,0,0,0,0,0,0]
rest = 0
return me
end
on flyer me
-- ok, can use this to target it can fly
-- fly must be in body, not in mount
-- make fly + climb and transitive commands
-- make mount omniusable
-- now i must to bed, smoosh.
end
on dlong me
return TAB&TAB&TAB&"Before you is a massive vagina. Wow, it's gigantic!"
end
on input me,wut
if echo <> 0 then
if abno = "" then
abno = wut
else
abno = abno&RETURN&wut
end if
if engine.flail.findPos(me) <> VOID then
else
engine.flail.add(me)
end if
end if
end
on zoom me
engine.outgo.add([echo,abno])
abno = ""
end
on commd me,wut
me.input(promp&wut&"%E%P")
if wut = "fly" then
if me.rest = 1 then
me.input("Try standing up first.")
else if me.eps < 20 then
me.input("You are way too tired.")
else
if me.trek.stat[3] = "indoor" or me.trek.stat[3] = "uwater" or surface.findPos(symbol(castlib(member(me.trek.area).castlibnum).name)) = void then
me.input("You are not outside.")
else
script("abody").areap(me,script("abody").quary(me,me.pnam[1],#name)&&"jumps up flapping skyward.")
script("abody").trans(me,script(castlib(member(me.trek.area).castlibnum).name&"Sky",castlib(member(me.trek.area).castlibnum).name),"up up and away")
end if
end if
wut = void
end if
repeat with f = 1 to init.count
if init[f].handler("commd") then
if wut <> void then wut = init[f].commd(me,wut)
end if
end repeat
repeat with f = 1 to skil.count
if script(skil.getPropAt(f),"Skills").handler("commd") then
if wut <> void then wut = script(skil.getPropAt(f),"Skills").commd(me,wut,skil[f])
end if
end repeat
if wut <> void then wut = me.trek.commd(me,wut)
if wut <> void then wut = script("abody").commd(me,wut)
end
on adven me,sym,wut
return wut
end
on wock me
if me.rest = 1 and me.dly = 0 then script("abody").commd(me,"stand")
if random(30) = 1 then
if random(2) = 1 then
me.commd("west")
else
me.commd("east")
end if
end if
if random(10) = 1 then
repeat with f = 1 to me.trek.init.count
if me.trek.init[f].type = #body then
if me.trek.init[f] <> me and script("abody").quary(me.trek.init[f],me.trek.init[f].desc,#desc) <> 0 and random(3) = 1 then
script("abody").commd(me,"emo ROARS!!!")
script("abody").commd(me,"kill"&&me.trek.init[f].pnam[1])
end if
end if
end repeat
end if
if atag = 0 then
if random(14) = 1 then
script("abody").areap(me,"The vagina gurgles slightly.")
end if
else
if random(8) = 1 then
script("abody").areap(me,"The vagina moans softly.")
end if
end if
if objectP(me.ride) then
if ride.trek <> trek then
ride.trek.init.deleteAt(ride.trek.init.findPos(ride))
ride.trek = trek
ride.trek.init.add(ride)
script("abody").commd(ride,"look")
end if
end if
end
on damit me,dis,who
hps = hps-dis
script("abody").commd(me,"hp")
jug = who
end
on death me,who
if objectP(ride) then ride.commd("dismount")
engine.bghost(me,who)
end