SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Special Ed - SRL Member Application Form
Special Ed

What is the meaning to life?
To live, duh!

Where you Referred to SRL? If yes, by whom?
yes
Reflex Referred me but a havent seen him in a while so if he doesnt remember tell him to get on ventrilo.

Programming Knowledge
SCAR,html,C,C++,little Java, little JavaScript

Other Communitys


How Long have You Played Runescape
Since RS Classic Beta

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well, I started scripting a while back when Kaitnieks was still around and i made of few good scripts. I made an auto-eater for Runescape that was really really good but i cant find it anymore since the kaitneiks forums closed. I made some little random scripts here and there for mutliple games and such for like spamming and auto-talking for RS,Trufbattles ,UO , and some other games. Uhhh… I know Reflex he told me that my scripts for Turfbattles were really good but I haven't seen him on ventrilo in forever.

I really enjoy scripting in really any language and I'm actually starting development team on an MMORPG but i need a few more experienced programmers and some money lol… BTW, i have 2(2D)Artists, 2 Decent programmers, 1 good programmer, 1 Network manager, and a lot of people helping with ideas.

I'm always willing to work with people in projects and I think that I would be a great addition to the staff, if you would like to see me make a script or something give me an idea to go off and I'll prove that I'm useful.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

Turf Battles Auto Login [Works but is still in developement]

//--------------------------TurfBattles_AutoHelper v1.0----------------------//
//                               by Special Ed                               //
//---------------------------------------------------------------------------//
//--------------------------.....Instructions.....---------------------------//
//  1. Do not select a game window it uses your computer as the game window.
//  1-2. A shortcut to Turfbattles must be either on your Desktop or in the Taskbar.
//  2. Computer Speed is for how fast Turf Battles opens in case it doesnt find the Bitmap.
//  3. ServerCluster(1,2,3) is for either (1) The Beginning I or (2) The Beginning II.
//  4. Server(1,2,3) is for the Subservers of The Beginning I and The Beginning II.
//  5. You can have up to three characters/accounts stored on the script for easy access.
//  6. Username(1,2,3) and Password(1,2,3) for your three usernames and passwords.
//  6-2. Usernames and Passwords can be the same if you want to log in as different characters.
//  7. LoginHotkey(1,2,3) is the key that you press to make the script run.
//  7-2. When the LoginHotkey is pressed it opens Turfbattles,selects your server,
//       types in username and password, and selects your character.
//  8. This script was made by Special Ed(me)so please dont take credit for my work.

//Special Thanks to Reflex for helping me debug...

program TurfBattles_AutoHelper_v1;
var
x,y,z,k,l,x1,y1,x2,y2,ComputerSpeed:integer;
IconTaskbar,IconDesktop,SettingsWindow,StartWindow:integer;
Serverk,Serverl,ServerCluster1,Server1,ServerCluster2,Server2,ServerCluster3,Server3:integer;
TBusername,TBpassword,TBlogin,Characterx,Charactery,TBcorner,SelectaCharacter:integer;
LoginHotkey1,LoginHotkey2,LoginHotkey3,Character1,Character2,Character3:integer;
Username1,Password1,Username2,Password2,Username3,Password3:string;

//----------------Setup---------------//
Procedure Setup;
begin;
ComputerSpeed:= 30;  // 10 for fast and 100 for really slow.

//-------------Character 1------------//
ServerCluster1:= 1;  //1 or 2
Server1:=        1;  //1-4 or 1-3
Character1:=     1;  // 1,2,3 going from left to right.
Username1:=      '';
Password1:=      '';
LoginHotkey1:=   10;

//-------------Character 2------------//
ServerCluster2:= 1;  //1 or 2
Server2:=        1;  //1-4 or 1-3
Character2:=     1;  // 1,2,3 going from left to right.
Username2:=      '';
Password2:=      '';
LoginHotkey2:=   11;

//-------------Character 3------------//
ServerCluster3:= 1;  //1 or 2
Server3:=        1;  //1-4 or 1-3
Character3:=     1;  // 1,2,3 going from left to right
Username3:=      '';
Password3:=      '';
LoginHotkey3:=   12;
end;
//----------------------------End of Setup----------------------------//
//Please do not change anything below this line without my permission.//
//--------------------------------------------------------------------//

