Log in

View Full Version : Script beginner -Need help


owner5
01-07-2012, 06:01 PM
Function NPCrunes: Boolean;
Var
Cosmic, Air:Integer;
Begin
Cosmic := BitmapFromString(12, 11, 'beNr7/7+0oODQfv3jR3' +
'RK8+rrq6tqy1t2brO7eV3yxjWJXdvdOpqm/v//v64q5vEjof17Dd' +
'ISG0oLyqpKy+sqqp485r12RebieaVJPRVANXfviF+9LHfnlvi m9Z' +
'adrfE56TV5mY3zZ4fevS1664bYquVBQDX37kgA1UCU3bsjdvi A3s' +
'G9RqUF1SeOagGNunldAqimuCAUqOzmdakTx9RWr7BNjqtMT6q eO9' +
'P/7m0xoMZbN0BqGmq8nz0VOXNSOTs9OSU+LzcjKy8z5/RJtetXZW' +
'7fFF+2yA+oJsAnYctG/eVLLKLDU9OSEhNisrvagu/fFQNadOGcYl' +
'tDLlBNeHBEealXREhcYmxMXFRyR6vfw/tA10oB7dqy0bowpw6oJi' +
'QgINg/JCo8LCYiKicz9Mghta2bDbduNtq53XDhXM+S/HKwXT5AZe' +
'HBwRBlEcGJQEvjojKS4nJy0gvLi4r+EwMAo3HlAA==');
Air := BitmapFromString(12, 9, 'beNqNz0FLg2AYB/APuMMWdd' +
'rBIhqssQZ5iEpt023lQEIrs5gQRIcdF7ssdsjAjclc0YY5QZy mSL' +
'rIgrp0eXs+Qu/x4ff8n/+L0PNweHfbLuRyvU4nns8fut0jumJPJo' +
'FlhbZ9I8sIoXUMsyfTdqu1g2/PDePD9xu1GkMRhq5HjnMlSWAe+/' +
'10KvUVhrIovozHC89jaRovlXRVhdimKILRlPvlTPrd88553tR 1MP' +
'VyGS8WYTd23cuzUzDXcnNrM58EwQnHGaMRYIaiSoX8WFUXris JPJ' +
'iNtVXoNtU0yHmdzb6j6GB3D8tmNUUBA0Mwv0nyNBgcsyxEvTk OQ5' +
'HQ+SeOfcv6DMMLQQBDk8TKUgbqwfUKsd+oVuE7nmlCJndYZ0g S/e' +
'f9AaUD8W4=');
If (LoggedIn) then
Begin
If Not FindNormalRandoms then
Begin
If FindBitMapTolerancein(Cosmic,x,y,MIX1,MIY1,MIX2,MI Y2,25)then
Begin
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
End else
Begin
End;
Begin
If FindBitMapTolerancein(Air,x,y,MIX1,MIY1,MIX2,MIY2, 25)then
Begin
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
End else
End;
WithdrawEss;
End else
FreeBitMap(Cosmic);
FreeBitMap(Air);
End;

Im a starter , its harder to script then i thought :p, i need to use npc contact when my pouch is deg. someone can help me with this?

I try to be a good scripter :p
x[Warrior]x3500
01-07-2012, 06:44 PM
procedure NPCrunes;
Var
Cosmic, Air,x,y:Integer;
Begin

Cosmic := BitmapFromString(12, 11, 'beNr7/7+0oODQfv3jR3' +
'RK8+rrq6tqy1t2brO7eV3yxjWJXdvdOpqm/v//v64q5vEjof17Dd' +
'ISG0oLyqpKy+sqqp485r12RebieaVJPRVANXfviF+9LHfnlvi m9Z' +
'adrfE56TV5mY3zZ4fevS1664bYquVBQDX37kgA1UCU3bsjdvi A3s' +
'G9RqUF1SeOagGNunldAqimuCAUqOzmdakTx9RWr7BNjqtMT6q eO9' +
'P/7m0xoMZbN0BqGmq8nz0VOXNSOTs9OSU+LzcjKy8z5/RJtetXZW' +
'7fFF+2yA+oJsAnYctG/eVLLKLDU9OSEhNisrvagu/fFQNadOGcYl' +
'tDLlBNeHBEealXREhcYmxMXFRyR6vfw/tA10oB7dqy0bowpw6oJi' +
'QgINg/JCo8LCYiKicz9Mghta2bDbduNtq53XDhXM+S/HKwXT5AZe' +
'HBwRBlEcGJQEvjojKS4nJy0gvLi4r+EwMAo3HlAA==');
Air := BitmapFromString(12, 9, 'beNqNz0FLg2AYB/APuMMWdd' +
'rBIhqssQZ5iEpt023lQEIrs5gQRIcdF7ssdsjAjclc0YY5QZy mSL' +
'rIgrp0eXs+Qu/x4ff8n/+L0PNweHfbLuRyvU4nns8fut0jumJPJo' +
'FlhbZ9I8sIoXUMsyfTdqu1g2/PDePD9xu1GkMRhq5HjnMlSWAe+/' +
'10KvUVhrIovozHC89jaRovlXRVhdimKILRlPvlTPrd88553tR 1MP' +
'VyGS8WYTd23cuzUzDXcnNrM58EwQnHGaMRYIaiSoX8WFUXris JPJ' +
'iNtVXoNtU0yHmdzb6j6GB3D8tmNUUBA0Mwv0nyNBgcsyxEvTk OQ5' +
'HQ+SeOfcv6DMMLQQBDk8TKUgbqwfUKsd+oVuE7nmlCJndYZ0g S/e' +
'f9AaUD8W4=');

