Someone asked for this in the room. Its been in my bot a very long time and will prob wantmodifying to suit your own needs.
I duno who made this but its a excellent script, thanks to the creator
<command type="script">
<in>!hip %PARAMETER%</in>
//All variables used are here...
<out type="pop" extdata="1220"/>
<out type="pop" extdata="1221"/>
<out type="pop" extdata="1222"/>
<out type="pop" extdata="1223"/>
<out type="pop" extdata="1224"/>
<out type="pop" extdata="1225"/>
<out type="pop" extdata="1226"/>
<out type="pop" extdata="1227"/>
<out type="pop" extdata="1228"/>
<out type="pop" extdata="1229"/>
<out type="pop" extdata="1230"/>
<out type="pop" extdata="1231"/>
<out type="pop" extdata="1232"/>
<out type="pop" extdata="1233"/>
<out type="pop" extdata="1234"/>
<out type="push" extdata="1220" condition="==" lvalue="%PARAMETER%" rvalue=""><operator type="strrfind" lvalue="%ROOMNAME%" rvalue="_"/></out>
<out type="push" extdata="1220" condition="==" lvalue="%PARAMETER%" rvalue=""><operator type="+" lvalue="%USERVAR[1220]%" rvalue="1"/></out>
<out type="push" extdata="1221" condition="==" lvalue="%PARAMETER%" rvalue=""><operator type="strright" lvalue="%ROOMNAME%" rvalue="%USERVAR[1220]%"/></out>
<out type="push" extdata="1220" condition="!=" lvalue="%PARAMETER%" rvalue=""><operator type="strrfind" lvalue="%PARAMETER%" rvalue="_"/></out>
<out type="push" extdata="1220" condition="!=" lvalue="%PARAMETER%" rvalue=""><operator type="+" lvalue="%USERVAR[1220]%" rvalue="1"/></out>
<out type="push" extdata="1221" condition="!=" lvalue="%PARAMETER%" rvalue=""><operator type="strright" lvalue="%PARAMETER%" rvalue="%USERVAR[1220]%"/></out>
<out type="push" extdata="1222"><operator type="strleft" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1221"><operator type="strright" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1223"><operator type="strleft" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1228">%USERVAR[1223]%</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1223"><operator type="strright" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1229">%USERVAR[1223]%</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1224"><operator type="*" lvalue="%USERVAR[1228]%" rvalue="16"/></out>
<out type="push" extdata="1233"><operator type="+" lvalue="%USERVAR[1224]%" rvalue="%USERVAR[1229]%"/></out>
<out type="push" extdata="1222"><operator type="strleft" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1221"><operator type="strright" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1223"><operator type="strleft" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1228">%USERVAR[1223]%</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1223"><operator type="strright" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1229">%USERVAR[1223]%</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1224"><operator type="*" lvalue="%USERVAR[1228]%" rvalue="16"/></out>
<out type="push" extdata="1232"><operator type="+" lvalue="%USERVAR[1224]%" rvalue="%USERVAR[1229]%"/></out>
<out type="push" extdata="1222"><operator type="strleft" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1221"><operator type="strright" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1223"><operator type="strleft" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1228">%USERVAR[1223]%</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1223"><operator type="strright" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1229">%USERVAR[1223]%</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1224"><operator type="*" lvalue="%USERVAR[1228]%" rvalue="16"/></out>
<out type="push" extdata="1231"><operator type="+" lvalue="%USERVAR[1224]%" rvalue="%USERVAR[1229]%"/></out>
<out type="push" extdata="1222"><operator type="strleft" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1221"><operator type="strright" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1223"><operator type="strleft" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1228">%USERVAR[1223]%</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1223"><operator type="strright" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1229">%USERVAR[1223]%</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1224"><operator type="*" lvalue="%USERVAR[1228]%" rvalue="16"/></out>
<out type="push" extdata="1230"><operator type="+" lvalue="%USERVAR[1224]%" rvalue="%USERVAR[1229]%"/></out>
//------------------------------------------------------------------------------
<out type="push" extdata="1222"><operator type="strleft" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1221"><operator type="strright" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1223"><operator type="strleft" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1228">%USERVAR[1223]%</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1223"><operator type="strright" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1229">%USERVAR[1223]%</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1224"><operator type="*" lvalue="%USERVAR[1228]%" rvalue="4096"/></out>
<out type="push" extdata="1225"><operator type="*" lvalue="%USERVAR[1229]%" rvalue="256"/></out>
<out type="push" extdata="1226"><operator type="+" lvalue="%USERVAR[1224]%" rvalue="%USERVAR[1225]%"/></out>
<out type="push" extdata="1222"><operator type="strleft" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1221"><operator type="strright" lvalue="%USERVAR[1221]%" rvalue="2"/></out>
<out type="push" extdata="1223"><operator type="strleft" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1228">%USERVAR[1223]%</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1228" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1223"><operator type="strright" lvalue="%USERVAR[1222]%" rvalue="1"/></out>
<out type="push" extdata="1229">%USERVAR[1223]%</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="A">10</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="B">11</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="C">12</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="D">13</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="E">14</out>
<out type="push" extdata="1229" condition="==" lvalue="%USERVAR[1223]%" rvalue="F">15</out>
<out type="push" extdata="1224"><operator type="*" lvalue="%USERVAR[1228]%" rvalue="16"/></out>
<out type="push" extdata="1225"><operator type="+" lvalue="%USERVAR[1224]%" rvalue="%USERVAR[1229]%"/></out>
<out type="push" extdata="1234"><operator type="+" lvalue="%USERVAR[1225]%" rvalue="%USERVAR[1226]%"/></out>
<out type="push" extdata="1220">%USERVAR[1230]%.%USERVAR[1231]%.%USERVAR[1232]%.%USERVAR[1233]%</out>
<out type="script"> #c56#IP: #c54#%USERVAR[1230]%#c56#.#c54#%USERVAR[1231]%#c56#.#c54#%USERVAR[1232]%#c56#.#c54#%USERVAR[1233]%#c56#:#c54#%USERVAR[1234]%</out>
<out type="script"> #c56#HOSTNAME: #c54#%HOSTNAME[%USERVAR[1220]%]%</out>
</command>
[Edit by: Omega] Inserted code tags instead of quote tags.[/Edit]