Simba Code:
Function QCSkillLevel(Skill:String):boolean;
var
k:Integer;
begin
k := 0; //code for 'Enter'
case Lowercase(skill) of
'Attack':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('g',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Strength':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('g',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Defence':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('d',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Hitpoints':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('l',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Agility':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('a',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Magic':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('m',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Cooking':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('v',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Firemaking':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('p',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Mining':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('i',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Smithing':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('b',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Fishing':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('w',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Ranged':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('r',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Prayer':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('y',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Runecraft':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('n',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Dungeoneering':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('f',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Construction':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('c',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Fletching':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('e',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Slayer':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Hunter':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('u',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Farming':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('q',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Thieving':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('t',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Crafting':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('x',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Woodcutting':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('j',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Summoning':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('o',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
'Herblore':
begin
TypeByte(k);
TypeSendEx('s',False);
Wait(100 + random(50));
TypeSendEx('h',False);
Wait(100 + random(50));
TypeSendEx('2',False);
end;
Result := True;
end;