Procedure OpenTB;
begin;
  IconTaskbar := BitmapFromString(10, 10, '24344D27354A263345' +
       '263234947C27CE9C1BCD9D1F4C3C1611130D18232D202C3C23334' +
       '2212F412631416D6338BD9523BE92203B2D0F11191E1E2D3B2B37' +
       '48263345202F432230454D482AB28D2BB998272925121B2733233' +
       '14520292F223141223149253651575438C5A323C0AA2E302C1721' +
       '2F432639578970274B4D31313C46383D31B7A441E1C531E4BE2B9' +
       '57E3451492A504F3AD9AA25DCB126B79321C29F22E1C230FCDE38' +
       'FACB2CDFB727C0A337BDA840E7B422CE9F20BCA228C0A72EEBD03' +
       '6F9C627F8C126F2D136C4AA42BAAD5B6850174436142C2813362C' +
       '10846C25E8B524F7C42B8C7324352D122121181A180B0F1212111' +
       'A23131B2635331DB69226D6B82E4E421C0F120F131D25131D261B' +
       '28312232401F2F3E2D3734A48522C9A92633290F141F2A233141');
  IconDesktop := BitmapFromString(10, 10, 'z78DA4551497204310' +
       '8FB92590DC706CCFF9F1466DC492E2ACA464802046C56043CCC50' +
       'E8243B55E024F8A17E7817EC7EF2D0DAAE8A8B3705E82A0060BCD' +
       'C4D5B109990F5F6E47E0E5AA40364D759C33575D4977B802051C9' +
       '455F74DA7C7C1B62160461247A420D17097DD92250108458090B1' +
       '61AA92C684C9A0112242DD52269B1D03B0A687555E179C808978B' +
       '3DCC5B74E3A1A442D1250A1DF18CF38C613DE339903B8EB1BD132' +
       'C8D96851A58F483FC4924E38DBD673F153026F911A4F1C9B40737' +
       'AFD9556077D6A6091A8AD36100F6B2AECAEDB95A3508F32268ED8' +
       '3F9D6DF09BF59CEA6D3399DFCA7F5C1FBEBB9F01F15CF1FEBB3F9' +
       'EF35DF14EE80FACEF9DEB43512FAC5AB2E07B82A62EA7B2F29261' +
       '05BCA905E5BC05F879745E18337D1776357F1073ACF87F6');
  SettingsWindow := BitmapFromString(10, 10, 'z78DA55525B920421' +
       '08BB924A10FD141FF73FD2469CDD9A6DABA3A58440148601E0612' +
       '70A9C5830BFD0392A4F1F0E281A674142924ECCE2C82832195B64' +
       'FDC30693436C8C308E441DC826F348E3093310B38C4057AF4B4F2' +
       'F53870EDBD5CFC3B67DF6A550FEFC0AA3EF221115490BC3F348CB' +
       'DDAC776F084561BD86D216B9BB8F95C7E68E4425CA99B5DDD67BB' +
       '1D5CC73AF1FD6ADB33C6E60FEE35A2856D67FBB735B435AAFBBB9' +
       '555932A58657428F7EFDC453E7EA7A34717D617E9996DA346D325' +
       '64F640E299A70BB5A1CCAC8090DDD133973EC97F07362ABC2A2DF' +
       '1AEAF8E6B6E3EBD3EF893C059BE3F6DB7823D7F9AA5917367DC69' +
       '07F3E0757AB1E2A74DC1B72DC3BAE50EA5EAE45A778C8EC1E6FC6' +
       'D9EF88F713EEFD00E0B5842C');
  StartWindow := BitmapFromString(10, 10, 'z78DA4D52598EC5200' +
       'CBB12900D3E1396FB1F694CA8344F95AC36C4761CCA9D0733FF23' +
       '013B5736562E2CCCB470D228B871A1C1950E75BC6DEA6E5BE33C1' +
       'CB1AA6F6DD6B45D2E6DF0C195A35BB6B5BEAC43E5A402B83CF9C0' +
       '072D047A27AB5E5684A67E644F58E9D3866D8755D667CEB0B2BFA' +
       '5DA427DA15E68825528C82574C8FE9DCD2ADC1DC930B585D73EBE' +
       '99FB3CBE946DE924989042CB697CBEC7B90736009F9BE579E03CF' +
       '00C1E52399E8E5499D2F2CC74632D6ACB5B1F773E24BD335F7745' +
       'D65FEECB7BDFC7C75DC99DC9DD972BA255E437CBC3ECB4C7FAB86' +
       'AA87EA707F31BB61B99F966C2EEE86A06522EA06516FD101B4C5C' +
       'A89FBCDF8ABD7A66F7BCC7004A5624B3D0FD07D07359079F0105C' +
       'ADDB4877F2581852C');
  TBusername := BitmapFromString(10, 10, 'z78DA7552511683300C' +
       'BA526D43B49F55EBFD8F3448D4ED67F3BD2CB604089B775FB0620' +
       '228D8019B7014DBBD604365ED6838E39CEF36DC886A0E56637F70' +
       '6EC250DC896AEC57BB9221A62EAF6480370CD4B89DE07D56F26B6' +
       'ACB9EDFC5869C9061A7D6CE299EB1D297D8B0488F9C7A5B7D90FB' +
       'A4FB4E2772DBAE239EF3FB40DB2CB185690625319CD276E12D4F7' +
       '4675D0EE9E4D40637D2A51EFE2D39A9CE3E9CCC64B85522A7DCFA' +
       '464686E9F93DE99103F9FF79BEE2938A91F0A35B230765B5BCDE8' +
       'E27DB5F24BB4C58FBE66C7823A6BF9819FE955EBD3DA4EEE0DC46' +
       'BCCE13C95F9AC821BFAC4CEED773FE135E95F44CAD0FED57891C');
  TBpassword := BitmapFromString(10, 10, 'z78DA6D526DAEC3200C' +
       'BB52F970809FB4B4F73FD2731CB6BD4953250A89633B01BBACE2B' +
       '68C09D8818EA47D61F40433B07A9B61315B1DC308700859ACF37F' +
       '3DF1ADCF67A7158CA88A2C718DCC15171AB3E4DD71D7AA3C07FFF' +
       '5C637D506DB60F510438E35E22D13E5DE6E729AD7DAB484B325C6' +
       '1FAAB02AD8C855EB4B71B9CE0FCFE44297672E7212717682B2F7C' +
       'BFD9239D18F1C69027D33BB7ADF5D07DEFBB2AD101877D577473E' +
       '87F15677DD4C2D75C5AAC017F585CF24BF3C4FF14495FD9BA1B27' +
       'EE64D0DB9BD9D430E673B7C66266E76945E371533B7C739C459F6' +
       '3DC6AA4EB9CF383581C9E884DE4A5DF15AB61FAD7F661989B0');
  TBlogin := BitmapFromString(10, 10, 'z78DACD91410EC0200804B' +
       'FB41E7B4491FF3FA90BD868629A363D5522C165D644C1018F8E06' +
       '85717B34865095A8BC53799AB906A3486FAA3D9CEE6A54242819A' +
       '48C8EC69DE9D582AFD914BEEEBAD59B2B93CACEBC51CC365D9F95' +
       'F7E47FBCFB7B07D362BA39D52B33D67F264D62D60527883D817C');
  Selectacharacter := BitmapFromString(21, 9, 'z78DA6D546D968' +
       '33008BC521430C9CF68F4FE47DA19C0B4FB76DB578C7C0E03A94E' +
       '3DF550CAFA5C652BDB330B3E214DF5D169661B9E973655DBF1ACF' +
       '8EE72437B6A77D960E7B9C03AF4C68F31F3CD89A8E9D6B13402FB' +
       '053DE252C31AB776E462CE5BA7EB0B221B10765565A5AA82B7225' +
       '3452E696AF248775483F5E0656E0DCF865F41ACC80D6D1389BE64' +
       '4A974402FD25C3238966EA004E74600D7DEFE17314EBE0827D49A' +
       '032F3B7A8826E353DEDB4039ECC276FA7F0BC92DBE7C36D48CFD2' +
       '120365672E79C8AF5CE943BC0DB6532C35E80B3E053EDD19783DB' +
       '7E579A486D8C8545DB107FA2CEBBC21CF41969CF361CA679C572D' +
       'F0ED0CB7D454E733E460F447AF25785AD50F9F82FEF2C91D236EF' +
       '109E5BC0C686E0956ED6B52869E54B6C506BA86A6CA16C8BFB20D' +
       'CEF8F5248360829E356395BC2DEB8085B27D6F3EF1C9CCF3CE990' +
       '097BE51C97948227F565FBB6FDAA7D34034896121BCD16F7417BB' +
       'E7B57C076A32137A9F11A640FEB809E3D7BC0AFA6725A0483D6E1' +
       '7E2615D93452E67F394CF2CE8E39B195BF7CF7D6FBC970B03E762' +
       'CEC0E1B5FEF8C73EE3D6201B36847B1EB5F05FE0F7F17C35217F0' +
       '03B7AF3C0');
