sellright = true
sellbag1 = false
sellbag2 = false
sellbag3 = false
sellbag4 = true
sellbag5 = true
sellbag6 = true
Nbrun = 0
repeat
cprintf(cli.lightgreen,"\n\n\n Welcome On Graffu's farm !\n\n")
print("Choose run's number: ")
print("\nExample: 1400M=350run, 840M=210run, 770M=193run...")
print("\nNbrun>")
Nbrun = io.stdin:read()
Nbrun = tonumber(Nbrun)
until Nbrun and Nbrun > 0
cprintf(cli.blue, "\n\n Have nice farm on Graffu Beta !\n Create by Solembum05 !\n\n\n")
if Nbrun > 750
then cprintf(cli.red,"\n\n Sorry, Maximum is 750 ! Because 750*4=3000 ! You can't have more of 3000 Mementos \n\n")
yrest(3000)
loadPaths("Graffu Beta.xml");
end
SlashCommand("aid easy")
__WPL:setWaypointIndex(__WPL:findWaypointTag("start"))
function Buff()
player:update()
if not player:hasBuff("506684")
then inventory:useItem(207200);
end
if (not player:hasBuff("506687"))
then inventory:useItem(207203);
end
end
Mcount = 0
function Mcountround()
Mcount = Mcount+1;
end
Dcount = 0
function Dcountround()
Dcount = Dcount+1;
end
Bcount = 0
function Bcountround()
Dcount = Bcount+1;
end
Acount = 0
function Acountround()
Acount = Count*4;
end
Count = 0
function Countround()
Count = Count+1;
end
function number()
End = 0
if ( Nbrun == Count )
then printf("\n\n All run done !\n\n");
End = 1
SlashCommand("ILG destroy")
waitForLoadingScreen()
__WPL:setWaypointIndex(__WPL:findWaypointTag("return"))
end
Mentos = inventory:itemTotalCount(206879)
if ( Mentos == 3000 )
then printf("\n\n Full Ancient Memento !\n\n");
End = 1
SlashCommand("ILG destroy")
waitForLoadingScreen()
__WPL:setWaypointIndex(__WPL:findWaypointTag("return"))
end
end
function lastrun()
restmentos = 3000 - Mentos;
lrun= restmentos / 4 ;
end
function bag()
Rightbag = 0
if ( Rightbag == 0 )
then
local bcount = inventory:getItemCount(0)
if( 5 > bcount )
then
SlashCommand("ILG destroy")
waitForLoadingScreen()
SlashCommand("ILG inv")
__WPL:setWaypointIndex(__WPL:findWaypointTag("return"))
end
end
end
function selling()
if sellright == true
then
player:openStore(117127)
if sellbag1 == true
then RoMScript("Sellslots1()")
yrest(1000)
end
if sellbag2 == true
then RoMScript("Sellslots2()")
yrest(1000)
end
if sellbag3 == true
then RoMScript("Sellslots3()")
yrest(1000)
end
if sellbag4 == true
then RoMScript("Sellslots4()")
yrest(1000)
end
if sellbag5 == true
then RoMScript("Sellslots5()")
yrest(1000)
end
if sellbag6 == true
then RoMScript("Sellslots6()")
yrest(1000)
end
Mcountround()
if End == 1
then
player:sleep();
end
else
Rightbag = Rightbag+1;
if End == 1
then
player:sleep();
end
end
end
function ireset()
SlashCommand("ILG destroy")
yrest(500)
SlashCommand("ILG inv")
end
function Info()
cprintf(cli.pink, "\n\nNbr Round done: %s for %s Mementos win !\n", Count, Acount)
cprintf(cli.pink, "You have %s Mementos ! You chose %s run ! You can do again %s run ! \n",Mentos, Nbrun, lrun)
cprintf(cli.yellow, "Nbr Sell: %s \n", Mcount)
cprintf(cli.red, "Nbr Dead: %s and Nbr Bug: %s\n\n", Dcount, Bcount)
end
ireset()
keyboardPress( key.VK_SPACE );
if not waitForLoadingScreen(15)
then
Bcountround()
player:moveTo(CWaypoint(-8437,45528,758))
waitForLoadingScreen()
player:cast("ROGUE_PREMEDITATION")
fly()
teleportToWP(3)
else
player:cast("ROGUE_PREMEDITATION")
fly()
teleportToWP(3)
end
flyoff()
player:cast("ROGUE_PREMEDITATION") RoMScript("SetTitleRequest(530724)"); Countround() Acountround() yrest(300)
RoMScript("SetTitleRequest(530427)") Buff() fly()
teleportToWP(14)
flyoff() keyboardPress( key.VK_SPACE ); player:cast("ROGUE_HIDE") player:update() number() lastrun() Info() bag()
waitForLoadingScreen() __WPL:setWaypointIndex(__WPL:findWaypointTag("start"))
player:update()
if not player.Mounted then
player:mount()
end
selling()
wallon()
player:update()
walloff()
if player.Mounted then
player:dismount()
end
fly()
flyoff()
yrest(1000)
player:update()
if not player.Mounted then
player:mount()
end
__WPL:setWaypointIndex(__WPL:findWaypointTag("start"))