hey im trying to make1 and i need some help.. i get an error when compiling..it sais" Failed when compiling
Line 74: [Error] (17884:31): Identifier expected in script " well here it is.. its very noobie can u guys take a look at it and tell me what i should add to make it better? and how to fix it. thx guysSCAR Code:{ Auto Tele! (my first script give ideas and suggestions!
Version 1.0!
Made by: Syberium
hopefully new versions will be out soon
Credits:arrows responder =] edited a tad bit by me }
program teleporter;
{.include SRL\SRL.scar}
var
varrocktele:integer;
var
lumbytele:integer;
var
faladortele:integer;
var
camalotele:integer;
var
spellbookcopy:integer;
const
respond=True; // to use auto responder
UserName= ''; // your username
UserNick= ''; //3 letters of ur username
varrocktele1='';//true to tele to varrock false for differnt spot.
lumbytele1='';// ^^^^^^^^^
faladortele1='';
camalotele1='';
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := 0;
Players[0].Name :='';//name
Players[0].Pass :='';//pass
Players[0].Nick := '';// about 3 letters of ur name
Players[0].Active := True;
writeln('using'+inttostr(howmanyplayers)+'player[s]');
end;
procedure LoadBitmaps;
begin
spellbookcopy := BitmapFromString(11, 12, 'z78DA7D93410EC4' +
'200845AFA422A24B75EAFD8F3476BE8B3F21EDE6A5111EA0A14D4' +
'ACD4B35C7B464A6184D974699A0DD4C7CE2B97D492B97D4E2E5F3' +
'4BD791EB7B4DEFC2EAA316194CBB8AE48128D37764AB7553C94CA' +
'E539305ADDEF51688282CFE46F4D48CC52478EBD10DF7447C234C' +
'E85F00F96C81989FA3EF3C772477CAD0B6FC6C7CD2A55EE5D0BB1' +
'F9BA1FD4DF54EEF0EEBB166BF5D4FC4C6B2CBD540E4E03D77DFDD' +
'F5CCFFDB7C44D9C5BFF0054EBEAF26');
varrocktele := BitmapFromString(7, 6, 'z78DA33363536317335000' +
'1434CD2182C6BEE68EEE866E9E60A842EB854426421EA895149AA' +
'08312A21B61B23F908228BA906E22300412A35F3');
lumbytele := BitmapFromString(6, 7, 'z78DA3377347774B334363' +
'5363173C524CD9164DD40D0C500040C9149882C848D4B0D32495D' +
'359824A6AB70B91900760E3547');
faladortele := BitmapFromString(6, 7, 'z78DA3377347774B3343' +
'635363173C524CD9164DD40D0059384C81A8080214404C2C64562' +
'9A804B0D31E6E0924576332E5900D7A836C4');
camalotele := BitmapFromString(5, 6, 'z78DA3330000243375720' +
'7481900660116353631333576411032495986C4C9254595C2298A' +
'E0200EBFB2727');
end;
procedure vrock;
begin
if(varrocktele1='true') then
begin
FindBitMap(x, y, varrocktele) then
MoveMouseSmooth(x, y, 1, 1, true);//Moves Mouse and clicks it
end;
end;
procedure lumby;
begin
if (lumbytele1='true') then
begin
FindBitmap(x, y, lumbytele))then
begin
MoveouseSmooth(x, y, 1, 1, true);
end;
end;
procedure fally;
begin
if (faladortele1='true') then
begin
FindBitmap(x, y, faladortele))then
begin
MoveouseSmooth(x, y, 1, 1, true);
end;
end;
procedure camo;
begin
if (camalotele1='true') then
begin
FindBitmap(x, y, camalotele))then
begin
MoveouseSmooth(x, y, 1, 1, true);
end;
end;
procedure allteles;
camo;
fally;
lumby;
vrock;
end;
procedure randoms;
findnormanrandoms;
findtalk;
findtalk;
end;
Procedure Ban;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(120)
case NoBan of
1: RandomRClickEvery(200 + Random(30));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));
end;
end;
Procedure responder;
Begin
if (respond= True) Then
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
end;
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
if (InChat('Fish lvls') or
InChat('Fish lvls?') or
InChat('Fishin lvls') or
InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fishing')))
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
end;
if (InChat('Strengh lvls') or
InChat('Strengh lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Strengh')))
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
end;
if (InChat(UserName + '?')) then
begin
TypeSend('Yeah?')
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
end;
if (InChat('Hi' + UserNick) or
InChat('Hey' + UserNick) or
InChat('Hello' + UserNick)) Then
begin
TypeSend('Hi')
end;
if (InChat('You are a noob' + UserNick) or
InChat( UserNick + 'you are a noob')) then
begin
TypeSend('Okay')
end;
if (InChat('What music do you people like?') or
InChat('Wat music do you guys like?') or
InChat('What music you ppl like?') or
InChat('Wat music do yoo peeps like')) then
begin
TypeSend('Rock FTW!!')
end;
end;
end;
Begin
SetupSRL;
Declareplayers;
responder;
randoms;
Ban;
End.




Reply With Quote