begin;
if(FindBitmap(IconDesktop,x2,y2))then
begin;
Clickmouse(x2,y2,true);
Wait(100);
Clickmouse(x2,y2,true);
end else
if(FindBitmap(IconTaskbar,x1,y1))then
begin;
Clickmouse(x1,y1,true);
Wait(100);
end else
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Cannot Find Turf Battles Icon on Desktop or in Taskbar')
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
repeat
Wait(100);
until((FindBitmap(StartWindow,x,y))or(FindBitmap(SettingsWindow,x,y)))
Wait(100);
if(FindBitmap(SettingsWindow,x,y))then
begin;
Clickmouse(x,y,True);
end;
end;
end;
end;

Procedure ChooseServer1;
begin;
  StartWindow := BitmapFromString(10, 10, 'z78DA4D52598EC5200' +
       'CBB12900D3E1396FB1F694CA8344F95AC36C4761CCA9D0733FF23' +
       '013B5736562E2CCCB470D228B871A1C1950E75BC6DEA6E5BE33C1' +
       'CB1AA6F6DD6B45D2E6DF0C195A35BB6B5BEAC43E5A402B83CF9C0' +
       '072D047A27AB5E5684A67E644F58E9D3866D8755D667CEB0B2BFA' +
       '5DA427DA15E68825528C82574C8FE9DCD2ADC1DC930B585D73EBE' +
       '99FB3CBE946DE924989042CB697CBEC7B90736009F9BE579E03CF' +
       '00C1E52399E8E5499D2F2CC74632D6ACB5B1F773E24BD335F7745' +
       'D65FEECB7BDFC7C75DC99DC9DD972BA255E437CBC3ECB4C7FAB86' +
       'AA87EA707F31BB61B99F966C2EEE86A06522EA06516FD101B4C5C' +
       'A89FBCDF8ABD7A66F7BCC7004A5624B3D0FD07D07359079F0105C' +
       'ADDB4877F2581852C');
  TBcorner := BitmapFromString(10, 10, '3834263A38283937283C3' +
       'A293B39293937283D3C2B3C3A2A3C3A2A3C3A2A36352539352737' +
       '3525393828363626393729383628353324363527363426312E203' +
       '33223353425343224302C1D3331243431242F2B1D302D1F323122' +
       '313021302F202322191B1A1218171019171218171118171119171' +
       '1191711333225313124191911A59C89886D4B574B379B8A719A8D' +
       '779B8D7782715A313023312E22191811AE9F838D69402E271FAD9' +
       '577A98C63996A389A846C322E232F2E221917118C806E5A391F14' +
       '100D27211B211E19241C15352A202F2F222F2D211817119D8C6D8' +
       '153291E17105B58424C49373C392C3C392B2A291B2F2C21181711' +
       '867F73482E1C221D174D493714130E14110D120F0D2C2B1D2C2A1' +
       'F181610786A5532221216110D3C392C14120D13100E110E0B');
