SCAR Code:
{//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
This is my first publicly released script since last year. I have been out of
SRL for about a year, and have decided to come back. I had this powercutter
before but never got it to work, I am hoping it will do now. Thanks for taking
the time to use my script. Please post any problems or progress reports on the
thread you got this from, as if you don't post, I dont know what to update. SRL
stats are NEEDED for this script to work, so you have to have them otherwise the
script will not run!
~ Torrent of Flame
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Credits to;
- Cazax; Fixed my EntFinder troubles.
- Camo¤Kyle; I learnt alot on TPA's from his PowerCutter script.
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\///
|Title: The Anywhere Power Cutter |
|By: Torrent of Flame |
|Scar/Revision: Scar 3.15b SRL 4.0 Rev 29/30 |
|Version: Version 0.1b |
|Description: The Anywhere Power Cutter will cut any tree from the following |
| and will drop them: |
| - Normal |
| - Oak |
| - Willow |
| - Maple |
| - Yew |
| |
|Setup: Enter your SRL ID and Password at lines 26 and 27, |
| Then Declare your players at lines 45 - 57 | |
| (More players can be added if necessary)Make sure you enter your tree |
| type all LOWER CASE. Make sure your character is logged out and in a |
| place near to where your trees are. There are several areas good for |
| trees: |
| 'Normal' - South of Seers Village Bank, past the Maple Trees(P2P) |
| Lumbridge Swamp(F2P) |
| 'Oak' - Not quite sure of a good Oak area |
| 'Willows' - Draynor or Port Sarim (Recommend Draynor - More Trees) |
| 'Maples' - The Sinclar Mansion, or behind Seers Bank. (P2P) |
| |
| //You probably wont set it to run and drop Yews but...\\ |
| 'Yews' - North of Varrock Castle (F2P) |
| Catherby Trees (West of Candle Salesman)(P2P) |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.1 Includes: |
| - TPA Tree Finding |
| - AntiRandoms |
| - AntiBan |
| - Broken Axe Finder |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 0.2 Includes: |
| - Improved Tree Finding |
| - EntFinder | |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program AnyWherePowerChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
YourSRLId = '';
YourSRLPassword = '';
{/\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Integers[0]:= 10; //Loads to Do;
Players[0].Strings[0] := 'willow';
{ Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[1].Integers[0]:= 10; //Loads to Do;
Players[1].Strings[0] := 'oak';
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[2].Integers[0]:= 10; //Loads to Do;
Players[2].Strings[0] := 'willow';
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[3].Integers[0]:= 10; //Loads to Do;
Players[3].Strings[0] := 'maple';
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[4].Integers[0]:= 10; //Loads to Do;
Players[4].Strings[0] := 'yew'; }
end;
//---------------------------- DO NOT EDIT BELOW HERE ------------------------\\
//------------------------ Unless you know what your doing -------------------\\
var x, y, i, Dropped, BrokenAxe, BrokenAxes, Loads, WcLvl, EndWcLvl, LoadsCompleted, LoadsUntilSwitch: integer;
procedure LoadDTMs; forward;
procedure ProgressReport; forward;
procedure PowerDrop; forward;
//-----Anti-Ban!!-----\\
procedure AntiBan;
begin
case Random(7) of
0 : MMouse(0, 0, 700, 500);
1 : Hoverskill('Woodcutting', false);
2 : BoredHuman;
3 : RandomMovement;
4 : GameTab(1);
5 : PickupMouse;
end;
end;
//-----Anti-Randoms!!-----\\
procedure Fight;
begin
if (FindFight) then
begin
RunAway('E', False, 1, 1000 + Random(500));
end;
end;
procedure FindRandoms;
begin
FindNormalRandoms;
FindLamp('Woodcutting');
Fight;
end;
//-----IsAxeBroken?-----\\
Procedure IsAxeBroke;
begin
if FindDTM(BrokenAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
BrokenAxes := BrokenAxes +1;
ReportVars[0] := ReportVars[0] + 1;
LogOut;
NextPlayer(False);
Writeln('Players Switched successfully')
end;
end;
//-----Tree Cutting-----\\
procedure CutTree;
var Failed: integer;
TreeColors: array [0..3] of integer;
begin
if (not LoggedIn) then Exit;
MakeCompass('W');
case lowercase(Players[CurrentPlayer].strings[0]) of
'normal': begin
TreeColors[0] := 332817;
TreeColors[1] := 3765091;
TreeColors[2] := 2179633;
TreeColors[3] := 3230282;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']) then
begin
repeat
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(200 + Random(200));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']);
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) do
repeat
MakeCompass('S');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Tree', 'Tre', 'ree']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end;
end;
end;
'oak': begin
TreeColors[0] := 2584416;
TreeColors[1] := 3305828;
TreeColors[2] := 4162678;
TreeColors[3] := 5544845;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']) then
begin
repeat
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(2000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']);
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
while(not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
Inc(Failed);
MakeCompass('S');
Wait(3000 + Random(1500));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
MakeCompass('N');
Wait(3000 + Random(1500));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Oak', 'Oa', 'ak']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end;
end;
end;
'willow': begin
TreeColors[0] := 2181686;
TreeColors[1] := 6193521;
TreeColors[2] := 3755332;
TreeColors[3] := 3234376;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) then
begin
repeat
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(3000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']);
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('N');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('E');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('W');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end;
end;
end;
'maple': begin
TreeColors[0] := 1319487;
TreeColors[1] := 725796;
TreeColors[2] := 2177124;
TreeColors[3] := 1385537;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']) then
begin
repeat
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(2000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']);
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Maple', 'Map', 'apl', 'ple']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end;
end;
end;
'yew': begin
TreeColors[0] := 3241318;
TreeColors[1] := 2119755;
TreeColors[2] := 2645844;
TreeColors[3] := 3240035;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']) then
begin
repeat
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(2000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])
MMouse(x, y, 2, 2);
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']);
if Invfull then
begin
PowerDrop;
FindRandoms;
Inc(Loads);
end;
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
MakeCompass('N');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
MakeCompass('E');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
MakeCompass('W');
Wait(1000 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Yew', 'Ye', 'ew']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end;
end;
end;
end;
end;
procedure PowerDrop;
begin
MouseSpeed:= 16;
begin
for i:= 2 to 28 do
begin
DropItem(i);
Inc(Dropped);
ReportVars[1] := ReportVars[1]+ 1;
end;
end;
end;
procedure AntiLeech;
begin
if (SRLId = '') or (SRLPassword='')then
begin
Writeln(' Dont Leech. Sign up at SRL.');
Wait(500+ random (50));
Writeln(' This script wont work until you do sign up!');
Wait(500+ random (50));
Writeln(' Thank you.');
Wait(600+ random (50));
Writeln(' ~ToF');
Wait(600+ random (50));
TerminateScript;
end;
end;
procedure GetWoodcuttingLevel;
begin
GameTab(2);
WcLvl := GetSkillLevel('Woodcutting');
end;
procedure GetTheEndWoodcuttingLevel;
begin
GameTab(2);
EndWcLvl := GetSkillLevel('Woodcutting');
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\ Please Post Progress Reports & Any problems /\');
Writeln('/\ Torrent of Flames /\');
Writeln('/\ Anywhere Powercutter /\');
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\ Time Running : ' + TimeRunning + ' /\');
Writeln('/\ Done '+ IntToStr(Loads) +' loads /\');
Writeln('/\ Broke '+ IntToStr(BrokenAxes) +' axes /\');
Writeln('/\ Dropped '+ IntToStr(Dropped) +' logs /\');
Writeln('/\ Current WC Level: '+ IntToStr(EndWcLvl) +' /\');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\\');
Writeln('//\\ Thanks for Using my Script :D //\\');
Writeln('`````````````````````````````````````````````````');
end;
//Load DTMs\\
procedure LoadDTMs;
begin
BrokenAxe := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
'5C04D4D400D5A8E05703008C0604B4');
end;
//Signature\\
procedure Signature;
begin
ClearDebug;
wait(250 + random(30));
writeln('-------Torrents AnyWhere Power Chopper-------');
wait(250 + random(30));
writeln(' ______ __ ');
wait(250 + random(30));
writeln(' /_ __/__ ___________ ___ / /_ ');
wait(250 + random(30));
writeln(' / / / _ \/ __/ __/ -_) _ \/ __/ ');
wait(250 + random(30));
writeln(' /_/ \___/_/ /_/ \__/_//_/\__/ ');
wait(250 + random(30));
writeln(' ');
writeln('---------------------------------------------');
wait(500 + random(30));
end;
//Setup Script\\
procedure DoOnce;
begin
ClearDebug;
{AntiLeech;}
SetupSRL;
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
ScriptID:= '1122';
DeclarePlayers;
LoadDTMs;
LoginPlayer;
end;
//Main Loop\\
procedure MainLoop;
begin
LoadsCompleted:= 0;
MakeCompass('N');
SetAngle(True);
Wait(1000);
SetRun(True);
repeat
repeat
LoadsUntilSwitch := Players[CurrentPlayer].integers[0];
CutTree;
Inc(LoadsCompleted);
GetTheEndWoodcuttingLevel;
ProgressReport;
until (LoadsCompleted = LoadsUntilSwitch) or (not LoggedIn)
if LoadsCompleted = LoadsUntilSwitch then
NextPlayer(True);
if (not LoggedIn) then
NextPlayer(False);
ProgressReport;
LoginPlayer;
until (AllPlayersInactive);
ProgressReport;
TerminateScript;
end;
begin
DoOnce;
Signature;
MainLoop;
ProgressReport;
end.
//--- End of Script ---\\
Thanks for using.
AnyWhere Power Cutter 0.1b
Torrent of Flame