|** >> DNAutoAccept.Mac << v1.0 - First Release v1.1 - Added Trade and general toggle on v1.2 - Fixed Proper Case, stupid thing didnt case the add entries! V1.3 - added cmd line for toggling Translocate/zephyr /mac dnautoaccept translocate **| Sub Main /declare i int local 0 /declare UppahCase string local 0 /declare LowahCase string local 0 /for i 1 to ${DanNet.PeerCount} /varset UppahCase ${DanNet.Peers[All].Arg[${i},|].Left[1].Upper} /varset LowahCase ${DanNet.Peers[All].Arg[${i},|].Right[-1]} /dgga /autoaccept add ${UppahCase}${LowahCase} /delay 1 /next i /if (${Defined[Param0]} && ${Param0.Equal[translocate]}) { /dgga /autoaccept translocate on } /dgga /autoaccept on /dgga /autoaccept trade on /dgga /autoaccept save /return