if(FindBitmap(StartWindow,x,y))then
begin;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 1)and(Server1 = 1))then
begin;
Serverk:= (k+41)
Serverl:= (l+42)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 1)and(Server1 = 2))then
begin;
Serverk:= (k+41)
Serverl:= (l+60)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 1)and(Server1 = 3))then
begin;
Serverk:= (k+41)
Serverl:= (l+78)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 1)and(Server1 = 4))then
begin;
Serverk:= (k+41)
Serverl:= (l+96)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 2)and(Server1 = 1))then
begin;
Serverk:= (k+41)
Serverl:= (l+131)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 2)and(Server1 = 2))then
begin;
Serverk:= (k+41)
Serverl:= (l+153)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster1 = 2)and(Server1 = 3))then
begin;
Serverk:= (k+41)
Serverl:= (l+169)
end;
end;
end;
end;
end;
end;
end;
end;
begin;
Wait(100);
Clickmouse(Serverk,Serverl,true);
Wait(100);
Clickmouse(Serverk,Serverl,true);
end;
end;
end;

Procedure ChooseServer2;
begin;
  StartWindow := BitmapFromString(10, 10, 'z78DA4D52598EC5200' +
       'CBB12900D3E1396FB1F694CA8344F95AC36C4761CCA9D0733FF23' +
       '013B5736562E2CCCB470D228B871A1C1950E75BC6DEA6E5BE33C1' +
       'CB1AA6F6DD6B45D2E6DF0C195A35BB6B5BEAC43E5A402B83CF9C0' +
       '072D047A27AB5E5684A67E644F58E9D3866D8755D667CEB0B2BFA' +
       '5DA427DA15E68825528C82574C8FE9DCD2ADC1DC930B585D73EBE' +
       '99FB3CBE946DE924989042CB697CBEC7B90736009F9BE579E03CF' +
       '00C1E52399E8E5499D2F2CC74632D6ACB5B1F773E24BD335F7745' +
       'D65FEECB7BDFC7C75DC99DC9DD972BA255E437CBC3ECB4C7FAB86' +
       'AA87EA707F31BB61B99F966C2EEE86A06522EA06516FD101B4C5C' +
       'A89FBCDF8ABD7A66F7BCC7004A5624B3D0FD07D07359079F0105C' +
       'ADDB4877F2581852C');
  TBcorner := BitmapFromString(10, 10, '3834263A38283937283C3' +
       'A293B39293937283D3C2B3C3A2A3C3A2A3C3A2A36352539352737' +
       '3525393828363626393729383628353324363527363426312E203' +
       '33223353425343224302C1D3331243431242F2B1D302D1F323122' +
       '313021302F202322191B1A1218171019171218171118171119171' +
       '1191711333225313124191911A59C89886D4B574B379B8A719A8D' +
       '779B8D7782715A313023312E22191811AE9F838D69402E271FAD9' +
       '577A98C63996A389A846C322E232F2E221917118C806E5A391F14' +
       '100D27211B211E19241C15352A202F2F222F2D211817119D8C6D8' +
       '153291E17105B58424C49373C392C3C392B2A291B2F2C21181711' +
       '867F73482E1C221D174D493714130E14110D120F0D2C2B1D2C2A1' +
       'F181610786A5532221216110D3C392C14120D13100E110E0B');
