Okay first off I just have to say; wow ... I mean, I remember using SRL and SCAR since like ... 2004 ? ;P I thought it got removed.
Ok, so here we go. Uhm, I'm currently trying to make a simple script that fishes manta rays on BattleScape..
Yes, I am a noob, and I can't really code this stuff lol, started 5 minutes ago.
This is what I've got:
Code:program NewFish; var amin,gamin,vamin,hamin:integer; procedure FishingMantas; begin vamin := 500 + random (78); wait (vamin) Writeln('Fishing Mantas...') Hamin := 500 + random(70); wait(hamin); MoveMouse(567,237) Hamin := 500 + random(70); wait(hamin); ClickMouse(567,237,False) Gamin := 100 + random (400); wait(gamin); MoveMouse(557,269) Hamin := 500 + random(70); wait(hamin); ClickMouse(557,269,True) Amin := 2000 + random(500); wait (amin); vamin := 500 + random (78); wait (vamin) Writeln('Fishing Mantas...') Hamin := 500 + random(70); wait(hamin); MoveMouse(567,237) Hamin := 500 + random(70); wait(hamin); ClickMouse(567,237,False) Gamin := 100 + random (400); wait(gamin); MoveMouse(557,269) Hamin := 500 + random(70); wait(hamin); ClickMouse(557,269,True) Amin := 2000 + random(500); wait (amin); end; //-------------------------------------------------------------------- procedure WalkingToBank; begin vamin := 500 + random (78); wait (vamin) Writeln('Walking to Bank...') Hamin := 500 + random(70); wait(hamin); MoveMouse(955,16) Hamin := 500 + random(70); wait(hamin); ClickMouse(955,16,True); Amin := 2000 + random(500); wait (amin); WalkingToBank; repeat until(False); end; begin end. //BattleScape FishingBot ;))
Well, what happens is, first, I got it working with only the fishing (without banking)..
Then, I tried to add banking, so I started testing. The banking part is not finished.. But I tried running it, after adding the bank part, but, however, it just said "Successfully compiled" and then "successfully executed" and stopped.. Please help me ? Feel free to also give me some advise please![]()


Reply With Quote







