TheGuyWhoGotOn
2008-05-21 17:29:17
I think this may be useful for others, it's easy to make however it takes a little while to do so right now it uses SendKeysVB to do enter and TypeSend1 to type, it may need to be modified…Feel free to use this as long as you credit me :).
//Created by: TheGuyWhoGotOn
//Description: Says/Asks something about a skill in quick chat
{--------Options--------]
[-----------------------]
[(A)gility (Z)Attack]
[(C)onstruction ]
[(V)Cooking (X)Crafting]
[(D)efense (F)arming]
[(W)Fishing (E)Fletching]
[(H)erblore (L)Hitpoints]
[(U)Hunter (M)agic]
[(I)Mining (Y)Prayer]
[(R)anged ]
[(N)Runecrafting ]
[(S)layer (B)Smithing]
[(G)Strength ]
[(O)Summoning ]
[(T)heiving ]
[(J)Woodcutting ]
[-----------------------]
[---Question/Statement--]
[-----------------------]
[(1)What is your..Lvls? ]
[(2)My..Lvl is... ]
[-----------------------}
//Used like: QuickSkill('Z', 1);
procedure QuickSkill(Skill: string; QS: integer);
begin
Skill := Lowercase(Skill);
case Skill of
'agility' : Skill := 'a';
'attack' : Skill := 'z';
'construction' : Skill := 'c';
'cooking' : Skill := 'v';
'crafting' : Skill := 'x';
'defense' : Skill := 'd';
'farming' : Skill := 'f';
'fishing' : Skill := 'w';
'fletching' : Skill := 'e';
'herblore' : Skill := 'h';
'hitpoints' : Skill := 'l';
'hunter' : Skill := 'v';
'magic' : Skill := 'm';
'mining' : Skill := 'i';
'prayer' : Skill := 'y';
'ranged' : Skill := 'r';
'runecrafting' : Skill := 'h';
'slayer' : Skill := 's';
'smithing' : Skill := 'b';
'strength' : Skill := 'c';
'summoning' : Skill := 'o';
'theiving' : Skill := 't';
'woodcutting' : Skill := 'j';
end;
SendKeysVB('{ENTER}', true);
Wait(500 + Random(750));
TypeSend1('s');
Wait(500 + Random(750));
TypeSend1(Skill);
Wait(500 + Random(750));
TypeSend1(IntToStr(QS));
Wait(250 + Random(250));
end;