if(FindBitmap(StartWindow,x,y))then
begin;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 1)and(Server2 = 1))then
begin;
Serverk:= (k+41)
Serverl:= (l+42)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 1)and(Server2 = 2))then
begin;
Serverk:= (k+41)
Serverl:= (l+60)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 1)and(Server2 = 3))then
begin;
Serverk:= (k+41)
Serverl:= (l+78)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 1)and(Server2 = 4))then
begin;
Serverk:= (k+41)
Serverl:= (l+96)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 2)and(Server2 = 1))then
begin;
Serverk:= (k+41)
Serverl:= (l+131)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 2)and(Server2 = 2))then
begin;
Serverk:= (k+41)
Serverl:= (l+153)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster2 = 2)and(Server2 = 3))then
begin;
Serverk:= (k+41)
Serverl:= (l+169)
end;
end;
end;
end;
end;
end;
end;
end;
begin;
Wait(100);
Clickmouse(Serverk,Serverl,true);
Wait(100);
Clickmouse(Serverk,Serverl,true);
end;
end;
end;

Procedure ChooseServer3;
begin;
  StartWindow := BitmapFromString(10, 10, 'z78DA4D52598EC5200' +
       'CBB12900D3E1396FB1F694CA8344F95AC36C4761CCA9D0733FF23' +
       '013B5736562E2CCCB470D228B871A1C1950E75BC6DEA6E5BE33C1' +
       'CB1AA6F6DD6B45D2E6DF0C195A35BB6B5BEAC43E5A402B83CF9C0' +
       '072D047A27AB5E5684A67E644F58E9D3866D8755D667CEB0B2BFA' +
       '5DA427DA15E68825528C82574C8FE9DCD2ADC1DC930B585D73EBE' +
       '99FB3CBE946DE924989042CB697CBEC7B90736009F9BE579E03CF' +
       '00C1E52399E8E5499D2F2CC74632D6ACB5B1F773E24BD335F7745' +
       'D65FEECB7BDFC7C75DC99DC9DD972BA255E437CBC3ECB4C7FAB86' +
       'AA87EA707F31BB61B99F966C2EEE86A06522EA06516FD101B4C5C' +
       'A89FBCDF8ABD7A66F7BCC7004A5624B3D0FD07D07359079F0105C' +
       'ADDB4877F2581852C');
  TBcorner := BitmapFromString(10, 10, '3834263A38283937283C3' +
       'A293B39293937283D3C2B3C3A2A3C3A2A3C3A2A36352539352737' +
       '3525393828363626393729383628353324363527363426312E203' +
       '33223353425343224302C1D3331243431242F2B1D302D1F323122' +
       '313021302F202322191B1A1218171019171218171118171119171' +
       '1191711333225313124191911A59C89886D4B574B379B8A719A8D' +
       '779B8D7782715A313023312E22191811AE9F838D69402E271FAD9' +
       '577A98C63996A389A846C322E232F2E221917118C806E5A391F14' +
       '100D27211B211E19241C15352A202F2F222F2D211817119D8C6D8' +
       '153291E17105B58424C49373C392C3C392B2A291B2F2C21181711' +
       '867F73482E1C221D174D493714130E14110D120F0D2C2B1D2C2A1' +
       'F181610786A5532221216110D3C392C14120D13100E110E0B');
