@program #3536 1 1000 d i $include $lib/rp $include $lib/alynna : Connector var x me @ "last cycle" getstat toint x ! systime x @ 86400 + > if systime 86400 900 - - x ! me @ "last cycle" x @ setstat then me @ "!dark" set me @ "Guest" flag? if exit then me @ "!Mobile" set me @ "Badge/Mage" getstatstr me @ "Badge/Mage" rot setstat me @ "_prefs/findall/default" "L" setprop "#$# hello" .tell 5 sleep me @ "_prefs/pub" getpropstr "n" instring not if me @ "pub #on" force then me @ "_smell_notify" "%n smelled you!" setprop me @ "/_prefs/logintime?" "yes" setprop me @ "_disconnect/timelog" "2248" setprop me @ "_connect/timelog" "2248" setprop me @ "_/de" getpropstr not if me @ "_/de" "{eval:{list:redesc}}" setprop then me @ "auctioninit?" getstatint not if me @ "Auctioninit?" 1 setstat me @ "auction on" force then me @ location contents x ! begin x @ player? if x @ awake? if me @ "Met/" x @ int intostr strcat systime setstat x @ "Met/" me @ int intostr strcat systime setstat then then me @ location x @ next x ! x @ #-1 dbcmp until me @ mlevel 3 > if me @ "wc #on" force then me @ "Resources" getstatint not me @ "finish" getstatint and if me @ "+resdefault" force then 10 sleep me @ "+auction" force "Join the mailing list at http://groups.yahoo.com/group/SouthernCross/join" .tell me @ "rp on" force ; . c q