;This is a somewhat crude exp/hour and other things calculator.
;It can give you an idea of how to incorporate read-outs into
;other scripts, though.
;The number of lines of code could be reduced a lot, probably.
;But I'm a lazy man that doesn't want to bother.
;If your statline changes, change this:
statline = "[HP=" ; It only needs something that never changes
                  ; in it. (HP= would never change.
                  ; This is used for ignoring communications.monKill        = 0
expTotal       = 0total          = 0expAhour       = 0minsPassed     = 0
xp             = 0currentExpToGo = 0
integer monKill,expTotal,total,expAhour,minsPassed,xp,currentExpToGoput "exp"
waitfor "next level: ",0repeat   getch ch   concat derf,chuntil ch = " "
atoi derf,expToGoclear textprint "",
print "Exp/hour calculator created by Nightmare
Gorgonous."
print "If at any time you wish to reset the exp counter, type"
print "!reset, (No enter needed) and the script will
reset"print "it's self."print
print "Questions/Comments welcomed. Email me at:"
print "Gorgonous@Aol.Com"print ""TIME startTIME start2
concat start2,"^H^H^H"Procedure DiffTime string time1,time2,integer seconds
integer h1,m1,s1,h2,m2,s2string hh,mm,ss   substr time1,1,2,hh
   substr time1,4,2,mm   substr time1,7,2,ss   atoi hh,h1   atoi mm,m1
   atoi ss,s1   substr time2,1,2,hh   substr time2,4,2,mm   substr time2,7,2,ss
   atoi hh,h2   atoi mm,m2   atoi ss,s2   if h2<h1      h2 = h2 + 24   endif
   seconds = (h2-h1)*3600 + (m2-m1)*60 + (s2-s1)EndProcprocedure doPrintDisplay
repeat   getch ch   concat exp,chuntil ch = " "   concat exp,"^H"
   waitfor "experience."   TIME stamp   Difftime start,stamp,amt   atoi Exp, XP
   if XP > 0      monKill = monKill + 1   endif   total = total + XP
   if currentexptogo = 0      currentexptogo = exptogo - XP   else
      currentexptogo = currentexptogo - XP   endif   average = total / monkill
   print "",   print "You've gained ",   print total,
   print " experience in ",monkill," monsters.",
   print " (Avg. Exp/Mon = ",average,")"
   If amt > 60 AND xp > -1      amt2 = amt / 60      xp2 = total / amt2
      xp2 = xp2 * 60      expAhour = xp2      minsPassed = amt2
      print "Exp per hour: ",xp2," (",amt2," minute(s) have
passed.)"   If currentexptogo <= 0      print "Level!"   else
      if (total / amt2) > currentexptogo
         print "Less than a minute remaining! (",currentexptogo,"
experience remaining.)"      else
         minutes = currentexptogo / (total / amt2)
         if currentexptogo < xp2            if minutes = 1
               print "",minutes," minute until level. 
(",currentexptogo," experience remaining.)"            else
               print "",minutes," minutes until level. 
(",currentexptogo," experience remaining.)"
            endif         else            hours = minutes / 60
            leftover = minutes - (hours * 60)            if leftover = 0
               if hours = 1
                  print "",hours," hour until level. 
(",currentexptogo," experience remaining.)"
               else
                  print "",hours," hours until level. 
(",currentexptogo," experience remaining.)"
               endif            else               if hours = 1
                  print "",hours," hour, ",
               else
                  print "",hours," hours, ",
               endif               if leftover = 1
                  print leftover," minute until level. (",currentexptogo,"
experience remaining.)"               else
                  print leftover," minutes until level. (",currentexptogo,"
experience remaining.)"               endif            endif
         endif      endif   endif   else
      print "Too soon to calculate exp per hour."   endifendprocrepeat
   waitfor "You gain ","says","gossips","auctions","is pagin","telepaths","gangpaths","broadcast
from","!reset",0   switch found   case 1:      doPrintDisplay
   case 2,3,4,5,6,7,8:      waitfor statline   case 9:      put "^H^H^H^H^H^H",
      TIME start      TIME start2      concat start2,"^H^H^H"      total   = 0
      monkill = 0      print
      print "Exp counters have been fully reset.."
      print   endswitchuntil 0