if(FindBitmap(StartWindow,x,y))then
begin;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 1)and(Server3 = 1))then
begin;
Serverk:= (k+41)
Serverl:= (l+42)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 1)and(Server3 = 2))then
begin;
Serverk:= (k+41)
Serverl:= (l+60)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 1)and(Server3 = 3))then
begin;
Serverk:= (k+41)
Serverl:= (l+78)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 1)and(Server3 = 4))then
begin;
Serverk:= (k+41)
Serverl:= (l+96)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 2)and(Server3 = 1))then
begin;
Serverk:= (k+41)
Serverl:= (l+131)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 2)and(Server3 = 2))then
begin;
Serverk:= (k+41)
Serverl:= (l+153)
end;
begin;
FindBitmap(TBcorner,k,l)
if((ServerCluster3 = 2)and(Server3 = 3))then
begin;
Serverk:= (k+41)
Serverl:= (l+169)
end;
end;
end;
end;
end;
end;
end;
end;
begin;
Wait(100);
Clickmouse(Serverk,Serverl,true);
Wait(100);
Clickmouse(Serverk,Serverl,true);
end;
end;
end;

Procedure Login1;
begin;
z:= 0
repeat
Wait(100);
z:= (z+1)
until(FindBitmap(TBusername,x,y)or(z = ComputerSpeed));
Wait(100);
begin;
begin;
SendKeys(Username1);
SendKeys(Chr(13));
Wait(10);
SendKeys(Password1);
SendKeys(Chr(13));
repeat
Wait(100);
until(FindBitmap(SelectaCharacter,x,y))
Wait(100);
begin;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character1 = 1)then
begin;
Characterx:= (x-280)
Charactery:= (y-300)
end;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character1 = 2)then
begin;
Characterx:= (x+6)
Charactery:= (y-270)
end;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character1 = 3)then
begin;
Characterx:= (x+280)
Charactery:= (y-300)
end;
Clickmouse(Characterx,Charactery,true);
Wait(100);
Clickmouse(Characterx,Charactery,true);
end;
end;
end;
end;
end;
end;
end;

