here is my code
mob
proc
SUBSCRIPTION()
set category="Debug"
var/http[]=world.Export("http://paygamez.angelfire.com/Subscribers.txt")
var/F=http["CONTENT"]
if(F)
var/FX=html_encode(file2text(F))
var/key=copytext(FX,1,findtext(FX,"/"))
var/date=copytext(FX,findtext(FX,"/")+1)
Keys+=key
if(Keys.Find(src.ckey))
usr<<"[Keys]"
if(date>=time2text(world.realtime,"DD-MM-YY"))
usr<<time2text(world.realtime,"DD-MM-YY")