SRL Archive - Archive

ProphesyOfWolf - SRL Member Application Form


Goobs

2008-08-25 02:19:24

<!– BEGIN TEMPLATE: formanswers –>
ProphesyOfWolf - SRL Member Application Form
ProphesyOfWolf

What is the meaning to life?
To learn, to love, and to liquor. :f:

Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge


Other Communitys
Sythe.org

How Long have You Played Runescape
~8 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hello there ^.^

My name is ProphesyOfWolf (Also known as Faelstorm). I'd like to take a second to explain a few things..

I created this account first when I joined SRL-Forums. I didn't get the activation email, and wasn't sure how to go about getting it activated, so I made Faelstorm. I got Jr Members with him, and released a few *now horribly made* scripts.

Eventually, I asked someone (can't remember who) to resend me an activation email for ProphesyOfWolf. I got it registered, then got to Jr Members yesterday. This account has been activated for a few months; I just hadn't gotten around to getting Jr. Members.

I know my post count is low, and that's not because I'm a leecher (which I'm not). I have a job, and work quite alot, so I don't have much time to browse the forums. Of course, now that schools starting, I will have more time at home, which I can use to post more.

I wanted ProphesyOfWolf to be my main SRL Members account because that's my favorite alias. Faelstorm was just an account to get to Jr Members to see what awesome scripts laid in wait for me.

After that long break, and alot of learning, I have come up with my own script, called PoW Ecto Runner. It crushes bones, fills buckets with EctoPlasm, and Worships at the Ectofuntus (and everything inbetween.).

Instructions are in the script! (I used SRLPlayerForm, so yeah.)

Please vote me for SRL Members! I have wanted to be one of you for a very long time now.

Thanks for your time,

ProphesyOfWolf

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{##############################################################################
###############################################################################
##########################ProphesyOfWolf Presents:#############################
###############################################################################
######################### Ecto Runner Pub V. 1.0 ##############################
### ###
###############################################################################
#### For instructions on how to use this script, ####
#### go to (Future Thread that I will release this in) ####
###############################################################################

For SRL Members and Devs: To use this script, equip a GhostSpeak amulet, and have your ectophial
in your first inventory spot. In your bank, have dragon bones in your first slot (multiple of 12 + 1),
Pots in the second (same rule as bones), and buckets in the third (same). Start standing next to the
Ectofuntus. It will completely automate the ecto worshipping process, with lots of antiban and
antirandoms. I know it's not perfect, and I didn't use the DTM's as much as I'd have liked to. But, I
did it so the leechers would have a reason to post (They post, hence I am motivated to take the time
to make more advanced functions.) So, enjoy! If I get SRL Members with this script, I'll release~)

~PoW

}
program PoWEctoRunner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Users.scar}


var
x, y, EX, EY, EctophialDTM, DgnBnDTM, PotDTM, BucketDTM, I, IC: Integer;
SlimeDTM, PPrayer, BonesCrushed, BucketsFilled: Integer;
TB: TBox;
TimesWorshipped, TotalExp: Integer;
PPin : String;
FB, FE, FW, DE: Boolean;

procedure SetupScript; forward;

procedure DeclareDTMs;
begin
EctophialDTM := DTMFromString('78DA63E465606090624001214B72C1342394C' +
'FC805242451D584AE294455C30D24C4D0CC59918FAA86074888A0' +
'AAF16F8A4755C38FA9462BC81C558D00A67B6CB2BC30CD5140551' +
'3342B13550D1F905024A08607534DC8CA02CCF041B32B747D11AA' +
'1A4E202183AA266C43318A1A00F84E0FE3');
DgnBnDTM := DTMFromString('78DA6314646060E0674001FBB66E01D38C503' +
'E23489E0755CDB17DFB50D50800096E543597CF9E455503328303' +
'554D567232AA1A9019ECA86A36AF588E690E2BAA9A8BA74E61BA0' +
'7CD9C1307F6A3AA1101129CA86AB6AF5D83AA461253CDEE4D1B51' +
'D54803092E0276C9618621869B15808400AA9A5913FA51D588030' +
'9215435A70E1FC274B30801BB40EE11435533B5BB0BD31C095435' +
'2DD55598EE413367D786F598E12C8CAA66F582F998F12E88AAC6D' +
'BCD0D550D3BA69A8EFA3A54352C986188919E3930D3FCE9234750' +
'D5F002095E54353BD7AD4351030022663125');
PotDTM := DTMFromString('78DA6314656060106140018B0A6CC0342394C' +
'FC803244451D56CAA76C2542384AA6643A523AA1A7E20C18DAA66' +
'6E8E15AA1A4120C189AA26CC420C550DC82DECA86A26A698A1AA9' +
'1C054B3A2D80E558D2C90E0415593E7A389AA460ED35FE96E6A98' +
'6AC451D524BBA8A0AA910112B20C688011D35F686AA6A4996386A' +
'134AA9AA545B6A86A7881041F7E35008EF3111F');
BucketDTM := DTMFromString('78DA63E4676060106540018BDB7CC1342394C' +
'FC889A9A629DB0E538D20AA9AD63C7B4C353CA86A927DA550D580' +
'E4B950D5A40748A3AA01D9C38DAA26DE5312558D28A69A8CC4444' +
'C3542A86A663778A2AA11061212A86A26B6B7A3AA110012D2A86A' +
'E6357963FA0B4DCD8472175435DC986AFA4A9D51D40000D8720FF' +
'F');
SlimeDTM := DTMFromString('78DA63146160609062400179117A609A11CA6' +
'7E4031292A86A127D3550D5F00309415435FACA9CA86A8431D508' +
'6E154355230E240450D594E5E4A0AA91C634C7DD941F558D0CA6B' +
'F3A732D31D5C831A001464CF728A0AAE8696C40552384A9A6A9A2' +
'1C337C6451D594C41AA0AA01058532AA9A858DCEA86A40F1254C2' +
'00C8908670092710FB8');
end;

procedure AntiBan;
begin
Case random(50) of
0: RandomRClick;
1: PickUpMouse;
2: RandomMovement;
3: BoredHuman;
end;
end;

procedure DoGrind(Stage: Integer);
begin
If(Stage = 1) then
begin
IC := InvCount;
Mouse(x, y, 2, 2, False);
ChooseOption('Use');
If(FindObjTPA(x, y, 3758393, 8, -1, 10, 10, 15, ['oader'])) then
begin
Mouse(x, y, 2, 2, True);
repeat
Wait(random(50));
until(IC > InvCount)
FindNormalRandoms;
AntiBan;
Wait(1000 +random(100));
end;
end;
If(Stage = 2) then
begin
If(FindObjTPA(x, y, 9023880, 8, -1, 10, 10, 15, ['ind', 'one', 'rinde'])) then
begin
Mouse(x, y, 2, 2, True);
Wait(3000 +random(750));
end;
end;
If(Stage = 3) then
begin
IC := CountItems(PotDTM, 'DTM', [0]);
If(FindObjTPA(x, y, 3558965, 4, -1, 7, 7, 10, ['mpty', 'in'])) then
begin
Mouse(x, y, 2, 2, True);
repeat
Wait(random(50));
until(IC > CountItems(PotDTM, 'DTM', [0]));
end;
end;
end;

procedure TeleToEctofuntus;
begin
GameTab(4);
MakeCompass('N');
SetAngle(True);
FindNormalRandoms;
If(FindDTM(EctophialDTM, EX, EY, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(EX, EY, 2, 2, True);
repeat
Wait(50);
until(FindColor(x, y, 7833437, MMX1, MMY1, MMX2, MMY2))
Wait(500 +random(250));
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 5211502, 5, -1, 20, 20, 33, ['ctofu'])) then
begin
Mouse(EX, EY, 2, 2, True);
Mouse(x, y, 2, 2, True);
FindNormalRandoms;
AntiBan;
end
else
If(FindColor(x, y, 4934481, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 2, 2, True);
Flag;
FindNormalRandoms;
AntiBan;
Mouse(EX, EY, 2, 2, True);
MakeCompass('W');
If(FindObjTPA(x, y, 5211502, 5, -1, 20, 20, 33, ['ctofu'])) then
begin
Mouse(x, y, 3, 3, True);
Flag;
Wait(250 +random(250));
FindNormalRandoms;
AntiBan;
MakeCompass('N');
end;
end;
end;
end;

procedure GrinderStairs;
begin
If(FindColor(x, y, FindLadderColor, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y + 8, 2, 2, True);
MakeCompass('E');
AntiBan;
FFlag(10);
If(FindObjTPA(x, y, 3822919, 4, -1, 10, 10, 8, ['limb', 'aircas'])) then
begin
Mouse(x, y, 5, 3, True);
FindNormalRandoms;
repeat
Wait(50);
until(not(FindColor(x, y, 10456191, MMX1, MMY1, MMX2, MMY2)))
end;
MakeCompass('N');
RadialWalk(4412238 , 294, 327, 40, 2, 2);
Flag;
Wait(750 +random(200));
SetAngle(True);
MakeCompass('N');
end;
end;

procedure TrapDoor;
begin
SetAngle(True);
MakeCompass('N');
AntiBan;
FindNormalRandoms;
RadialWalk(65536 , 215, 280, 40, 0, 0);
Flag;
Wait(1000 +random(500));
If(FindObjTPA(x, y, 2834219, 1, -1, 15, 15, 23, ['pen', 'door'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
Flag;
Wait(2000 +random(250));
end;
If(FindObjTPA(x, y, 1381655, 1, -1, 15, 15, 23, ['rapdoo'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
Flag;
Wait(1200 +random(250));
end;
end;

procedure PathAndFill;
begin
FindNormalRandoms;
AntiBan;
SetRun(True);
Mouse(700, 80, 2, 2, True);
Wait(7500 +random(2000));
Flag;
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 1519909, 4, -1, 20, 20, 33, ['own', 'airs'])) then
begin
Mouse(x, y, 2, 2, True);
Wait(1000 +random(1000));
FindNormalRandoms;
AntiBan;
end;
If(FindColor(x, y, 238, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 3, 3, True);
FindNormalRandoms;
AntiBan;
Flag;
end;
If(FindObjTPA(x, y, 1123355, 4, -1, 20, 20, 33, ['own', 'airs'])) then
begin
Mouse(x, y, 2, 2, True);
Wait(1000 +random(1000));
FindNormalRandoms;
AntiBan;
end;
Mouse(675, 85, 2, 2, True);
FindNormalRandoms;
AntiBan;
Flag;
If(FindObjTPA(x, y, 1519909, 4, -1, 20, 20, 33, ['own', 'airs'])) then
begin
FindNormalRandoms;
AntiBan;
Mouse(x, y, 2, 2, True);
Wait(1000 +random(1000));
end;
If(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
Wait(300 +random(250));
Mouse(195, 175, 4, 4, True);
repeat
Wait(50 +random(20));
until(not(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2)))
FindNormalRandoms;
AntiBan;
end;
end;

procedure WalkToBank;
begin
MakeCompass('N');
SetRun(True);
FindNormalRandoms;
AntiBan;
RadialWalk(5597787, 150, 190, 60, 2, 2);
SetAngle(False);
I := 5;
repeat
If(FindObjTPA(x, y, 7638635, i, -1, 10, 10, 15, ['nerg', 'arrie'])) then
begin
Break;
end;
I := I + 3;
until(false);
Mouse(x, y, 2, 2, False);
ChooseOption('Pay-toll');
Wait(1400 +random(100));
Flag;
SetAngle(True);
RadialRoadWalk(5597787, 170, 185, 70, 3, 3);
RadialRoadWalk(5597787, 150, 180, 60, 3, 3);
RadialRoadWalk(5597787, 109, 121, 68, 3, 3);
MakeCompass('S');
If(FindColor(x, y, 1365483, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y, 2, 2, True);
Flag;
SetAngle(True);
end;
end;

procedure TalkToDisciple;
begin
Wait(1000 +random(250));
ClickToContinue;
Wait(1000 +random(250));
ClickToContinue;
Wait(1000 +random(250));
end;

procedure FindDisciple;
begin
repeat
If(FindObjTPA(x, y, 9483162, 10, -1, 15, 15, 20, ['host', 'iscipl'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, False);
ChooseOption('isciple');
Flag;
repeat
Wait(50);
until(InConvo)
TalkToDisciple;
Exit;
end
else
If(FindColor(x, y, 4934481, MMX1, MMY1, MMX2, MMY2)) then
begin
Mouse(x, y + 5, 2, 2, True);
Flag;
For I := 0 to 360 do
begin
repeat
MakeCompass(''+IntToStr(I));
I := I + 45;
If(FindObjTPA(x, y, 9483162, 10, -1, 15, 15, 20, ['host', 'iscipl'])) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, False);
ChooseOption('isciple');
Flag;
repeat
Wait(50)
until(InConvo)
TalkToDisciple;
Exit;
end;
until(false)
end;
end;
until(false);
end;

procedure WorshipEctofuntus;
begin
repeat
If(FindObjTPA(x, y, 5211502, 5, -1, 20, 20, 33, ['orsh', 'ctofu'])) then
begin
Mouse(x, y, 3, 3, True);
Wait(1000 +random(250));
end;
until(not(FindColor(x, y, 2145817, MIX1, MIY1, MIX2, MIY2)))
end;

procedure Bank1;
begin
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 859419, 2, -1, 10, 10, 15, ['ank', 'ooth'])) then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('uickl');
Flag;
repeat
Wait(random(125));
until((PinScreen) or (BankScreen))
If(PinScreen) then
begin
InPin(PPin);
end;
repeat
wait(random(75))
until(BankScreen)
Withdraw(1, 1, 12);
repeat
Wait(random(75));
until(FindDTM(DgnBnDTM, x, y, MIX1, MIY1, MIX2, MIY2))
Withdraw(2, 1, 12);
repeat
Wait(random(75));
until(FindDTM(PotDTM, x, y, MIX1, MIY1, MIX2, MIY2))
CloseBank;
end;
end;

procedure Bank2;
begin
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 859419, 2, -1, 10, 10, 15, ['ank', 'ooth'])) then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('uickl');
Flag;
If(PinScreen) then
begin
InPin(PPin);
end;
repeat
Wait(random(75));
until(BankScreen);
Withdraw(3, 1, 12);
repeat
Wait(random(75));
until(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2))
CloseBank;
end;
end;

procedure Bank3;
begin
FindNormalRandoms;
AntiBan;
If(FindObjTPA(x, y, 859419, 2, -1, 10, 10, 15, ['ank', 'ooth'])) then
begin
Mouse(x, y, 3, 3, False);
ChooseOption('uickl');
Flag;
If(PinScreen) then
begin
InPin(PPin);
end;
repeat
Wait(random(75));
until(BankScreen)
Deposit(15, 28, True);
repeat
Wait(random(75));
until(not(FindDTM(BucketDTM, x, y, MIX1, MIY1, MIX2, MIY2)))
Withdraw(1, 1, 12);
repeat
Wait(random(75));
until(FindDTM(DgnBnDTM, x, y, MIX1, MIY1, MIX2, MIY2))
CloseBank;
end;
end;

procedure SetupScript;
begin
SetupSRL;
DeclareDTMs;
ScriptId := '970';
SRLPlayerForm(True, ['Use SMART?', 'Signed client?'], ['SMART World?', 'How many bones to do'], ['Bank Pin', 'SRL ID', 'SRL Password'], []);
SRLID := Players[CurrentPlayer].Strings[1];
SRLPassword := Players[CurrentPlayer].Strings[2];
PPin := Players[CurrentPlayer].Strings[0];
If(Players[CurrentPlayer].Booleans[0]) then
begin
// SmartSetupEx(Players[CurrentPlayer].Integers[0], True, Players[CurrentPlayer].Booleans[1], False);
// SetTargetDC(SmartGetDC);
end
else
ActivateClient;
Wait(1000 +random(250));
end;

procedure ProgressReport;
begin
If(FB) then
begin
ReportVars[1] := 12;
BonesCrushed := BonesCrushed + 12;
FB := False;
end;
If(FE) then
begin
ReportVars[0] := 12;
BucketsFilled := BucketsFilled + 12;
FE := False;
end;
If(FW) then
begin
ReportVars[2] := 12;
TimesWorshipped := TimesWorshipped + 12;
ReportVars[3] := 288;
TotalExp := TotalExp + 288;
FW := False;
end;
SRLRandomsReport;
ClearDebug;
WriteLN('/\/\/\/\/\/\/\PoW Ecto Runner');
WriteLN('##Ran for: '+TimeRunning+'.');
WriteLN('##Crushed '+IntToStr(BonesCrushed)+' bones,');
WriteLN('##got '+IntToStr(BucketsFilled)+' buckets of ectoplasm,');
WriteLN('##and worshipped '+IntToStr(TimesWorshipped)+' times,');
WriteLN('##gaining you '+IntToStr(TotalExp)+' exp!');
WriteLN('#########################');
end;

procedure ClearAllVars;
begin
BonesCrushed := 0;
BucketsFilled := 0;
TimesWorshipped := 0;
TotalExp := 0;
end;

procedure MainLoop;
begin
repeat
If(not(LoggedIn)) then
begin
LoginPlayer;
end;
MakeCompass('N');
PPrayer := GetSkillLevel('Prayer');
WalkToBank;
Wait(750 +random(150));
Bank1;
TeleToEctofuntus;
repeat
MakeCompass('N');
GrinderStairs;
Wait(1000 +random(250));
for I := 1 to 28 do
begin
TB := InvBox(I);
if ExistsItem(I) then
begin
If(FindDTM(DgnBnDTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2)) then
begin
DoGrind(1);
DoGrind(2);
DoGrind(3);
end;
If(not(FindDTM(DgnBnDTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2))) then
begin
If(not(FindDTM(DgnBnDTM, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Break;
end;
end;
end;
end;
TeleToEctofuntus;
FB := True;
ProgressReport;
Wait(1000 +random(500));
WalkToBank;
Wait(500 +random(200));
Bank2;
TeleToEctofuntus;
Wait(750 +random(150));
TrapDoor;
Wait(750 +random(150));
PathAndFill;
Wait(750 +random(150));
TeleToEctofuntus;
FE := True;
ProgressReport;
Wait(750 +random(150));
WorshipEctofuntus;
FW := True;
ProgressReport;
If(Players[CurrentPlayer].Integers[2] >= 24) then
begin
WalkToBank;
Bank3;
TeleToEctofuntus;
end;
until(TimesWorshipped = Players[CurrentPlayer].Integers[2])
LogOut;
ClearAllVars;
NextPlayer(False);
until(false)
end;

begin
SetupScript;
MainLoop;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

MylesMadness

2008-08-25 06:28:20

Standards are off everywhere, like there is maybe 10 lines that are right.

NiCbaZ

2008-08-25 06:30:39

good app, but not good enough im afraid not many advanced functions there and standars are off, il be watching if you apply again ;) keep up the good work :)

Scaper

2008-08-25 07:00:24

not a bad app. standards are way off tho could do with more work nice try ill be wqtching for you applying again. become more active and learn better standerds NO this time.

boberman

2008-08-25 09:16:46

I thought it was good enough.

There are some things I would change though. For example. You shouldn't have 5 findbank functions. Instead if something is really different put it in a new function with a new name a call that function from your find bank function.

Comments are everything. A nice script should have a fair amount of comments explaining what is going on. It helps you and it helps us. Yes, we can deduce what is going on from just reading the script, but comments make it so much easier for us to know what is going on in you brain.

Global variables are bad, and you use them exclusively. Pass parameters, but don't use globals as a way to transmit data. When you do that, it makes it so that you can't transfer functions should you ever want to use the same function in another script.

Negaal

2008-08-25 09:58:20

Yes, try watching standards, good luck..

Nava2

2008-08-25 10:23:48

No, you need to write some more advanced code. Instead of FindObjTPA, you should write your own TPA function.

Also, you need MANY more failsafes. On every loop, you need a failsafe. Not just one simple end.

Cases, you don't use them. Check out my guide if you don't know how. They improve code, and compiling time.

Good luck in the future. :)

sirlaughsalot

2008-08-25 10:28:31

um, i may just be stupid but, findcolor? you should use findcolortolerance or findcolorspiraltolerance… Hardly any failsafes that i can see, make your own TPA's using findobjTPA is fine to use in a normal script but for members apps try to be as advanced as possible. For walking try to make some DDTMs for failsafes or somethin… at least use if/then cuz RRW returns a boolean, i dont believe i can vote yet (i need to pay attention to these things) but it would be a no.

So
*Improve on failsafes
*Make DDTMs for walking
*Use Color Tolerance
*Make your own TPAs

Naum

2008-08-25 10:57:14

Sorry it's a no. The script is superb, just do more than 50 thoughtfull posts and its a yes.

Goobs

2008-08-25 12:45:57

@Nauman :Okey dokey, I'll try to get more posts

@Mylesmadness: The only part (from the three tutorials I just looked at) of my standards that it wrong is the begins >.>

Not to be rude, but please give specific examples of what I messed up on. Just saying my standard are wrong isn't telling me what to fix, really. Again, not trying to be rude ^.^

@Everyone else:

It's not that I don't know how to use the advanced functions. I just had a hard time getting specific things working (such as finding an existing item (I), then searching for the Dragon Bone DTM in that spot.) I kept having problems with my For To Do loops, and simplified alot of things.

I'm not gonna give up on Members =P

@laughsalot TBH, i just recently learned FindOBjTPA (I had taken a long break, and had used FindObjCustom before). I somewhat understand how TPA's work (in this case, they search for the pixels with very similar colors, and stored them in TPA[0].x, TPA[0].y coordinates). I just used FindOBJTPA because I wasn't sure how to make my own function for it =\

I suppose I could look at some tutorials, or just look at SRL to see how those functions are put together.

Ehm.. Do I have to wait for a month to reapply? *cries* =P

(I think I'll take a break from this script for now, and make a different one.. The same colors everywhere was REALLY getting on my nerve…)

Thank you for your positive input,

ProphesyOfWolf

sirlaughsalot

2008-08-25 13:48:55

dont capitalise bold things such as begin, but Funcion/Procedure can be capitalised
add 2 Spaces after begin,repeat,case,an if/then without a begin ( i think thats it)
and deduct 2 spaces after end,until
put semicolon after every line (at least the ones without parentheses)

im pretty sure that is all the standards…

If you have a good attitude they will let you reapply in 2 weeks and it looks like you do…

MylesMadness

2008-08-28 19:40:48

From: ProphesyOfWolf
@Mylesmadness: The only part (from the three tutorials I just looked at) of my standards that it wrong is the begins >.>
Well the begins make everything else off ;)

P1nky

2008-08-28 20:48:46

the findobjtpa isnt it used alot?

just make your own tpa and if you done that i wouldev said yes

sorry no from me
improve standards too, <<btw tat wasnt the reason why i voted no, thats a minor thing im not good at standards too lol :p

nielsie95

2008-08-31 08:03:36

It seems like you're not getting in, sorry.
You may try again in two weeks, good luck :)
Closed.