Procedure Login2;
begin;
z:= 0
repeat
Wait(100);
z:= (z+1)
until(FindBitmap(TBusername,x,y)or(z = 70));
Wait(100);
begin;
begin;
SendKeys(Username2);
SendKeys(Chr(13));
Wait(10);
SendKeys(Password2);
SendKeys(Chr(13));
repeat
Wait(100);
until(FindBitmap(SelectaCharacter,x,y))
Wait(100);
begin;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character2 = 1)then
begin;
Characterx:= (x-280)
Charactery:= (y-300)
end;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character2 = 2)then
begin;
Characterx:= (x+6)
Charactery:= (y-270)
end;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character2 = 3)then
begin;
Characterx:= (x+280)
Charactery:= (y-300)
end;
Clickmouse(Characterx,Charactery,true);
Wait(100);
Clickmouse(Characterx,Charactery,true);
end;
end;
end;
end;
end;
end;
end;

Procedure Login3;
begin;
z:= 0
repeat
Wait(100);
z:= (z+1)
until(FindBitmap(TBusername,x,y)or(z = 70));
Wait(100);
begin;
begin;
SendKeys(Username3);
SendKeys(Chr(13));
Wait(10);
SendKeys(Password3);
SendKeys(Chr(13));
repeat
Wait(100);
until(FindBitmap(SelectaCharacter,x,y))
Wait(100);
begin;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character3 = 1)then
begin;
Characterx:= (x-280)
Charactery:= (y-300)
end;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character3 = 2)then
begin;
Characterx:= (x+6)
Charactery:= (y-270)
end;
begin;
FindBitmap(SelectaCharacter,x,y)
if(Character3 = 3)then
begin;
Characterx:= (x+280)
Charactery:= (y-300)
end;
Clickmouse(Characterx,Charactery,true);
Wait(100);
Clickmouse(Characterx,Charactery,true);
end;
end;
end;
end;
end;
end;
end;

Procedure UnknownServer;
begin;
begin;
if((ServerCluster1) > 2)then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose either 1(The Beginning I) or' +
' 2(The Beginning II) for your server cluster.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster2) > 2)then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose either 1(The Beginning I) or' +
' 2(The Beginning II) for your server cluster.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster3) > 2)then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose either 1(The Beginning I) or' +
' 2(The Beginning II) for your server cluster.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster1 = 1)and(Server1 > 4))then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose a number between 1 & 4 for your server.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster2 = 1)and(Server2 > 4))then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose a number between 1 & 4 for your server.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster3 = 1)and(Server3 > 4))then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose a number between 1 & 4 for your server.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster1 = 2)and(Server1 > 3))then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose a number between 1 & 3 for your server.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster2 = 2)and(Server2 > 3))then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose a number between 1 & 3 for your server.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
begin;
if((ServerCluster3 = 2)and(Server3 > 3))then
begin;
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
Writeln('Please choose a number between 1 & 3 for your server.');
Writeln('');
Writeln('//////////WARNING//////////');
Writeln('');
TerminateScript;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;

