Re: Private server all weapons unlock inclusive special forces
sounds unreliable
sounds unreliable
<%@ Page Language="VB"%><% dim i as integer response.ContentType = "text/plain" response.write("O" & chr(10)) response.write("H" & chr(9) & "pid" & chr(9) & "nick" & chr(9) & "asof" & chr(10)) response.write("D" & chr(9) & request.querystring("pid") & chr(9) & "UNLOCKED" & chr(9) & int((Now() - DateSerial(1970, 1, 1)).totalseconds) & chr(10)) response.write("H" & chr(9) & "enlisted" & chr(9) & "officer" & chr(10)) response.write("D" & chr(9) & "0" & chr(9) & "0" & chr(10)) response.write("H" & chr(9) & "id" & chr(9) & "state" & chr(10)) for i=11 to 99 step 11 response.write("D" & chr(9) & i & chr(9) & "s" & chr(10)) next for i=111 to 333 step 111 response.write("D" & chr(9) & i & chr(9) & "s" & chr(10)) next response.write("$" & chr(9) & "115" & chr(9) & "$" & chr(10)) %>
#!/usr/bin/perl # my @ids=qw/11 22 33 44 55 66 77/; @ids=qw/11 22 33 44 55 66 77 88 99 111 222 333/; sub main(); sub main() { my $time=time; print "Content-type: text/plain\n\n"; print "O\n"; print "H\tpid\tnick\tasof\n"; print "D\t12345678\tUNLOCKED\t$time\n"; print "H\tenlisted\tofficer\n"; print "D\t0\t0\n"; print "H\tid\tstate\n"; for (@ids) { print "D\t$_\ts\n"; } # print "\$\t103\t\$\n"; print "\$\t115\t\$\n"; } main();
Comment