/* /cmds/creator/callouts.c * from the Nightmare IV LPC Library * lists all callouts pending * created by Descartes of Borg 950514 */ #include <lib.h> inherit LIB_DAEMON; mixed cmd(string args) { mixed *coi; string tmp; int i, maxi; coi = call_out_info(); if( !sizeof(coi) ) { message("system", "No pending callouts.", this_player()); return 1; } tmp = sprintf("%:-30s %:-15s %:-5s %s\n", "Object", "Function", "Delay", "Args"); tmp += "--------------------------------------------------" "-------------------------\n"; for(i=0, maxi = sizeof(coi); i<maxi; i++) { if( sizeof(coi[i]) != 4 ) { tmp += sprintf("Error in element %O\n", coi[i]); continue; } tmp += sprintf("%:-30s %:-15s %:-5s %O\n", identify(coi[i][0]), identify(coi[i][1]), identify(coi[i][2]), coi[i][3]); } this_player()->more(explode(tmp, "\n"), "system"); return 1; } void help() { message("help", "Syntax: <callouts>\n\n" "Lists all pending callouts.\n\n" "See also: events, mstatus, netstat", this_player()); }