If (LoggedIn) and not(FindNormalRandoms) then
Begin
If FindBitMapTolerancein(Cosmic,x,y,MIX1,MIY1,MIX2,MI Y2,25)then
Begin
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
End;
If FindBitMapTolerancein(Air,x,y,MIX1,MIY1,MIX2,MIY2, 25)then
Begin
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
End;
WithdrawEss;
FreeBitMap(Cosmic);
FreeBitMap(Air);
End;
End;

ok well i tried to clean it up. it looks like u r trying to click on a cosmic rune once, and an air rune twice? thats wat the code says atleast. and then u withdraw the ess? anyway, i changed it to a procedure because it doesnt have a return statement.
owner5
01-07-2012, 07:47 PM
x3500;885273']

procedure NPCrunes;
Var
Cosmic, Air,x,y:Integer;
Begin

Cosmic := BitmapFromString(12, 11, 'beNr7/7+0oODQfv3jR3' +
'RK8+rrq6tqy1t2brO7eV3yxjWJXdvdOpqm/v//v64q5vEjof17Dd' +
'ISG0oLyqpKy+sqqp485r12RebieaVJPRVANXfviF+9LHfnlvi m9Z' +
'adrfE56TV5mY3zZ4fevS1664bYquVBQDX37kgA1UCU3bsjdvi A3s' +
'G9RqUF1SeOagGNunldAqimuCAUqOzmdakTx9RWr7BNjqtMT6q eO9' +
'P/7m0xoMZbN0BqGmq8nz0VOXNSOTs9OSU+LzcjKy8z5/RJtetXZW' +
'7fFF+2yA+oJsAnYctG/eVLLKLDU9OSEhNisrvagu/fFQNadOGcYl' +
'tDLlBNeHBEealXREhcYmxMXFRyR6vfw/tA10oB7dqy0bowpw6oJi' +
'QgINg/JCo8LCYiKicz9Mghta2bDbduNtq53XDhXM+S/HKwXT5AZe' +
'HBwRBlEcGJQEvjojKS4nJy0gvLi4r+EwMAo3HlAA==');
Air := BitmapFromString(12, 9, 'beNqNz0FLg2AYB/APuMMWdd' +
'rBIhqssQZ5iEpt023lQEIrs5gQRIcdF7ssdsjAjclc0YY5QZy mSL' +
'rIgrp0eXs+Qu/x4ff8n/+L0PNweHfbLuRyvU4nns8fut0jumJPJo' +
'FlhbZ9I8sIoXUMsyfTdqu1g2/PDePD9xu1GkMRhq5HjnMlSWAe+/' +
'10KvUVhrIovozHC89jaRovlXRVhdimKILRlPvlTPrd88553tR 1MP' +
'VyGS8WYTd23cuzUzDXcnNrM58EwQnHGaMRYIaiSoX8WFUXris JPJ' +
'iNtVXoNtU0yHmdzb6j6GB3D8tmNUUBA0Mwv0nyNBgcsyxEvTk OQ5' +
'HQ+SeOfcv6DMMLQQBDk8TKUgbqwfUKsd+oVuE7nmlCJndYZ0g S/e' +
'f9AaUD8W4=');

If (LoggedIn) and not(FindNormalRandoms) then
Begin
If FindBitMapTolerancein(Cosmic,x,y,MIX1,MIY1,MIX2,MI Y2,25)then
Begin
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
End;
If FindBitMapTolerancein(Air,x,y,MIX1,MIY1,MIX2,MIY2, 25)then
Begin
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
Wait(RandomRange(300, 321));
MMouse(X, Y, 7, 7);
ClickMouse2(True);
End;
WithdrawEss;
FreeBitMap(Cosmic);
FreeBitMap(Air);
End;
End;

ok well i tried to clean it up. it looks like u r trying to click on a cosmic rune once, and an air rune twice? thats wat the code says atleast. and then u withdraw the ess? anyway, i changed it to a procedure because it doesnt have a return statement.

ok ty
imaloser
01-08-2012, 10:04 AM
As he stated it looks like you're Clicking on an Air rune once and then clicking on a cosmic twice then withdrawing essence.

What exactly seems to be the problem?