Results 1 to 6 of 6

Thread: Need Help With Very Simple Script for Very Simple Game

  1. 03-26-2007, 12:39 AM #1
    looneytoon
    looneytoon is offline SRL Junior Member
    Join Date
    Dec 2006
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help With Very Simple Script for Very Simple Game

    Wow, havent been here for a while, just got done with state testing so I should be more active here!

    Anyway game Im making a script for is here:

    http://www.neopets.com/games/play.phtml?game_id=52

    for the game you have to rapidly press two keys on the keyboard over and over. Each round of the game tug o war the keys you have to press switch up. So far I have gotten my script to get the bitmaps of what keys i need to press and press them for me.

    When your playing though a cloud will appear over your head and there are 3 letters in the cloud(the spell), Im trying to get my script to stop typing the two keys, read the 3 keys for the spell, and press those 3 keys and return to rapidly typing the 2 keys. To better understand the game you can use the tugowar script that came with scar, if you dont have it here it is

    SCAR Code:
    program New;
    begin
      repeat
      KeyDown(GetKeyCode('v'));
      KeyDown(GetKeyCode('x'));
      KeyDown(GetKeyCode('n'));
      Sleep(65);
      KeyUp(GetKeyCode('v'));
      KeyUp(GetKeyCode('x'));
      KeyUp(GetKeyCode('n'));
      KeyDown(GetKeyCode('b'));
      KeyDown(GetKeyCode('c'));
      KeyDown(GetKeyCode('m'));
      Sleep(65);
      KeyUp(GetKeyCode('b'));
      KeyUp(GetKeyCode('m'));
      KeyUp(GetKeyCode('c'));
      until(False);
    end.

    here is my script...

    SCAR Code:
    {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
    +           __                                                                 +
    +          /\ \                                                                +
    +          \ \ \        ___     ___     ___       __   __  __                  +
    +           \ \ \  __  / __`\  / __`\ /' _ `\   /'__`\/\ \/\ \                 +
    +            \ \ \L\ \/\ \L\ \/\ \L\ \/\ \/\ \ /\  __/\ \ \_\ \                +
    +             \ \____/\ \____/\ \____/\ \_\ \_\\ \____\\/`____ \               +
    +              \/___/  \/___/  \/___/  \/_/\/_/ \/____/ `/___/> \              +
    +                                                          /\___/              +
    +                                                          \/__/               +
    +           ____                                   __                          +
    +          /\  _`\                    __          /\ \__                       +
    +          \ \,\L\_\     ___   _ __  /\_\   _____ \ \ ,_\    ____              +
    +           \/_\__ \    /'___\/\`'__\\/\ \ /\ '__`\\ \ \/   /',__\             +
    +             /\ \L\ \ /\ \__/\ \ \/  \ \ \\ \ \L\ \\ \ \_ /\__, `\            +
    +             \ `\____\\ \____\\ \_\   \ \_\\ \ ,__/ \ \__\\/\____/            +
    +              \/_____/ \/____/ \/_/    \/_/ \ \ \/   \/__/ \/___/             +
    +                                             \ \_\                            +
    +                                              \/_/                            +
    +                                                                              +
    +          _    _     _    _    _    _    _    _    _    _    _    _           +
    +         / \  / \   / \  / \  / \  / \  / \  / \  / \  / \  / \  / \          +
    +        ( B )( y ) ( L )( o )( o )( n )( e )( y )( T )( o )( o )( n )         +
    +         \_/  \_/   \_/  \_/  \_/  \_/  \_/  \_/  \_/  \_/  \_/  \_/          +
    +                                                                              +
    ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    +                                                                              +
    +                                 ==========                                   +
    +                                 Directions                                   +
    +                                 ==========                                   +
    +                                                                              +
    +    Drag crosshair over the Tug-O-War game window. For best results start     +
    +                                                                              +
    +                script after you choose your character.                       +
    +                                                                              +
    <++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

    program LooneyTugger;



    var
    x,y,sBN:integer;xg,yg,sXC:integer;xb,yb,sCV:integer;
    xd,yd,sNM:integer;xe,ye,sVB:integer;xa,ya,sBNRed:integer;xf,yf,sVBRed:integer;
    xh,yh,sXCRed:integer;xi,yi,sNMRed:integer;xj,yj,sCVRed:integer;
    xp,yp,sCVBlue:integer;xk,yk,sNMBlue:integer;xl,yl,sXCBlue:integer;
    xn,yn,sBNBlue:integer;xo,yo,sVBBlue:integer;a,b:integer;xr,yr,Bruce:integer;
    xq,yq,GameOver:integer;xs,ys,yEWE:integer;xt,yt,yQEQ:integer;xu,yu,yQEW:integer;
    xv,yv,yQQE:integer;xw,yw,yQQW:integer;xx,yx,yQWW:integer;xy,yy,yWEQ:integer;
    xz,yz,yWWE:integer;aa,ba:integer;ab,bb:integer;




    procedure DeclareBMPS;
    begin


      Bruce := BitmapFromString(15, 13, 'z78DADD' +
           '93CB6EC5200C447FC90F8C61C9C3FEFF4FAA09AD74AF1A54A9E9A' +
           'A2C464A34390C630250AB3BFC732D3243C56B681AFA27CC4D7B5D' +
           'CFC9B93647A58A46C68E1380AB3C642A75E729136733B36C11B4C' +
           '2EAC4EDF77DC6B734322134F122587A37290094F959DA084BAE1C' +
           'D32ABDB969FE89AC63F8574BC8783FA95C9C53D6EBE04CE34CDEB' +
           '4EB8D42344563392254A171475E4EC146F15C5CB8DF91D7EEBB73' +
           'EE9A63C63E83DCC035B5ED3F926B47F86CF89D7C2D5BF7637BB49' +
           'B4169D35B86ED3C9313654F54E43D43128989EEF3EE8427E699BC' +
           'FE089CDCE37E7427922E3EB26D8EAA4DC0ADAF5D7DD70F3D9A093' +
           'D');
      GameOver := BitmapFromString(20, 9, 'z78DAAD9' +
           '3C112C32008447FC9624CE4A898FDFF4F4AA77BB1C3D8B1261CF6' +
           'C0220F740C2146D5F0D1887DAFE295AE2069B151CD573D22142F6' +
           'C569277990F1D1783A05B6176264C04FB1F5035F32EF3BFB92720' +
           'C86BDC1DD92CFDCB259177BBC6E529459596E7B9192535E9DD352' +
           'E955BCC70371C52F353DC828A36B56F9FBFCFEDDFDA731BDE7D85' +
           'B33DCBE5DFA1CB197CFF91DEE17ABD0012A20626');
      sBN := BitmapFromString(40, 6, 'z78DA95535B8EC4200CBB12CD13' +
           '3E2190FB1F69D949B562B665D4E98755A5D48E1383F8FF312C0D2' +
           '870ADB35207776C0E47D382C0EBF9A87FC6E219205F04B1B6DC40' +
           '9FF30C6D0210FF16D40265FD1A6CE2ECD0F1C1135EB26A821A156' +
           'A4498CC2B01AE8AD161BC3FE9B3B7DAE146711228B438135A3199' +
           'CF6CA11E9C6B5D9005C64E6B37EDD866A8473FCF7DDD6CF6B585E' +
           '824D8AEBAD1619C89997FADC5463084B962F5D69173C959687CF6' +
           'BBCBF3ECB36072B4F44D27E174CDC999C6F9198FEB969FA7FACFE' +
           '3BC57D31D71F7D1AB3411EE74C4FB8C74129D5A7D0E72E7976A42' +
           '30A98437F93F7956B42E72C43C4F2CE6E49ECD4884B820AF0C91D' +
           '5DD5DBEE6738B628AF9DACF9BDF173628C65BBF55CB4166AD25B6' +
           '77ABBF53BAF1FB11D5F520BDF0D03043A2B97146D8DDE51B24033' +
           '8B3BA530CBF63EE5D68AD7361C0FE03D8E841B8');
      sBNRed := BitmapFromString(41, 6, 'z78DA95545172853008BC12' +
           '4240F3A9E9E3FE47EA1A32D3D8349DC8073A18D95D5815F989538' +
           '5A944963E8A307B418D6877E12D47F9BE6C12F5FF73FF5684A1E7' +
           'E6370C4932F42F2B7D7A6EADC3E4691F813E633253AD0456EDAD0' +
           'C2CF2FEFC0ADB2303CB463E31B7F53E31A5514BE356BBDD303C42' +
           'C9050E64A3EA50B463F25B531D5B387192728FDB78D6FB15B6813' +
           '832E9F71558319F958D47CFBEAEA8B04DB17631964C929FF38F59' +
           'C5668343EFC3A55D4CBC1D7CA2DB6C0B712626FF16E54BA510196' +
           'CC3E6AC197BCFA93C77DAB05C957CC5E1E6A2D0EE62EFF5F69E69' +
           'FEAC7F8971E32F7C1E4A0F712288805E7703373371A8AEF7207B6' +
           '381F9132B15C9FC50777EE482732CC95FFF84D6ADCF87DEB875B6' +
           '913F9732B22630D18FECFCF052B877F68D8F8E9DEABD12FF6232A' +
           'AAEF912857BC7F8061E503873');
      sCV := BitmapFromString(40, 6, 'z78DA95544176853008BC528410' +
           '92653072FF237DEBFCBE874DFB1B59B0501C6618D0D99CB6C252E' +
           '8E02B44F3203FD40AD1B03E88B3E5CC096FFDAA470D9EECDC8C32' +
           '9E7FCEBBF74C1CA37925AAE8F205CDDB0A8E696312208039D8F21' +
           '4E089AF5003B6370EAC8D5AC4EF568D34EA8DF301DB159E408EBD' +
           '4E0A4A062698EAD2DC026720BC59B9388D9BE0304374996B66BDC' +
           '8914F554DD4E30496F45E6ECE2E609EEB7B12DD8C6CA32F31B057' +
           'D88AB8AB9FF5C60C4FD719C6AFE6881E810F26B3E272DCAEBFF07' +
           'BAAC254AB12FFF27A45EFD30C4C5C01D4CD7DC11635F0E2712FD9' +
           '331D5225F16D8B948BE68CCCE7DD7FFF79FED17BA139EFE909937' +
           '8B3F0EEBD8DD765CD2E3FDD9993D5A9C06D64197E8C5EAC4BDB84' +
           '7E5CF1E0729E6D2AFA02F80B3F55');
      sNM := BitmapFromString(42, 5, 'z78DAA5545B72C3200CBC12E8AD' +
           '4FC4E3FE47AA5AFCE10CC93469F158630362B55A8952BE8730136' +
           '0470FA06DF1188EEAE07B75612CA89FDA504760CC1FAC2D2C404F' +
           '943DBFB14CB540FB1B96102B5673559C27CA9AA349F41A2BD9142' +
           '87572A15AF9F2451678E235A20DC0C59D602EEC05F89D48CE7CEE' +
           '734E140A222C7DB5D4626A08C007ACB973F28A413C4478508D148' +
           'BE57EFE9EDFDCE79C3D96B999228C7C245F2CD24743284FD45723' +
           'F2EDFBC4F604AD898E6C97F5BE68396B26EA2186C50BC6E6F84AF' +
           'D0F584B57B47B249B638F28991067C071C56F2634EFDCBDD8526F' +
           'D6D422771A695D35CA509146F581FBCDF77D7BE67F8FEE2D686A9' +
           '72C8C53FD5FF85287EC889DE103F1CEFD8EBE67AEA8D2D9237B62' +
           '62B0B0D0183AB80DCB0448D45A56B18CCBFEC73D252E92AD274A8' +
           'F37C94A3DE48AEDE7FBBE98259F17C4F4C88AB9EA59BB637FC5F7' +
           'CCF3567CA6AFD0BDD31B7B65F802E9B81D2D');
      sVB := BitmapFromString(44, 6, 'z78DA9D545B8EC3200CBC12F103' +
           '874F0CF8FE475AB6930F2A9AA8BB204D5113ECF1781C1A6407633' +
           '52E4E12EC4147F5D3C9785B2DAA10BB15262D6C850ADE07AA49A7' +
           'C8AC99C6FAFF33F2FCE163CD629E8D7C8FFF8C60B5D7023E6BFC9' +
           '521CE9A55450F3B24756F450EC7D3EEB5D32E03973889CED32C51' +
           '5D7301A112F07BFEA87ACF050E57475E5A3DC71933101158E1FCA' +
           '84334A989495C94698CD13C8A4CED2DBD56319BAAACFD7D8B101A' +
           'D481DF57BA23B442FC3BEF411FD48537FF972BCFDBEF7ECB59BB1' +
           'C55CBA157B3A103B04D33144F636E57174B0DDD7F23F7EACBAA76' +
           '68935F8FB544FA0D2BDC5D67013A600AEE26F1AF1E9BACE684847' +
           '7D18EAA771D62F49A1DE75507608FDE9DA9CDCDD449D227C7AAB3' +
           'B46833C515ED03E2A977D6F3C2D242A2E5AA92D668D399C209538' +
           '0F3EE8A3F28909BF1B932F99F0E2B6AD1538C62EEBEC61953ED2C' +
           'B70A3C22EE7EF8F2D8C9A275945FCFDD7C2B6E6B9746542FB5B78' +
           'CDFE8F003F71D6560');
      sVBRed := BitmapFromString(44, 8, 'z78DA9D946B7285200C85B7' +
           '140944F9A95CB3FF2535E5602716E960BD3367BC44F2F84860FEF' +
           'D24E2107229CC44264CCCC556349B92B615F7B42F2754ECEBD076' +
           '45319F05DEC43C2FBA655399F1B3DADEA5C0CFAAF6DEB24DE621C' +
           '8AD96BA822888E8AD8759495097CFED2AECBB6ACFE146A6EAAD96' +
           '690E1DF29609EACAF67F99A28ADAE1C1EF1A721858417E4F96438' +
           'BDE3FBBC5A20C569E79F359C9F828531C2A611F059DD0FBFF5B91' +
           '55CBB356F13F0EBEC371223D07B0C249F958505082BE988B5AF5A' +
           '82BDA89F86E1C69CDBC6555DF871C76EB76D94F3EA8C495E33517' +
           'EBC1EB523E1B2B11D49FEFEDA4EABC40E72BED15ACE07FD47BE08' +
           '3BAFA199CD75438DD3988B01A0789BA885F39342552551122682C' +
           '8B79C0E93FDC128EF62771B188CA32999BBB63FD2CFBE9EE27F16' +
           'D8FE134AD2CCB0D35F61C50696F3D2529356B28F6E3B0D2E7693A' +
           '4A894A59B7A417B7078535A47CE979A440746C31D1ED7EC6BD8A2' +
           '9E86F6F74C50B02470CF74CDE72C8D9BA20C37A9E67B12EC9698B' +
           '6BF87C5319117BABD8DBB3CD21A625EF36AC4F33024AC3DA03FFD' +
           '0EE23BEE5807981F50BB5C9C01B');
      sXC := BitmapFromString(40, 6, 'z78DA95545BB2AC3008DC52E411' +
           '924F2161FF4B3A5CF1C3B9516B46ABBA7C240DDD8D3AAAC336452' +
           'B003A2A6E78394889B0F8B16645C3AE4043F7716CBD5DB362723E' +
           '55894604B43A3B8C771EF39D00139F983B4A077536463CF1C270B' +
           'CEDB81C2A1D81BF57B46232A49FBB360559ABE4F3ECA18914D87F' +
           'ADB272F6D62A4D9F63AF9AC84A52CC5F53AEC81566F8438168E51' +
           '7ED390357B69C87E45C53CEBCB293AFAA646A3A8847743E82F855' +
           '2F589C08D141A975E7B8EF2486B07A65AA85EDBAF7441BB56E511' +
           '1B99DD8CDC9BD9951ED2C133FD2CC594D5D4F297FA5B49A60BB76' +
           '225885E85DEF9CD3D48989D1A041346EB4F763D0FFF3AA561EB4D' +
           'DE87D45856E5C6FDC0B73A9448CFDD3DBF73F869341CC79BABAD4' +
           'CA44AE6CCDC4E8634D2FCDE5FC66699011152FA3542AA1976EFCE' +
           '7BE31FCA01A824C56E7D3CFD38D7FD77C7D993ECCAED1BD8BF5F8' +
           '2D3D687C7738F434ECE9436AFF0361BB4577');
      sXCRed := BitmapFromString(42, 8, 'z78DA95555196833008BC12' +
           '8110CD674573FF232D95EC3E2CC64DED2B1F04878181B834C2542' +
           '93C6F5722510B940B21CA72468ABA00AA1042B348AE7A5ACC3F63' +
           '1514B1BF5BF48F3D0B83FAEB4BB340FD07E78CF78F3F353E9DDB8' +
           '969F19BFAA1582DFD2DC3717CECB198176BBC143D4DCDE39BBFF3' +
           '0FA723EBDFF2593AE793A7319CEA614088F85EAFAEDAA9A9EFD83' +
           '250DFFC377C5CE723FEB0F653D3986555FC54CCCECF8FF5CA4F9D' +
           '4DD173ED667DC79ED57FD6715E299F7794C5A6A8EFC24427FD8E4' +
           '4E435514E755FA90144EBD146EADB76CF57176DBF1FCEDEFAA98B' +
           '378C7158B48A24DF66B9C1AC59526DAD148068F5EC739283FA365' +
           '73B93684CA3F20D9FB8833627FE46BADC30A6E3C96406DF146CCC' +
           'CA8D1AF195F973ED28FA232C5075831A25A49575546ED417E1554' +
           'B8F382BBFB323D75F7B6C8C6A392B1FDD62B9A2D93C8F76BF7F5F' +
           '66AADE325E992C943FF67D54FBA6CD82761C876C2D73565511924' +
           '68ABA55FDD0C352A86119F5706437E2DB09DFD6CC200B50495FDC' +
           '303BD25F87632E53E7B2EF926BBAE8B5579D90F70D29587F00F3F' +
           '8ACDD');
      sNMRed := BitmapFromString(42, 6, 'z78DA9D535B6EC43008BC128' +
           '640ECCF84C4F73F52D94E2D397512B9F56A51841FC30C838B0889' +
           'B83057E99696C8987BECD2A6C2E46B154EA5CFE0A4C5DD54917F8' +
           'FFD2DACC502C5B1AB14DF650F5CB299D7C61710D7C8A40B0A967F' +
           '3345C42AF14F920331D9781EBB23F7FE854BFE9D7B9CA432A2001' +
           'D71E69D5EABBE47EF28A8B3D7BFCF40C3B12F37DCBB3ECE770AF1' +
           '0905BB70D1A70D2C334A22F679F40BCA8C0A6CA7EC8DBB66CE8DF' +
           'BE8C9519F798E977A8211554C166A7BF218B0E0DBFF61A98BB265' +
           '59E8CEF9B59AB57961624AE7A2696BBCE0A2F116FA7BA878A054B' +
           '1B94A463DF1CE88F2E331F411B339CDF7C85289AA6AD46626956D' +
           '17FDA530F23DF75C725E858FF8191B95A8F6E04A77B3AF4B38047' +
           '76F62D60F3A6B69F1DC9589B24B4D17EFC1CF4F5389EEFF81F5BE' +
           'F0B5127074D74C1E0A7B737E298BB7FA91F90290843FFF');
      sBNBlue := BitmapFromString(43, 8, 'z78DA95554B96ED2008DC52' +
           '14411DFA63FF4B7A280EF4C574DB722E3721864F511880FFD753C' +
           '0623004D6F16A372C167C1E0022237B5C9CF628D745EDBF68D989' +
           '65F339A23CA291ADF807BCF2233B11D583957781A75DEEE556A2C' +
           '016C54AB610F5E98C35F6AC55BC1150BDF95932D4AA6715F243B8' +
           'C97C7D6B435533D73C6F1058725BFBF27EBAC55A3A35AF3F767E2' +
           '230707B7761EEBF41E0C5AB0DC36B3F8AD81703D59B15EDE050DD' +
           'E0C02F088CEA5686CCEE0C0EAF39CC9CF5FA26F311FD80C0D2478' +
           'D35A7E38209EA73B50B57B3F3C004E1501D3AACE4A9F9169F6023' +
           'A5F6D511EDF8CC67E1EA55A51FFCD799556F5FDD99733DBA70E5B' +
           'F422376CD63E4940A348B1E0BD95853CEEC2A1EBB2C310892FCFB' +
           'FDC4F8790A10A589D553F4B9500C255BD51A1D1C7228AA4D72D1C' +
           '7F7ECAF27929E2A0726DCCFD488927D692DA79453111C10FB29D7' +
           'E5D1055D2C77D9CFC62E73CB6B293704512E8741C24C8E5860B07' +
           'EEA0081232BE6AA25AB50B9DA86CCD2914ABB9F849692A910D17D' +
           '31E1E7DA15F3E26A64D41C9E6559EAB25A0C98C1EC77AFBBC0691' +
           '16483868CDFBF055D9E3F2E2B80DAB42300198A60948438C6E1FE' +
           '3D3A9CEDCA73432962AC39D4A008CBBBDE1DF29908A8ACF6C18D3' +
           '702FF004700A965');
      sCVBlue := BitmapFromString(42, 8, 'z78DA95545B8E2C2108DD92' +
           'A2A07EFA62FF4B1A4A9C046F55CFAD868454DB08E7F0D0B910888' +
           '002040E4BA0C87797E340C1C93932743929FAAF53FFE5B34FE45F' +
           'CC7AFE1F2BB770DF52F1123FF2CEC212135FC5114FC48D762157B' +
           '477D95CF4D6F2D9595604457EE011FFD86D2E2FA73BD52F77532B' +
           '45FE06B3463E720986881BD5AAF02BEE06F38EA0A8E4773CB9DB7' +
           'A6A16538DBBFF9DFBF634D8BC7CC763125E715F5DBE77476BFBC5' +
           'FC982E5BB4B6475674DEB4D7D6DFCEF3DFDC0FABBD7E8FD6DC7AE' +
           '06E7BB7F0EC5D78D1FD63EA3EC4A799667152FA915A86427596D1' +
           'F2C80F48DE70FFD26A4CDD1465FAD01DDD7ADD5FDDC737F14798C' +
           '471262C5C6B0F13E2448FFF2E3FAE41B96C944EB35AD908B786EE' +
           '913B248C194244CEBDB83A3A272AA9752AB93750AB79D547ADAFB' +
           '1A472DFF1BD35E6CD79E8FEEB59D22C2DF5395BADAD76A90022B2' +
           '1FA2F3DCFA4B5D586A043A3438DE1FCA0933F6380AA3C64C945DB' +
           'EB052A8D828124B01206D9B43E6C265D4D6B6153C79F08089CC98' +
           '70D0F9A05404AA7E8482F153F7FF66ADD556848AC1327274E9D3D' +
           '62F3592BDF0F2E7E328FD486EB8E97E63AE5BB0D47D29200B06F5' +
           'E41E5AE8529D2AC3E223C6F269F78FA9F6540BEA9E6A6DE56E8AF' +
           'C316FBFF4ACEA52233FE90B9F97');
      sNMBlue := BitmapFromString(44, 7, 'z78DA95555BAEC52008DC92' +
           '8ACF4FEBA9FB5FD2E538DC84069B786AC2870203C36843A640332' +
           '8EB1B85389C23CAD90D0AA93E4E892811ACECB04F6CE27F6239F6' +
           '1B481429702C35C7886920E75186E5AFABC23E2A0FA62374A1335' +
           '81F3F393691F980859AE12339D78EE39D2451BA92131B3896FE63' +
           '171BC20C23D210DC03261FD56A8617B7FA545054864DBF8855B56' +
           'DBA5B7C5A9DC0132C1DF1A0A204057A003FE08171D311AB3683A8' +
           '62E9F3AD53CBA174019D337A9C6FA71B1E54B6C7FE819E37280B1' +
           'DF6075D2DDE366A7C43419D6616F674A328B06D7950F33D9FA0D4' +
           'FF868269E20E1A25BFB16AEF1166C7836FD1DB7E6B68B9DF3B1E4' +
           '2A52A1D1D70F5C37BA8ED7A4F70FBA4CE37652EAC9FDFDE0FDD79' +
           'C6BBA436934F25CD124AAF3B98C833D829FFF35D6EF81EAA7E4B3' +
           '71928351685EB9F314B6EE51AB9D5710558D44031CD3A607D8FAD' +
           '34CB2DF46351F4BF43EEF2010340B9CAB8EFABF7AB8FC97D5E74F' +
           'B8BD778BE78DFE5D6677BFB03A32A7A6B');
      sXCBlue := BitmapFromString(42, 9, 'z78DA95555BAE2C2108DC92' +
           '0A3EF8F4D1EC7F4907C59B68ECEEDBA3193271A4802A645C0007E' +
           'C0E6B091C562BDF713B37159C4F16003CCC9B7282640C40089FAC' +
           'F87647000427BE404662F9AA989F10C6FD2DAB03DFB0DCF1562CF' +
           'A59C588A575AD35C2B166269AE7E235F107B2DEBC89FE6A9DF8C2' +
           '3FDFC1C08C22F850B5AE2FECAD6BC31FF94C7CC55436E4DC4F06A' +
           '697C65DF2995EAA88AA3CD8DBA28FF3C9D2F9EB935DBCB6289AB3' +
           'E63932FC8276229CF89B5EC3AAA62B638FEAABEF99CFC2FC89FFD' +
           'EAB3751464FAAFDA17F06576BD76917BDD73E6FAE8CBDABFFAAE3' +
           '77A5D6B84F51B48BE65BF8C0E4FA464E645F428E955A492D9D76E' +
           'B8707F5F575FF30CD4E3B1094DBB5EBCE093367ECF7F9D9E00A8C' +
           '57F4C4272636DF5F010A237C5A63AC4CAB77F5655D486472AB1C0' +
           '3C55203A55A9CDA19173DA7AAD666A4F8F806E7CC5926D2A6BEEA' +
           'A8D3E9B56A8D5262BDAE9273C9B557847BE696FA360FCB365BE59' +
           '325174044962E49D1A73B617A3A457EC7C042808BD326484C4C2D' +
           '9732ADE4931A377779E65852A0FD114694A616954B7854FFBD6A6' +
           '5BB6223F69A83D6E2C08D7F8E0FB573DF542953C55E77981D0290' +
           'E072DCF7A64BE8DBFCB8241B7437458A52A956CFC234FE67C2685' +
           '7DB90C9EB3B556ED16244DE82D5BEB7DA6BDFDB1DEADB8DFD0760' +
           'A6D33C');
      sVBBlue := BitmapFromString(42, 10, 'z78DAA55659B2E3200CBC12' +
           '20367DB298FB1FE9099AD4C010CF73329074D90424754BA2623C1' +
           '96AE64025E89A16B4FB7A9375B7AD2822EF9FA32E62930DCBD9A2' +
           'E4D945AC7C6C6178D744E408764E16D839513CDA3271F0A263CCA' +
           '8E04BDE659BF02507D65859C7F3988DECB62F2F120F31AC69B16C' +
           '1DE279CE1D76C065DA1F7C372EC80E580C8FDBAF4B3C73054C57E' +
           'EAB1A03B7F81F733F759ED585BC20834FB80FBE93FB72EA96FBCD' +
           'AF38FB262AB1EF0A72BD6A3BED0C353EAD79A8BA7947C60FFBBFE' +
           '0886AC639AAFD3BEE50FEE48E0A9C9DB8D89F086580CFFB7430BD' +
           'CDFEC8C256757738AA714685E71B7636D8E66234ECD365959577A' +
           'C7BED6BC86B1ECF5E007E7A9B9D2AC1FE5D8D4193795F1DFDF50B' +
           '56BA7CB35770DC9C7661CFA3F035D60F79FE74BAED12CB4A524A4' +
           'B659CF71EF437413E95AC6BB1B04AB5B4E039E4E239966C80F08B' +
           '3D409D2C075EEFC9B5BFD66E7DD3658F6B095E7228D79553CAA93' +
           '4E197E9DA6BBE4F35069E37CDAB2EFD6BC248F25F83459CAC838F' +
           '2A0A3B796D2E7BEB9B0860C2C448B171E39A729E28F1C4DA249E5' +
           '8768E999AB5D43C491956794F6FB2FF8035D42EB64AAA11C31DBB' +
           '7F73E7C2898BB3CEBBD4A9EE95AFFC98DF8D71F6D4D35FA2A5E69' +
           '0448ABBDE7F53D5DA27765C73AC11DA5ADDBB7975F81D77A0F486' +
           'B6E655F37DAAFF1E9AFB7CD7E34619254D11F7EC0B9FE24C6C291' +
           '40253E417553DB35CD5A5DAA9B3297D9EDC35F50946AFFF307DFE' +
           '009F980694');
      sCVRed := BitmapFromString(51, 13, 'z78DAED56CDD2DC200C7B25' +
           'C0FC1E0309EFFF4855A26CC7F9D84D49F7D49992191D1256B6856' +
           'CB6351163DA7F7C88A1887391B87471A69C5F0528A5E14D8F40DB' +
           '33F6D8E82376B6849DB6F0577FE09940EEE76F23E23A29402BF33' +
           'CDC4F86840C6D63E63A2B8D1568222B1ADFDFD7120CDEEF01B196' +
           '80AF4D2BC0F7DC430DC949DDF8F59E67462B518B55308AA06AD7A' +
           '7143BF439B3E5391ED98EEBAC45B98251C830538B568679728F8E' +
           '42478D677A516CE099A994CC3A16FDCC5A782E53CAAB9C4F86E33' +
           'D1D7B59FA148E28170D6F6B71D114E46CC4D88B5BC628A362445D' +
           '117B41F3CC201D353AE1ECCA69AF6A47E96CF5C9EA456FD357637' +
           '59F6A0925649F2CD2464767B7BC72D31D77AF9846EDCF79C5CEEE' +
           '1B96F609F3A1B6334ED3AEF8C45F30A26D4C55926DCB26D5B4354' +
           'B3786889FAEA8A561DBA5966DDB5AEDC51749C91C2B758BFD23FF' +
           '8C624F51DF1DD4678CABE7B09E33F3B80669F04690EC2EBD9FC4A' +
           '38F88BDC768CC0C523162B3D0AE9A0D4F058D717D4631E6D3BAC4' +
           'E75A91F9EC6B358147A73DF52D7DD24368AF4A97E8FB8FDEEF125' +
           'C47E288FB778A11D7BEAE754FDEB8ED727FE18C6CD99CC7DCDB7A' +
           'D8197240561569816CE43FBE7617CA0BB71A1C30F8FDC437492E8' +
           'EF7E3A799367F8FACD5BBB79546E4F386792D50B57CA31811CF5A' +
           'EAC563C9E376D0BF652CF44B730F221253F7E1470F76F1AEAF8B5' +
           'F703FA255AE5354CFB4372AE1CFDBEFD3B98DEB3197AECC54F27B' +
           'C5884B5E523E75736D7FB2EC1332375F708F1CAEFEE8B15BD46AE' +
           'BFC595195F0F676E3AC3EE773F7714E258D67E6BA2B1F667EAFD8' +
           '89B2D91AD3924A4C36E2F13EBBB6CF34F4E663775DF098219C30A' +
           '57870522BBE077FDE67D74FFC3E22799EF6E303C5C62957A5BAEE' +
           'BADD3BA23F3BE57F1D7F018B6D626F');
      yEWE := BitmapFromString(90, 9, 'z78DAED56310EC4200CFB12105' +
           'A6084D2FEFF4957C98BEF227AA853A9C8E081A048D8268931BF21' +
           '599C39F6B445D946C7ADE4433CBF2E9B985CE23BC986EA166497E' +
           '08B5D391BFCEAEDDECA02B93EAA3D930D7E0B6BDD8FEBB2049BDF' +
           'E10DA0AD36990036F4EBA0784BD9F3EAEA2AB2A8D3CA22E0C651B' +
           'CF12695EF21ABEFCAD9234ACB392D6599CF9A4B91A8D9D6CE99DE' +
           '783E628E687D79E25C2B8B8EAAA7129F3FBFDF4E6F688413F4D67' +
           '1BD69B458650F5C6F32D31BA320A609EBCBB3264A30CE363B0FED' +
           '15A8A3370D9E35D31B6321FCC0FAF2A6516A76F2872B6655577B3' +
           'E03D31B3D7FFF2B76B319E9A9C0DB0507381FD11BE0A41F7B7ED0' +
           'B8A895F55176EBEE71CB0C8FE88DEBF8000F0D6952');
      yQEQ := BitmapFromString(84, 7, 'z78DAED964B0EC3300844AF84C' +
           '1E6B304ECDEFF486DE22E2A559122B51B4761F196C8C31831005B' +
           '55A55170582AE55AF4618C1DFE54B3DB8A7338A29200161890409' +
           'F4A9BD428BCAEAEDBF7338CEE4880810D622AD510C39CF4AA1D7D' +
           '2D45DD2348A75FBF7376BB9EEFDF130BF6E09C9410ACB8BB9FD7D' +
           '67EB3976CF2667A0C51016E84DDAEFFF3FFC692853CC98596C948' +
           '9646AD4FEA43A5353262C4A8E6386E4FCFCD50195DF3752B97B99' +
           '24709675771EFFBA94D17E2CDF73D23ADF2F227DEE93E7C');
      yQEW := BitmapFromString(96, 6, 'z78DAED96C90AC3300C447F49F' +
           '2EEA3B7FEFF27B5747A981212BA50688C759883231433798C3272' +
           '4BB68DBBB65A2ED609958FAE6A18D4F3CF5A460EA6F3FD717296F' +
           'BFF5AA30B4E079CD1AE5922CE938D6214E7C1FBA8656F820C6962' +
           'D1095A8EFDC71B173F73E8D61F30E0921D6A1E8E49CA26EF4DE0C' +
           'EACB11BCF4FC11ECFAFBD182B8B9F9994FD0103C7A9C2CA49C5BB' +
           'A9975A6DE2399C6F8B9F999433C4D41B3DF5F52F8E3CE17E90039' +
           '69E9C3FCCB1C5CF799533E4B37F5DCE192610053EE7D8EFDFD4AC' +
           'EC71866C77D9BB097605264323D7');
      yQQE := BitmapFromString(83, 4, 'z78DADD544112C32008FC12205' +
           '13982F2FF2F352D17329949935BED1EF680C8CCEE8AE030A0C007' +
           '3851A0B98C5EC62A3CD5AC74482AC868038BFAD339E140CC89994' +
           'FE7FC0237AE8C0E09F934D715BA90ACA52E58B0CD3DE783C8775E' +
           '7BF054E0FA6EF4E437B3BA1BE7C4D5A5D20C8E0AF7E2482BAABB5' +
           '61AD81A1BD638CD1CF5737F2F0D08FFCF87ECC650F5C23A846974' +
           '6F4A2C5B07AA668ADF76E4D73876F6F03FDF40F4AFBBD7F7137F0' +
           '18960CCB1');
      yQQW := BitmapFromString(89, 5, 'z78DADD55490E03210CFB52C2C' +
           'E91ADFF7F52AB7A0E96D243471DA9A53EF80021C2C409AB8EE2C7' +
           '7A725B35B929841C52D0B528E69759A756C9B8B9EB2E4AFF3CA72' +
           'C19E2AFCDF92DB6F51DBDDD7C08C52F75586952AAAB7C2AC598B5' +
           'F1A93E9BF3B28B6A78F8AAFB57CDF3E10242F1599CEEEB8AC3E78' +
           '44323391F3E41E46CBDFBC2BBE8BBBDF45A15E86EAC9FCDC39307' +
           '39CFE6F94DE6C980F7B11587D29843D7C42EB2936417B63D8E9AB' +
           'E333710C3BEDAFD352C63E289013C8018760B002FEDAEDDFE26AC' +
           '1DBBCCB62FFEE9D778E17C03741362EE093C6B32');
      yQWW := BitmapFromString(92, 6, 'z78DAED964DAE04210884AF84A' +
           '0804B40BDFF919E1367D1C9A4E727B39A7E62F2ED585016A17A0D' +
           'A5E8972019210C38949200A6777AAD57C6060FF5EB9A4087003A4' +
           'E146E83F23BBD4BBDD5C5560686340EE456DD497F5793A5C0FAF1' +
           'C5669F4D74ECF56648D02FB447DFB0A5281296AA32681642DD9A6' +
           'C9EF964713ECCD0D033F156E639DD2D11CC533757EB3FCCAB43A5' +
           '94E28589AB572C61591BDA76C22953A49B3D98D12C6AC64B79FE2' +
           'C7B1C138E0D2BAC92A702FBFABC5095A5DCB2D0257C223ED3E9FD' +
           '9A709D79B5CF044B68EA523116FF00F3EE10DC');
      yWEQ := BitmapFromString(97, 3, 'z78DAED954B4E03300C05AFE43' +
           'C3BFE2C6D27DCFF48B4A48B6E5A901008105ECC2E96EC4C5E88AE' +
           '35D608B21DEDDC0F397A706687A011106ABA2B7505AFD22C6D57D' +
           'B93024E4CEFF4FC76AEAC62CF1D8AF5799E6E3F6DC6AFD898B311' +
           '8689CAD887C79973FBCF9DA9CAC114D309AA355FE00E739163CB1' +
           'A3DED218DB584164A58FFF69E3FCEB3CFE634C66F9F45E7B491C7' +
           '22DF96907BDAD6068E331717C03B2A30B3B3B6F97373EEF976AA5' +
           '37C21FFFD39B4CBDBC32DCF7F5922C535914A22B13B73B3D44AF0' +
           'ED277A05DC819B5A');
      yWWE := BitmapFromString(79, 5, 'z78DAD594C90EC3200C447FC90' +
           'BEB9125F9FF4F6AD45125570815F5041C7C1899513CCFA150CA92' +
           'C99C2BB7A46DFFDA4BAD9AEC9797F72C9963170FC5475739CC1CA' +
           '20B8E2F7406EF2317E8A3E7CE39D8292C414C04458B0ADDA79045' +
           '95FA50AC960E6842491A497876F70119A4A3133E56C1C1FE9C48D' +
           '626839EB3C8DACDC42CDC395384527B11FDF10AD94C46B7FD1398' +
           '91B5CA4A0EBBD5F12FFB8C478D74C5012FD56870CA9E8F64BF325' +
           '9CE61CF3A7271492F96FF92B1F99C4816E705850B236E');
    end;

    procedure Kill;
    begin
     writeln('Game Over, thanks for using LooneyTugger')
     terminatescript;
    end;

    procedure Cast;
    begin
    if (FindBitmap(yEWE,xs,ys))then
    writeln('Casting Spell EWE')
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    if (FindBitmap(yQEQ,xt,yt))then
    writeln('Casting Spell QEQ')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
    if (FindBitmap(yQEW,xu,yu))then
    writeln('Casting Spell QEW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    if (FindBitmap(yQQE,xv,yv))then
    writeln('Casting Spell QQE')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    if (FindBitmap(yQQW,xw,yw))then
    writeln('Casting Spell QQW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    if (FindBitmap(yQWW,xx,yx))then
    writeln('Casting Spell QWW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    if (FindBitmap(yWEQ,xy,yy))then
    writeln('Casting Spell WEQ')
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
    if (FindBitmap(yWWE,xz,yz))then
    writeln('Casting Spell WWE')
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    end;

    procedure TypeQEW;
    begin
     writeln('Casting Spell QEW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    end;

    procedure TypeEWE;
    begin
     writeln('Casting Spell EWE')
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    end;

    procedure TypeQEQ;
    begin
     writeln('Casting Spell QEQ')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
    end;

    procedure TypeQQE;
    begin
     writeln('Casting Spell QQE')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    end;

    procedure TypeQQW;
    begin
     writeln('Casting Spell QQW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    end;

    procedure TypeQWW;
    begin
     writeln('Casting Spell QWW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    end;

    procedure TypeWEQ;
    begin
     writeln('Casting Spell WEQ')
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
    end;

    procedure TypeWWE;
    begin
     writeln('Casting Spell WWE')
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    end;




    procedure TypeBN;
    begin
     writeln('Found Keys...Using B&N')
    repeat
     KeyDown(GetKeyCode('b'));
     Sleep(65);
     KeyUp(GetKeyCode('b'));
     KeyDown(GetKeyCode('n'));
     Sleep(65);
     KeyUp(GetKeyCode('n'));
    until
     FindColor(ab, bb, 3983593, 150, 25, 151, 26) or
     FindColor(a, b, 10040064, 310, 160, 311, 161) or
     FindColor(aa, ba, 3250869, 150, 25, 151, 26);
    end;

    procedure TypeCV;
    begin
     writeln('Found Keys...Using C&V')
    repeat
     KeyDown(GetKeyCode('c'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('c'));
     KeyDown(GetKeyCode('v'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('v'));
    until
     FindColor(ab, bb, 3983593, 150, 25, 151, 26) or
     FindColor(a, b, 10040064, 310, 160, 311, 161) or
     FindColor(aa, ba, 3250869, 150, 25, 151, 26);
    end;


    procedure TypeNM;
    begin
     writeln('Found Keys...Using N&M')
    repeat
     KeyDown(GetKeyCode('n'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('n'));
     KeyDown(GetKeyCode('m'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('m'));
    until
     FindColor(ab, bb, 3983593, 150, 25, 151, 26) or
     FindColor(a, b, 10040064, 310, 160, 311, 161) or
     FindColor(aa, ba, 3250869, 150, 25, 151, 26);
    end;

    procedure TypeVB;
    begin
     writeln('Found Keys...Using V&B')
    repeat
     KeyDown(GetKeyCode('v'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('v'));
     KeyDown(GetKeyCode('b'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('b'));
    until
     FindColor(ab, bb, 3983593, 150, 25, 151, 26) or
     FindColor(a, b, 10040064, 310, 160, 311, 161) or
     FindColor(aa, ba, 3250869, 150, 25, 151, 26);
    end;

    procedure TypeXC;
    begin
     writeln('Found Keys...Using X&C')
    repeat
     KeyDown(GetKeyCode('x'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('x'));
     KeyDown(GetKeyCode('c'));
     Sleep(65+random(5));
     KeyUp(GetKeyCode('c'));
    until
     FindColor(ab, bb, 3983593, 150, 25, 151, 26) or
     FindColor(a, b, 10040064, 310, 160, 311, 161) or
     FindColor(aa, ba, 3250869, 150, 25, 151, 26);
    end;



    procedure FindKeys;
    begin
    writeln('Looking For New Keys');
    if (FindBitmap(yEWE,xs,ys))then
    writeln('Casting Spell EWE')
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    if (FindBitmap(yQEQ,xt,yt))then
    writeln('Casting Spell QEQ')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
    if (FindBitmap(yQEW,xu,yu))then
    writeln('Casting Spell QEW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    if (FindBitmap(yQQE,xv,yv))then
    writeln('Casting Spell QQE')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    if (FindBitmap(yQQW,xw,yw))then
    writeln('Casting Spell QQW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    if (FindBitmap(yQWW,xx,yx))then
    writeln('Casting Spell QWW')
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
    if (FindBitmap(yWEQ,xy,yy))then
    writeln('Casting Spell WEQ')
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
     KeyDown(GetKeyCode('q'));
     Sleep(65);
     KeyUp(GetKeyCode('q'));
    if (FindBitmap(yWWE,xz,yz))then
    writeln('Casting Spell WWE')
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('w'));
     Sleep(65);
     KeyUp(GetKeyCode('w'));
     KeyDown(GetKeyCode('e'));
     Sleep(65);
     KeyUp(GetKeyCode('e'));
    if(FindBitmap(Bruce,xr,yr))then
     writeln('Selecting Character')
     KeyDown(GetKeyCode('v'));
     Sleep(100);
     KeyUp(GetKeyCode('v'));
     KeyDown(GetKeyCode('v'));
     Sleep(100);
     KeyUp(GetKeyCode('v'));
    if(FindBitmap(GameOver,xq,yq))then
     Kill;
    if(FindBitmap(sBN,x,y))then
     TypeBN;
    if (FindBitmap(sBNRed,xa,ya))then
     TypeBN;
    if (FindBitmap(sCV,xb,yb))then
     TypeCV;
    if (FindBitmap(sNM,xd,yd))then
     TypeNM;
    if (FindBitmap(sVB,xe,ye))then
     TypeVB;
    if (FindBitmap(sVBRed,xf,yf))then
     TypeVB;
    if (FindBitmap(sXC,xg,yg))then
     TypeXC;
    if (FindBitmap(sXCRed,xh,yh))then
     TypeXC;
    if (FindBitmap(sNMRed,xi,yi))then
     TypeNM;
    if (FindBitmap(sCVRed,xj,yj))then
     TypeCV;
    if (FindBitmap(sCVBlue,xp,yp))then
     TypeCV;
    if (FindBitmap(sNMBlue,xk,yk))then
     TypeNM;
    if (FindBitmap(sXCBlue,xl,yl))then
     TypeXC;
    if (FindBitmap(sBNBlue,xn,yn))then
     TypeBN;
    if (FindBitmap(sVBBlue,xo,yo))then
     TypeVB;
    repeat
    until (true);
    end;



    begin
    repeat
       DeclareBMPS;
     FindKeys;
    until (false);
    end.

    my script is slow and I need help with maybe dtm's? also after awhile the image that shows what 2 keys you need to press will disapear. So my script does this

    Reads the image of what 2 keys to press
    Presses those two keys
    See's the image for the spell
    stops pressing the 2 keys and presses the 3 keys for the spell
    looks for the image with the 2 keys and cant find it because the image dispaears...my script stops....I lose the game

    any help greatly appreciated, will pay a few dollars in paypal to whoever can help me finish this!
    Download Looney/GoFez0r's Merchanter v.1.1
    http://www.fenjer.com/adnan/SRLStats/57.png
    http://www.fenjer.com/adnan/SRL/8/2/...nt%20Alpha.png
    MSN:ghettogeec@hotmail.com
    Procedure CreateCommonItemMerchant;
    if CommonItemMerchant=Working then
    CreateFullMerchant;
    Scar= Me=
    Reply With Quote Reply With Quote
  2. 03-26-2007, 12:50 AM #2
    Smartzkid's Avatar
    Smartzkid
    Smartzkid is offline Senior SRL Member SRL Legend SRL Useful posterSRL HelperSRL Master
    Send a message via AIM to Smartzkid Send a message via MSN to Smartzkid Send a message via Yahoo to Smartzkid
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Two things stood out to me when I read through your code.

    1) The bitmaps are waaay too big. You should only need a piece about 2x6, and it'll greatly speed up your script

    2) In your main loop, you declare the bitmaps every time the loop repeats. You only need to do this once. Just move 'DeclareBMPS' before 'repeat'
    Interested in C# and Electrical Engineering? This might interest you.
    Reply With Quote Reply With Quote
  3. 03-26-2007, 01:17 AM #3
    WhoCares357's Avatar
    WhoCares357
    WhoCares357 is offline Senior SRL Member SRL Legend SRL DonatorSRL Tutorial Writer
    Send a message via MSN to WhoCares357
    Join Date
    Dec 2006
    Location
    SC
    Posts
    692
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bitmaps are gonna kill you. You should load one at a time when you need it and then release it after you're done. If you run this, your pc will lag for a long time.
    Reply With Quote Reply With Quote
  4. 03-26-2007, 11:59 AM #4
    looneytoon
    looneytoon is offline SRL Junior Member
    Join Date
    Dec 2006
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks ill try both of those ideas when I get home, I'm at school right now, I still need help with the casting part, where it stops repeatedly pressing 2 keys, looks for the image with the 3 keys to cast the spell, presses those keys and goes back to pressing those two keys again until I win
    Download Looney/GoFez0r's Merchanter v.1.1
    http://www.fenjer.com/adnan/SRLStats/57.png
    http://www.fenjer.com/adnan/SRL/8/2/...nt%20Alpha.png
    MSN:ghettogeec@hotmail.com
    Procedure CreateCommonItemMerchant;
    if CommonItemMerchant=Working then
    CreateFullMerchant;
    Scar= Me=
    Reply With Quote Reply With Quote
  5. 03-26-2007, 07:20 PM #5
    IEatJ00erBaybees's Avatar
    IEatJ00erBaybees
    IEatJ00erBaybees is offline SRL Member SRL Legend SRL Old Timer SRL Scripter
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Whoaaaaaaaaaaaaaaaaaaaaaaa...Soooooooooooooooooo many bitmaps. That's why it's slow. I would use DTM's. There's some good tutorials for them
    Reply With Quote Reply With Quote
  6. 03-26-2007, 07:57 PM #6
    looneytoon
    looneytoon is offline SRL Junior Member
    Join Date
    Dec 2006
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah I was thinkin about convertin all my bitmaps to dtm's, thanks everyone for the help, ill update u guys when im done
    Download Looney/GoFez0r's Merchanter v.1.1
    http://www.fenjer.com/adnan/SRLStats/57.png
    http://www.fenjer.com/adnan/SRL/8/2/...nt%20Alpha.png
    MSN:ghettogeec@hotmail.com
    Procedure CreateCommonItemMerchant;
    if CommonItemMerchant=Working then
    CreateFullMerchant;
    Scar= Me=
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. ClickEm - A simple SCAR game
    By Cazax in forum Research & Development Lounge
    Replies: 25
    Last Post: 03-26-2010, 02:45 PM
  2. Help with this simple script...
    By Drakan in forum OSR Help
    Replies: 7
    Last Post: 10-17-2007, 10:23 PM
  3. Need Simple Script Will Pay
    By joshmcginnis in forum OSR Help
    Replies: 12
    Last Post: 09-22-2007, 07:46 AM
  4. First Simple Script
    By trigoon in forum First Scripts
    Replies: 10
    Last Post: 03-31-2007, 03:45 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules