Simba Code:
program AccCreator;
{$DEFINE SMART}
{$DEFINE SRL5}
// This is how we include SMART; it HAS to be included BEFORE SRL!
{$i SRL/srl.simba}
procedure validateEmail(email : String);
var
html,url : String;
webpage : Integer;
begin
writeln(email);
html := GetPage('http://spamavert.com/mail/feed/' + email);
url := Replace(between('https://secure.runescape.com/m=email-register/submit_code.ws?','<br>',html),'&','&');
writeln('https://secure.runescape.com/m=email-register/submit_code.ws?' + url);
// GetPage('https://secure.runescape.com/m=email-register/submit_code.ws?' + url);
if url <> '' then
begin
webpage := InitializeHTTPClient(True, True);
SetHTTPUserAgent(webpage,'Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.1');
GetHTTPPage(webpage,'https://secure.runescape.com/m=email-register/submit_code.ws?' + url);
FreeHTTPClient(webpage);
end;
sleep(5000);
end;
function readRSNs(file : String) : Array of String;
var
s : String;
FileNum : Integer;
begin
FileNum := OpenFile(AppPath + file, False);
ReadFileString(FileNum, s, FileSize(FileNum));
CloseFile(FileNum);
Result := Explode(#10,s);
end;
function getClientH : Integer;
var x,y : Integer;
begin
GetClientDimensions(x,y);
Result := y;
end;
function getClientW : Integer;
var
x,y : Integer;
begin
GetClientDimensions(x,y);
Result := x;
end;
function isAtRegisterScreen : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(233, 15, 'meJztWVFu6zAMy0UG1H/J/X97m' +
'Pe/SyyoMUEjKVlx0m54m1AUriNRIi3b7dba99vbw/zHin93GzonIM' +
'XCoLzvtT+tfohFNIta+bF9vFY9D3sV5slKivORz3+v1f3fO5Tx+nq' +
'Gwk4rz1FDHBOkAjutVSVLlBqSAtScVjtIj/JoCU69fm6wCdtB7GU4' +
'+3hZFvN5Zd9GF2Iky3T3Hg3sgsj+LK4sG5Pysg8t+fIAK8g+xTbbQ' +
'fYoicYWtQ1r0j1P9lUH6WZ0LkEumswSkZWPnnQDRpbUdtSOBha1av' +
'EKRqfTJXWyW1TwtGJROhvDZH/t49ut8aSHgknp5kklIclkb1Fw6zP' +
'mLJny05yI38tRSOQ8TFTPAloxO9+Q9rKdflRkP2OpZT+wwvXGSABZ' +
'kCgdtK7fFD0EzuROhw9qmzQQGet1ljh8C8C8qcqxHlMK659GBfhJ2' +
'MtMU9Ymy6iQyguTyng0WTkLxallhUP6XABXmHCpPPUDuFVhp3AIb2' +
'SYh/WSyD7WCpAOvJV4nMcuwVcde1oBSTQEmnz9cSJ/9El8u0cg3XC' +
'SCXLlSWo4SSIpmH6icKWARG1jd/+8vMDN98/iTIKAg9zdfcZTk7G8' +
'4gyet64sm2PfnDGan6kUENGUyDKRP/pk/8gulTUMW9ccklUArWSFR' +
'fqSOJ8nZkWm/O6XVeoc1Xyn8zxaJh9ri9LSX8FDcEOLYv16WS7/np' +
'QqC9i2TeqQ1DZMBF0nez7ySTZyIp3kyFrl53xOf7d12w4VkJNqbrN' +
'blB/LGiSI7TKe5HtBulkZnAii8pW9f/0LHoCDv+/bhGmRXULT5iuJ' +
'JCkfyD9gh8pEWSSUb1do5oR1Tp+zSz0jLjJkOJY1wKS/a6wT4Aqw6' +
'wbQ5GS37bFV2SGpDcqQsXC2+48R06hsL5QfSEZ+ErTqY1AsCeREpl' +
'XOpX1dF04NyrB64FmnHyFEUUl5trj29aBCPLIuHfzEA0seTdgQDQ5' +
'V6BMZHmHyN5nkbBnar9LqpK3P12p72Lpu56Ek+Fwg/xarR+U++dmS' +
'2/Zp7Xdodcb21u2v9vx/2vbu9fbiA2QYAkfKBTXNGrfZn1aRrUe0u' +
'rX2Aex4k0o=');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isAtLoginScreen : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(125, 17, 'meJztWElyhDAMzEOYKvtG/v8Jn' +
'hVjYdFazQSSXNLFwQhbbrVkMUwpFtWxBROWZXlzbYZ1XYcH9lPPq+' +
'5XhFcH3xa80Alg2fHiabiwngsLbz28BaIEoH2JYZ05uQA/Fqnhs3B' +
'kZ2FZfC17RvJ41MRfXsd1iiyWjLyndZUprzgbP9fkygRnP9aVOR1v' +
'Iq4lxK6e0DwPocver7iWfD8mwED2Opd9A6SE30DsarKqYWRKdBvJ3' +
'8nF0HBHHyNzTNlZCUfPucBZiSNnxgV/EChWQPLwMRBt7RatW97stn' +
'mLoohA0fWFKOMpnWjC2J8PPVX1igRFldPFXyxnDBmIOdGpVni0dAG' +
'xO2uOM+iWHtksE9YBNNpprtGNHcngnKbkuZBlL5WN2Hlgi7qun7Vb' +
'xllY2G1Oz2VIOqMHTAEyaSACHFFTSflMapIJ0Cko8lwoP9ZInqO17' +
'tlhMsDqCOFc2Hu4MlL9WyPJ3m6pnnmM3BLOruyKoYqLmbjTLsquCG' +
'wSNt1bfAyjtVdkp55DjWUfVzD26kcj1xuNXUoRTx7bqlACZq7Gpjz' +
'zG7JbC6KYdCey27XKuYKWnX6BjGonI+KO7G5vj2R3yx6p4hxMgXJo' +
'b6kdubIX2aymleM+iuLCs48hcOummmdV28trG03Vyg7LJ7LbsSp4e' +
'7rRFX302RjpkRtvkZVW4JUqZa84s8CLOOoeULTFrk3iglv5oqR+Io' +
'3UZFjtsUVN6LlS03FSnKeyJ5pcyaZ7/Lm23ZlsaROi7sEW2i7qMLi' +
'de5s4nxrb1paeDdNyRg84jR3aTVErNWEBbP/4LfDXAeqvKw+ynAAn' +
'/MAfMjn8b59n8aBW6FC54nHTkI2/rucU9Q6l6/rg+BGtbNbQ23T5n' +
'6IO2cXn9t0/3GI8rpV7gix/m9+n8H5ya/SH4X1iuYf7Wn0BmoSZhg==');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isCharCustomScreen : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(223, 22, 'meJztVEtWwzAMvANbtlym0MA5+' +
'LSwhxa4ObR9SRxbGo2cpM8LvTebSCN5NFK7ef7cBAJt4iUQaBT3gU' +
'C7+AoEGsVrINAoHgrc3N5pKMmBsO7K3pLxQFi3Lt4OF4w29pEUQyr' +
'/Q5jWpuUlE/yxlE/jbKYKxLUmvDzREFHqTOtcM2qCGankOHUbxDbO' +
'cZjJglsCfNwElGvHD65CK8fyTFWrWmdeoJlldm1ysDzSK2a5jObtG' +
'QNn20cARHIayQhiZ/AizyeDoh5RnsuHZa3TOriyppi6t+o2uIDm3Q' +
'kjYXcwIZLTCNMNcHA8TQ0RMahFzKdJH5a1DushBWMxuJt39mobPZq' +
'P/0gIRxMiOYtMTWCbYCVlqnyl8J8tFJmMJ0tZB0YGSlyCcTfXIK5N' +
'aeabmrszBn7XRwBEshbR2mopV0l2imIEC8YNGU/qrCMfykbAr5tKc' +
'DfXIOSmsMnko2scp/fSvCXgIJnjFOPaE1ewTpNHjsBcJvlrZQap25' +
'RXc7f/vmBk9hENIlOr1dp64+UT6edk0qKJ2ZNheg3xWgesyKbTarE' +
'Ms5t3dt7Vas2ieHwY5nEy664YjTlOJmumqo9zjnVmkKHxblf8TOZv' +
'0Ov5Y4LUZDGuRcSsmAI9mRdLDvMJ1OK5gH5NMLaOtBfM612Nqxtfj' +
'jeIbSQ1n/CeI/V54jmkkSmSIMrQsmkEj3AhaG1xFQNcTgZJeQzT1Q' +
'1PUb39Cs0JfgKBNvEUCDSLj0CgWfwGAm3iD9eznLg=');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isCharacterSelect : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(182, 18, 'meJztU0lywzAM+0OvvfYtWdx/d' +
'Ek+kCZ5fNtoHFM0CUG03Jl0NIODRYAQF3nzdtp0dHR0hPHe0YGwFX' +
'h6fpHY5uzjQvX1L3tcE18J48T090NDvAQq3mHg4xfTxMRRUfrvs9g' +
'UZBIZGfj3TSvPGbBeC8WLis6BUsl2YoOq2qOkdjfcg7sxIqFYpQS5' +
'OBFEUnCeC6y82xnWbKFqJoDFSsat1aD4PebK8w/ky0kRCUBhNpYIg' +
'p5V7dWMONz1nC0W8zeDCtb8eU7IHskYVJSKF9kYVXvLcr0pZoonuy' +
'MHGBh+w5kzNXulmrmBkvihPcQLmY+CnFiV23ovhNzyPod8IWYQsHv' +
'opmQgy8SqerNO3JdMxLcXK8FuDRvn95izF4U8PYvI41wPrOaJIMvE' +
'qnpT7DkwXViLQFcHygg0Tu5ROxxG5eFyx6SxjgqAjVG1tyxPMZVeu' +
'v0n+obk9Dy3hoPi9yi/h/E43L4HEbkH1VEBsLFEEPSssD+oDZiTQU' +
'aGO611Cw+qah3ieJXfCebREygWUIzzXAOUReSPxHVjNF5tZO4St1a' +
'DqtrjxB6zMU6y4zXBZHEupqR58XZTo9gicBlkkJwPo6xyazWoqj3K' +
'rNfjtaOjoyOMb9M5H98=');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isEmailValidate : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(156, 20, 'meJzVV0FuwzAMyysC5LT+/w17z' +
'O77xIJmEwRSomQn7VohGDJbpijKkd1t+7V1XbdL7STgxPKhJevd5k' +
'DeQqvV2SiaWHKe6gSfcspgRVk1zjtq1cTXyjTRylgTDqMRJwrUjAV' +
'uL6iVcPBsX6E1nedgVbgk3D9q1d+x4Ja1o4/bbX+ycNo+v773h9+b' +
'1smFQ2RLmMCoVoaQaXW7m19yre2YBwd+Ms7buSbGaEe4ZVn8O4QIK' +
'flBzScMEVLSs528AOFarZp8jANbuLZfWd/WtLOF8zUNSYpBEQI8RX' +
'aipmbHV2YbgFM2/EdolZWjmUVnj5VHRvNu4xsXkwlr3dGfPTXhbFN' +
'1YJ+slfDpKwNL7IVPK97Aorfbv/v+F2TgHPTtpRnCtwLNzcpUYmYK' +
'ZPi+9EJGs6z6diKHnpmM/sPJCrf99ZlsxAP6rs5o4rDjTzg7+DgEr' +
'4WFcPQwbEab1x5ft8C35aBtJtroWWz+vN8AmQ/Z7BsJR8Lomcjld9' +
'rEB23Ldw0LWllnZucsLuCDZzOppgEyl2+LujeH9smG+YbbRgvOvwW' +
'gWXmScyFEIiVmqIPYS4xfRs9Kpmf17T2zkozYrr7JwCys4s5js4KA' +
'DiHeR2mHOmj8bDb8WadNX4w5r7KNdzbY3HYNa2p/OzUdCjFEW5yVm' +
'Tj9muprf/+eLIhpO1lTaGJlTX0Kfq1o/lkIXxcvY0mMZzPpQh+Yau' +
'4ZyL1TGkgfHgE1VFOOkokcpgkcvLBhZz6e5h0JFvKswAwdND5sxY6' +
'MvlJD1+AlsXKJGNmjHyNGBpC9f/YeJgL0vMNcCMCERARm6ND08ePG' +
'31QCtb0CzcqGPn5t5lAis39IKZsqOWSAjDxEVdgLanVhdhNW9hCe9' +
'czLspbF1T6jng+10X7bZ3v5Pt+iC62Y9YPlfriQ5ATsk7X6AZ5rg3s=');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isSelectDisplayName : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(137, 19, 'meJzNWEluwzAM9CsE+Jb/v6GP6' +
'b2faFGjxGQ4HFG2m5bwIaG4DFcrGWPsiQYwRxIITj5apaapVUfjmy' +
'66NoFXzHtzVak8Ho+p4vXS9OkuX5TJJbMvzlW/u+jriX7oSF4fn1V' +
'gfbH/k6sA8/b+8fU0ba56OSHW7Px7e2YJ1RU7kn+UIJ4QPr5u2/bK' +
'Deap6s9VGTylwJGqzpQuxg8Zd30KVNsPIcg4qoA135h3CVycYm9WR' +
'iqZQblAS/cBnwqsC3HoczQGmu00raHVBpMJbPaqrzj1JB010QaM67' +
'nKdTkoOCGA6w6t0SY8Tg+KSPO6yFoS2JKW50sYKIPxyiMPIGKn08z' +
'pYMbMV12HinndHbQB5WWIDzZApbU/N4w5kpNeqVQwZGnw3UpTMw02' +
'ZKapy5hzz6NrKhCq451Nvn3w2iDTWC3tSguLKAFnkMipqlmVBgPEO' +
'+qmFpoJllKRwZtTaXyHlYg9k7vIz3hGu6dl29QyRfRL1cOQZtFjZO' +
'lIEVXNe6HfHdkslkZay02ORO+LqjS5IadJpoYxWvJiM52aPB2+1qY' +
'0oZ77nGBTJqelmWKmlzUlX9aOitX0nvNwQsus02r2TTV9aXYYnE7y' +
'fSrkHE1RDfVry1sweMwmqTKJAOTWxc9mzGUI082A8pXNKpxpsNM5k' +
'pgJ4fZ8N45BoxmRkaLW3m4M1DIth2CoOjkQGYKHIa9hVWmawVaJIh' +
'mPGbHRtRDVcQGiZHikPYmnJIkktbCTSQAByyPiZ4QSBspQTtBg5Rp' +
'h58RWCKswDcjxTEbAWJhyThA6vcXgdY+vyRXBiOkwHsuQLv91422+' +
'uEASyR/mispNSKbNsARjSeAuxRuR/FKuPgEUkI/P');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isUnavailable : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(93, 17, 'meJy9V0uuAjEM60VYdDn3377DsO' +
'cSjF5FZBI7TZlPhFCVn103nYHeL7HHv0Wn+77BKJNT2l7U5CLCCv2' +
'2g6jYlNLjY+ciUpSzIHKsSmbOZ6pJPVrc+G0jWkGfMkF9fqZdl+V+' +
'cRRckTOuVyehaNh2mvz3fJ2Fm9h0g0UFjK0t6IuPbmp1p621pfypU' +
'c6rY6NssN0hjHaUFKOJc2l+jtjo7wjkD0/lyeeHbjyPUqeCwNHa1+' +
'ND02gUnaZJzER0F3UzT1tFtrbHUR7TqNNkSXbqkkdO+xjuaEBbCLn' +
'tIee0nq4PWuyDhLFKZVbSktpY4oZzJJvmuXrujlBn5Bxb2QdLkLDK' +
'pLIkabQE8xVVnMahXhTHpkUBqQQK1+GkXEkUCjMRRR19UZb2bYksV' +
'AGXhhcqkcK9JtQpOCAcFURB9OnYKOe2bSrqFrGVjYqSha5pVXIl1Q' +
'Cj8v37WfrDJYrEctp4CuMbL9Ew+nJ0jzhc01FU84klBh3bOkpIMuG' +
'A0Ugsp20QS78ojljlz1EXv68UzyN/N5S9AZWlodI=');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function isLoggedIn : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(236, 19, 'meJztlg2K3DAMhecCJlfZ+1+uL' +
'RsQL+9HVjoLHUrMsnhsWXr6LDs+jtjWdzs79ZP650+01yU5wsWPjb' +
'Jdok3F2KSsQxpvlCe3D6tt+3FWSSQZ2PT7cMMceywTjClxwmVTUIX' +
'WZrk6eVh9CKstRpXXp6lubYhtgnOMyV6B2Cmbsp19WH04K/1pYaZc' +
'rMIkJiWIxI4xRg1nySRVVok1flh9Miuy//r6hX9lXD9T6Amu1CzYi' +
'ea0vFFiA6l9mlVWE7X/PSstD2I1DHHcZGUNTjGv74ZlXOO9Q9ScQp' +
'SZRdTnaB2icgqhno9d7ekukH9lpfmqn49iRZ5RCW56rx8NEEWKa72' +
'9z0otUUz1F+xXSi31NV/do0b/NrWaIoXNWrTsBS+3TZYV7Vev/5+z' +
'ogT7NCeC03G2+f4gKwV1hLq1qTW4MFwS2WwN+dxitPDVbY2nGm5yO' +
'VzFpnOtu/BprFKOilGNLSt7nEnkJAX82A1ZqbGtW90v+2au5TR+yD' +
'ObiOHH3erBjo0y16MykmU/S4P0GrTJ2tQawckbhtvKO67PgwTqLkb' +
'KyO6vXWvHa+v/tPMdqzWjao9wVGnh6XBd7y6cQs2T8WrWT0O1skur' +
'cDzpuWWZTnfdURP/WsY24ro+TkhGjTdlSeHW9YwkdFSKpKFPUwu1U' +
'W61JfvtpuiFgINabyTyCPez3hhpXHFRH1UR0uP6RUj9StbqUUvrJ9' +
'Wwskp9zUtr+HTeAESH2pnIeMGryfpHbTreQx6iuIurGV/yFcAdV5G' +
'aiHLWQAi5+KT7SpHayrEjw8okPcmn3VzdJstK+403PfvkMFVpU8NN' +
'5Ss68tAIay6Nvjzm2uza7RWHnXTbNLWEKKqloBgx2WBLZ2pYObaGt' +
'zdtymiFq2aoJHlTbcPj2dSwYpwLTvdwrworZ4u60Xartqks9UJujG' +
'nf6XBRMeChs9/H8p/89Hq23mhH0JgsqUTRAxYweVNtVBKaFzZV+3r' +
'jLZHEb9Gh4JSmplPAa4l122tLSrZnofoYXRsKaMbtPaPjjfH539oj' +
'0lqCBUBLaooGm9A4kpTg5lJcZUL6U142i5RaCS4n2klplgYM3QMn5' +
'ghBl9jysDZp6vxJZw3jon3Ka+VK1iuadoFmcYTOtdrbEDpuA5HmpF' +
'99ksPDNc1oEuth9Q4rvHvvstLBbdCGs02zsV8OcsJoY1m1k6Zuk0I' +
'V00d/WA1Z4XugqeG1Y2WjryuouymQwTYXWmXFbCOq7Ekjz9QfxnpY' +
'/TUrfT+/w8oCUfETOH3KNh1atXWSpA6bRWFnrbaHlZ212rastm/sp' +
'Kf8/wYZy9Zh');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
function Banned : Boolean;
var x,y,bit : Integer;
begin
bit := BitmapFromString(73, 25, 'meJy9mOFu3CAMx3OXwLjLJdvUqm' +
'pVVeq9/yv0YfZ9LzEHJ//6bCAk185CE3PA+AfG+Oq9d875NVkd46I' +
'kp1CnizIMY9M0bdtdr9ep43+LNn0iPX2lzjCONIs6bpGtq98p1lpy' +
'Cbg3DINEO/545NaFh87/YjTaAeqMBq3seWHAx5+/q5pKUatIzxRae' +
'3qiNtMV0bY6bwdgLg8my7vRknQKzfdv7vzCdAqNQpfGH49Hayrp+a' +
'qrTGS5SMNNjbR9L7YXs/iuERGhQTnZH9+JDhpqQJNKiZP0xCoLdIq' +
'LNbyi3ajkpqlZbdfh1KB0/SvR8XQogXYzctkr6wkcYCmjqQFJiho0' +
'qeRbI0+NB7jTM3coSUoi7nBAziOXzurehhD+Gxp5RdEI36TzbXsqo' +
'CkiuygHf81d+ya0KSDb6V1bcKY0Mve7GY3yv0U7HA5ltIIDZTRkXX' +
'lPpcGbnCDEppFph2PyV7OA1rrLKpq06VOJTrHQdqoWV0woWfi/HAm' +
'NkORG4Wt00nM1IoXQqMVOaGLyZz0nHEbjhaxNuZNwRq4edomvK8+w' +
'LiUEvzzZFJnzkz1xhbnFUxPv2kDmG/Fky3hQxmvcqJmyVc+fMmjMd' +
'fLhoXW9QqPx8slO1m/J5WyGtDgFipq9kuUfh1YCzfdheDn3zyGmkR' +
'za1qOxCLst5MxCyEm65nzXgOb8JYyvoX8K50dqJiCdDch7nEye+w5' +
'riCLccWQ/oIWfb+Ayp7ahhtwquboxV8Il5wJN5nygQUNcPiQqf2nc' +
'2tnN5VN1o9TnhrFAibsmSxF+sumKiWEXi4bxsoyUSixXH1ooY+CnN' +
'GtPRz3culC8DUhUI2pYY35lW+O5ImQrGmZZpdRI8eYoGY3TiEJrjH' +
'yixbpFHpBCc9WlYwHtI/VDRml4IamU8VNA61xPbbqAy7um0KSdL0H' +
'zqWotVwavlpd411iDX9mfiSVyKTRrx+55k6pdfUUilWEGTc0wqcSp' +
'OfFTdH7XYupg0ad2m0Zg3y31JDuPvoTK3buvfbWx1lJo3fyxjtA4I' +
'KkhQ+b+WFc4kXvKlYLbq5/wZNO/lNIlGri4qYCUT3bhLHJopPkHlD' +
'W0NA==');
Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
FreeBitmap(bit);
end;
procedure clickAndType(box : TBox; text : String);
var tp : TPoint;
//typtmp : Integer;
//char : Byte;
begin
tp := MiddleBox(box);
MoveMouse(tp.x,tp.y);
sleep(300);
ClickMouse2(Mouse_left);
sleep(1000);
if text <> '' then
begin
wait(50);
SendKeys(text,150, 80);
end;
wait(500);
end;
var
CREATE_ACCOUNT,EMAIL_FIELD,RETYPE_EMAIL_FIELD,PASS_FIELD,RETYPE_PASS_FIELD,AGE_FIELD,NEXT_NEXT_NEXT_CONTINUE,NEXT_NEXT_CONTINUE,VALIDATE_EMAIL_FIELD,CHARACTER,CONTINUE,NEXT_CONTINUE,DNAME_FIELD : TBox;
ListOfNames : Array of String;
currentRSN : String;
int : Integer;
procedure iniVar;
begin
with CREATE_ACCOUNT do
begin
x1 := 330;
x2 := 437;
y1 := 391;
y2 := 399;
end;
with EMAIL_FIELD do
begin
x1 := 253;
x2 := 470;
y1 := 156;
y2 := 141;
end;
with RETYPE_EMAIL_FIELD do
begin
x1 := 253;
x2 := 470;
y1 := 172;
y2 := 186;
end;
with PASS_FIELD do
begin
x1 := 253;
x2 := 470;
y1 := 204;
y2 := 220;
end;
with RETYPE_PASS_FIELD do
begin
x1 := 253;
x2 := 470;
y1 := 234;
y2 := 249;
end;
with AGE_FIELD do
begin
x1 := 251;
x2 := 298;
y1 := 265;
y2 := 281;
end;
with VALIDATE_EMAIL_FIELD do
begin
x1 := 304;
x2 := 458;
y1 := 342;
y2 := 355;
end;
with CONTINUE do
begin
x1 := 266;
x2 := 328;
y1 := 379;
y2 := 388;
end; with DNAME_FIELD do
begin
x1 := 168;
x2 := 313;
y1 := 213
y2 := 224;
end;
with NEXT_CONTINUE do
begin
x1 := 668;
x2 := 719;
y1 := 468;
y2 := 485;
end;
with NEXT_NEXT_CONTINUE do
begin
x1 := 668;
x2 := 719;
y1 := 468;
y2 := 485;
end;
with NEXT_NEXT_NEXT_CONTINUE do
begin
x1 := 167;
x2 := 239;
y1 := 346;
y2 := 359;
end;
with CHARACTER do
begin
x1 := 463;
x2 := 522;
y1 := 210;
y2 := 146;
end;
end;
function generateEmail(rsn : String) : String;
begin
Result := rsn + 'randomstring'; // modify
end;
begin
iniVar;
ClearDebug;
SetupSRL;
ListOfNames := readRSNs('TEXTFILE'); //text file
for int := 0 to High(ListOfNames) do
begin
currentRSN := Replace(Replace(ListOfNames[int],#13,''),' ','_');
writeln(currentRSN);
while (true) do
begin
if Banned then begin
writeln(currentRSN);
writeln('banned');
Sleep(90000);
clickAndType(CONTINUE,'');
Sleep(4000);
end else
if isAtLoginScreen then clickAndType(CREATE_ACCOUNT,'')
else if isAtRegisterScreen then
begin
clickAndType(EMAIL_FIELD, generateEmail(currentRSN) +'@spamavert.com');
MoveMouse(MiddleBox(RETYPE_EMAIL_FIELD).x,MiddleBox(RETYPE_EMAIL_FIELD).y);
sleep(300);
ClickMouse2(Mouse_left);
Sleep(3000);
clickAndType(RETYPE_EMAIL_FIELD,generateEmail(currentRSN) +'@spamavert.com');
Sleep(1000);
clickAndType(PASS_FIELD,'asdfg1234');
Sleep(1000);
clickAndType(RETYPE_PASS_FIELD,'asdfg1234');
Sleep(1000);
clickAndType(AGE_FIELD,'24');
Sleep(1000);
clickAndType(CONTINUE,'');
Sleep(1000);
end else if isEmailValidate then
begin
validateEmail(generateEmail(currentRSN));
end else if isCharacterSelect then
begin
clickAndType(CHARACTER,'');
Sleep(1000);
clickAndType(NEXT_CONTINUE,'');
end else if isCharCustomScreen then
clickAndType(NEXT_CONTINUE,'')
else if isSelectDisplayName then
begin
clickAndType(DNAME_FIELD,currentRSN);
Sleep(1000);
clickAndType(NEXT_NEXT_NEXT_CONTINUE,'');
Sleep(1000);
end else if isLoggedIn then
begin
writeln('logout');
Logout();
Break;
end else if isUnavailable then
begin
Break;
end;
sleep(500);
end;
end;
writeln(BoolToStr(isAtLoginScreen) + ' '+ BoolToStr(isAtRegisterScreen)+ ' '+ BoolToStr(isCharacterSelect)+ ' '+ BoolToStr(isSelectDisplayName));
end.