Couple of script ideas
Take them if you like them

Couple of ideas for things, and accompanying chatgpt-generated scripts.

IDEA: Payphones Someone calling the script would need to be able to complete SIC triangulation and have a progia that could somehow get the results of that triangulation. This would be used to cause the payphone(s) closest to the triangulated ID to ring and open a connection to the progia being used. Alternatively (easier) the script would just give the caller some payphone numbers to try manually dialing.

- payphones in the MOO would need to have a .phone_number property for this script to work.

- sorting assumes %payphones can be arranged by proximity. If additional distance-check logic is needed, we can implement it.

- The script will use $SIC_triangulator_result to get the rough location (%location) of a payphone. Find nearby payphones ($object) in proximity to %location. Obtain the phone numbers (%phone_numbers) of the closest payphones. Send the results to the %player's Progia device.

uses $default_script

// Retrieve the triangulated location

set "%location" $SIC_triangulator_result

// Find payphones in the triangulated location

find $object "payphone" "%payphones"

// Check if any payphones were found

if equals %payphones 0

tell %player "You couldn't locate any nearby payphones."

stop

endif

// Sort payphones by proximity to the triangulated location

sort "%payphones"

// Retrieve phone numbers of the closest payphones

set "%phone_numbers" ""

foreach %phone in %payphones

getprop %phone ".phone_number" "%number"

set "%phone_numbers" "%phone_numbers,%number"

endfor

// Remove the leading comma

math "%phone_numbers" = substr(%phone_numbers 2 len(%phone_numbers))

// Send the phone numbers to the player's Progia

notify %player "Your device displays the phone numbers of nearby payphones: %phone_numbers."

IDEA: Hacked Network Scanner Basically evil twin of a SIC network amplifier. In principle, all SIC-enabled or grid-enabled devices should be automatically using the closest SIC network amplifier. So sniffing of traffic at those amplifiers should reveal some information for any grid-enabled devices. This script will run after a Hacked Network Scanner is used to scan a SIC amplifier. It will accept the SIC amplifier's Network ID as input. Then run a check on the %player's Systems skill against a difficulty threshold. Then gathers info from the %room for specific objects (Felibots, Eisenhowers, Progias) and players with specific objects in inventory (NLM Liteterm or Quickterm). Outputs results to the Hacked Network Sniffer device's screen.

uses $default_script

// Variables and settings

set "%difficulty" 60 // Systems skill difficulty threshold

set "%network_id" %arg1 // Input Network ID

set "%results" ""

// Check the %player's Systems skill

checkstat %player "%systems" "systems"

if lessthan %systems %difficulty

tell %player "Your Systems skill is insufficient to use the Hacked Network Sniffer."

stop

endif

// Scan room for objects and players

find $object "Felibot" "%felibots"

find $object "Eisenhower" "%eisenhowers"

find $object "Progia" "%progias"

find $player "" "%players"

// Process Felibots

foreach %felibot in %felibots

getprop %felibot ".network_id" "%felibot_network_id"

getprop %felibot ".piloted" "%felibot_piloted"

math "%results" = %results + "Felibot: Network ID: " %felibot_network_id ", Piloted: " %felibot_piloted ".\n"

endfor

// Process Eisenhowers

foreach %eisenhower in %eisenhowers

getprop %eisenhower ".network_id" "%eisenhower_network_id"

getprop %eisenhower ".piloted" "%eisenhower_piloted"

math "%results" = %results + "Eisenhower: Network ID: " %eisenhower_network_id ", Piloted: " %eisenhower_piloted ".\n"

endfor

// Process Progias

foreach %progia in %progias

getprop %progia ".phone_number" "%progia_phone"

math "%results" = %results + "Progia: Phone Number: " %progia_phone ".\n"

endfor

// Process Players for Liteterm/Quickterm SIC IDs

foreach %player_obj in %players

find %player_obj "NLM Liteterm" "%liteterm"

find %player_obj "NLM Quickterm" "%quickterm"

if notequals %liteterm 0 or notequals %quickterm 0

getprop %player_obj ".sic_id" "%sic_id"

math "%results" = %results + "Player SIC ID: " %sic_id ".\n"

endif

endfor

// Output results to the Hacked Network Sniffer device's screen

if equals %results ""

describe %self "The Hacked Network Sniffer's screen shows: No data found."

else

describe %self "The Hacked Network Sniffer's screen shows:\n" %results

endif

notify %player "The Hacked Network Sniffer has completed its scan. Check the screen for results."