Looney Merchanter

I made this script a little bit ago, I used a function of someones in here with their permission and I noted them in the script, post your comments!

I like hearing all feedback even, "This script sucks" i just love feedback!
Oh yeah in the script it says something about someone named 'GoFez0r" he was my partner who didnt do much...if he did he put his name somewhere in the script....

edit: srl needed

Code (Text):

1. {.Script Info:
2. # ScriptName  = Looney/Gofez0rs Merchanter
3. # Author      = LooneyToon and GoF aka Gofez0r
4. # Description = AutoTypes and Accepts Trade
5. # Version     = 1.1
6. # Date        = January 13, 2007.
7. # Comments    = Please give feedback!
8. /Script Info}
9. {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
10. +    _    _    _    _    _    _     _     _    _    _    _    _    _    _      +
11. +   / \  / \  / \  / \  / \  / \   / \   / \  / \  / \  / \  / \  / \  / \     +
12. +  ( L )( o )( o )( n )( e )( y ) ( & ) ( G )( o )( F )( e )( z )( 0 )( r )    +
13. +   \_/  \_/  \_/  \_/  \_/  \_/   \_/   \_/  \_/  \_/  \_/  \_/  \_/  \_/     +
14. <++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
15. +                                 ==========                                   +
16. +                                 Directions                                   +
17. +                                 ==========                                   +
18. +                                                                              +
19. +                Set "Public Chat" to 'Hide','Friends', or 'Off'               +
20. +                           Set "Trade/Compete" to 'On'                        +
21. +                                Set Constants                                 +
22. +                   Change wait type in line 87 and 106 (Optional)             +
23. <++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
24.  
25. program LooneyMerchant;
26.  
27. {.Include SRL/SRL.Scar}
28. {.include srl\srl\extended\xtext.scar}
29. {.include srl/srl/misc/amount.scar}
30.  
31. Const
32. ItemBuying = 'BuyingItem';//This is the Item you want to Buy
33. ItemSelling = 'SellingItem';//This is the Item you want to Sell
34. AmountBuying = 'xxxGP';//This is the amount your buying for
35. AmountSelling = 'xxxGP';//This is the amount your selling for
36. Username = 'username';//Type in your username
37. EffectOfChat = 'color:action:';//ChatEffect Example: 'Purple:Shake'
38. MerchantStatus = False;//True if Buying False if Selling
39.  
40.  
41.  
42. procedure InvGP; //Taken From {.Include SRL/SRL/misc/amount.scar}
43. var GPAvail:integer;
44. begin
45. GPAvail:=CoinAmount('inv');
46. writeln('You Have '+inttostr(GPAvail)+'gp in your inventory');
47. end;
48.  
49. {Function FindTheTrade
50. By: Ransom
51. Description:
52.   Returns True if purple trade color
53. is in the chat window}
54.  
55. Function FindTheTrade : Boolean;
56. var xx, yy : integer;
57. begin
58. if (FindColor(xx,yy,8388736,20,355,425,430) = True) Then
59.   result := True;
60. end;
61.  
62. {Procedure OpenTrade;
63. By: Ransom
64. Description
65.   Opens Trade by clicking trade chat
66.   in chat window}
67.  
68. Procedure OpenTrade;
69. var cx, cy : integer;
70. begin
71. if (FindColor(cx,cy,8388736,20,355,425,430) = True) Then
72.   begin
73.     Wait(500);
74.     Mouse(cx+10,cy+3,0,0,True);
75.     Wait(500);
76.   end;
77. end;
78.  
79. procedure BeginBuying; //Created By Gofez0r
80. var
81.  RWT   :integer;
82.  fx,fy:integer;
83. begin
84. repeat
85.  RWT:=0;
86.   RWT:=Random(4)+1;//Prevents 0 waiting.
87.   RWT:=RWT*1000 //Makes it seconds.
88.    SendMyText((EffectofChat)+' '+'Buying'+' '+(ItemBuying)+' '+(AmountBuying)+'!! '+(Username)+ '!!');
89.    until(FindColor(Fx, Fy, 8388736, 21, 416, 29, 425))
90.     if FindColor(Fx, Fy, 8388736, 21, 416, 29, 425) then
91.     begin
92.    Writeln('We have a trader...?');
93.   OpenTrade;
94.   InvGP;
95.   end;
96. end;
97.  
98. procedure BeginSelling;//Created by GoFez0r
99. var
100.  RWT   :integer;
101.  fx,fy:integer;
102. begin
103. repeat
104.  RWT:=0;
105.   RWT:=Random(4)+1;//Prevents 0 waiting.
106.   RWT:=RWT*1000 //Makes it seconds.
107.    SendMyText((EffectOfChat)+' '+'Selling'+' '+(ItemSelling)+' '+(AmountSelling)+'!! '+(Username)+ '!!');
108.    until(FindColor(Fx, Fy, 8388736, 21, 416, 29, 425))
109.     if FindColor(Fx, Fy, 8388736, 21, 416, 29, 425) then
110.     begin
111.    Writeln('We have a trader...?');
112.   OpenTrade;
113.   InvGP;
114.   end;
115. end;
116.  
117. procedure GetMerchantStatus;
118.  begin
119.   if MerchantStatus = True then
120. BeginBuying;
121.   if MerchantStatus = False then
122. BeginSelling;
123. end;
124.  
125.  
126.  
127.  
128.  
129.  
130.  
131.  
132. begin
133.  repeat
134.  wait(3000+random(1000))
135.  setupsrl;
136.  GetMerchantStatus;
137.  until(false)
138. end.
139.  
140.  
141.  
142.  

 

what... does.. it do?

Also, Only post the credits. Don't post the actual source!

 

Where can you download it ?

 

To download SCAR - type in Scar 2.03 into google - the website is Dylocknet or something.

Then just copy and paste the whole script into the window.

 

To download SCAR - type in Scar 2.03 into google - the website is Dylocknet or something.

Then just copy and paste the whole script into the window.

 

Lol I wanted to try it, but if I try to start runescape I can click on the world I want to choose, and then I only get a gray screen. Can someone help me ?

 

wait wat does it do ???

 

This script will type a message for you, and its not like other auto typers, it types the message as a human and makes errors in the message and then corrects them so its highly undetectable, and then it will kepe typing until someone wants to trade you, if someone tries to trade you it will click the trade and stop typing until the trade is over, the mistake alot of ppl make with auto typing, is they keep typing even while they are trading and thats how alot of people get caught, so with my script you wont have to manually stop typing, it will stop itself, thanks for the replies!