Procedure CopyRight;
begin;
Writeln('');
Writeln('');
Writeln('');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
Writeln('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
Writeln('This script was made by Special Ed');
Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
Writeln('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
Writeln('');
Writeln('');
Writeln('');
end;

Procedure TBHelp1;
begin;
if(IsFKeyDown(LoginHotkey1))then
begin;
Setup;
OpenTB;
ChooseServer1;
Login1;
end;
end;

Procedure TBHelp2;
begin;
if(IsFKeyDown(LoginHotkey2))then
begin;
Setup;
OpenTB;
ChooseServer2;
Login2;
end;
end;

Procedure TBHelp3;
begin;
if(IsFKeyDown(LoginHotkey3))then
begin;
Setup;
OpenTB;
ChooseServer3;
Login3;
end;
end;

begin
CopyRight;
Setup;
UnknownServer;
repeat
TBHelp1;
TBHelp2;
TBHelp3;
until(false);
end.

Quadratic Formula Solver
*Makes 50 question packets of this a LOT easier* XD

program QuadraticFormulaSolver;
var
x,x2,x3,x4,z,a,b,c:extended;
a1,b1,c1,question:string;

Procedure Solve;
begin;
a1:= Readln('What is a?')
b1:= Readln('What is b?')
c1:= Readln('What is c?')
     begin;
     a:= strtofloat(a1)
     b:= strtofloat(b1)
     c:= strtofloat(c1)
begin;
z:=  ((b*b) - (4*a*c));
begin;
if(z < 0)then
begin;
Writeln(' ')
Writeln(' ')
Writeln(' ')
Writeln('You cannot squareroot a negative.');
Writeln(' ')
Writeln(' ')
Writeln(' ')
TerminateScript;
end;
end;
x:=  (-b + (Sqrt(z)) )
x2:= (-b - (Sqrt(z)) )
x3:= (x / (2*a))
x4:= (x2 / (2*a))
Writeln(' ')
Writeln(' ')
Writeln(' ')
Writeln('positive x= ' + FloatToStr(x3));
Writeln('negative x= ' + FloatToStr(x4));
Writeln(' ')
Writeln(' ')
Writeln(' ')
end;
end;
end;

begin
repeat
Solve;
question:= Readln('Do you have another question?')
if((question = 'no')or(question = 'n')) then
Writeln('Goodbye!');
until((question = 'no')or(question = 'n'));
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Well these are cool functions and all,
but they don't show much scripting and srl knowledge on a wider bases.
Try making a script for runescaape autoing, or because you seem like to functions a lot, make something very unique and useful.

Try a powerminer or chooper (most popular for new applicants)

As for now,
NO

Hey sorry I've been really busy lately and I haven't gotten a chance to do much.

When I make the script do you want me to use SRL, or do you want me to get my own bitmaps and make my own functions, procedures, ect, and am I allowed to use other peoples includes?

Yes you must use SRL. SRL Member, SRL script, makes sense. (but make sure its not just all SRL procs, make your own for things too (but not stuff that is already in SRL, I mean original stuff, show your skills))

Alright, thanks for letting me know.

Yea sorry if I've been wasting your time with this membership thing after I applied I got really sick so I didn't have a chance to really work on anything new. Also I know you suggested making a autochopper or autominer but would you care if I made a script that did a quest? Because I've really never seen any scripts that do quests, so yea…

P.S. Get the flue shot… trust me it sucks.

From: Special Ed
Yea sorry if I've been wasting your time with this membership thing after I applied I got really sick so I didn't have a chance to really work on anything new. Also I know you suggested making a autochopper or autominer but would you care if I made a script that did a quest? Because I've really never seen any scripts that do quests, so yea…

P.S. Get the flue shot… trust me it sucks.

You make a quest script and your in dude. Trust me, there like, impossible.

-.- Try making a RUNESCAPE script with SRL please
Not many people here play Turf Battles anyways.

I wouldnt bite into the quest business if I where you. It is very difficult, very frustrating and little rewarding. SCAR isnt particulalry good at walking long distances often required for quests. Also you must analyze the whole quest structure and code long talks with the NPC's.

I say do something easy. One task, simple, repetitive.

Good luck :)

Well if you keep this up there , I don't think that your going to get a membership. Try to make a auto-ing script and replace it ( if thats allowed :p ). I will wait till then.

Should i just remove those other scripts then first? But, I have gotten pretty far already with this script, I'm doing Romeo and Juliet, all it is is walking here and there and talking but it still takes SRL knowledge to make something like that am i right?

Yea but the reason I'm making something "hard" is because I want to show you guys that I'm a capable scripter since I've been away for a while and don't really have any rep.

Work on your script, make good use of SRL, and apply again in March, as the poll is closed on this one.