Auto prescribe help

[maynard]

How to edit the percentage? I want it 100% success rate in creating. this is made by Goddameit

//Author:Goddameit
//Web:http://goo.gl/m1dHu
//ver:2011/11/14-18:52
prontera,157,187,4 script BOT Master 100,{
function itemheall {
 if(Sp>=5)
  return 1;
 if(!getarg(0))
  return 0;
 itemheal 0,getarg(0);
 specialeffect2 14;
 return 1;
}
function autorecover {
 if(getarg(1))
 {
  if(Sp>=5)
return 1;
  if(!countitem(set(.@p,autorecover(getarg(0),0))))
return 0;
  delitem .@p,1;
  switch(getarg(0))
  {
case 1: return rand(40,60);
case 2: return rand(15,30);
  }
 }
 switch(getarg(0))
 {
  case 1: return 505;
  case 2: return 510;
 }
 return 0;
}
function need {
 function getitemid {
  function do {
return getarg(getarg(0),0);
  }
  return do(getarg(0),970,7135,7136,7137,7138,7133,501,503,504,
505,545,546,547,12118,12119,12120,12121,605,
606,7142,678,12114,12115,12116,12117,7132);
 }
 function weig {
  if(getiteminfo(getarg(0),6)+weight>MaxWeight)
  {
dispbottom "Too heavy!!";
callsub OnCleann;
end;
  }
  return getarg(0);
 }
 if(getarg(0)==1)
  mes "Below is what you need to prepare,if not enough or sp < 5,it will auto end this function.";
 if(getarg(0)!=99)
 {
  for(set .@i,1;getarg(.@i,0);set .@i,.@i+2)
if(getarg(0)==1){
 mes (getitemname(getarg(.@i))!="null"?"^000088["+getitemname(getarg(.@i))+"("+getarg(.@i)+")]x["+getarg(.@i+1)+"]^000000":"");
}
else if(getarg(0)==0)
{
 if(getitemname(getarg(.@i))!="null")
  if(countitem(getarg(.@i))<getarg(.@i+1)||!itemheall(autorecover(@autorecover,1)))
   callsub OnCleann;
}
else if(getarg(0)==97)
{
 if(getarg(.@i))
  delitem getarg(.@i),getarg(.@i+1);
}else{
 getitem weig(getitemid(@automaketype)),1;
 dispbottom "Success!!";
 break;
}
  return @automaketype;
 }else
  return getarg(1+getarg(1));
}
function nRate {
 function ssme {
  if(getskilllv(getarg(0)))
return;
  mes "["+getarg(1)+"] is necessary.";
  callsub OnCleann;
  close;
 }
 switch(getarg(0))
 {
  case 1: case 2: case 3: case 4: case 5:
  case 6: case 7: case 8: case 9: case 10:
  case 11: case 12: case 13: case 14: case 15:
  case 16: case 17: case 18: case 19: case 20:
ssme(228,"Prepare Potion");
ssme(227,"Potion Research");
return ((getskilllv(228)*300+getskilllv(227)*100+JobLevel*20+readparam(bDex)*10+readparam(bLuk)*10+readparam(bInt)*5+need(99,@automaketype))/10);
  case 21:
ssme(407,"Create Deadly Poison");
return 500;
  case 22: case 23: case 24: case 25:
ssme(1007,"Create Elemental Converter");
return 500;
  case 26:
return 600;
 }
 mes "You can't make this.";
 callsub OnCleann;
 close;
}
callsub OnTalk,10,1;
end;
OnCleann:
set @automaketype,set(@automakedelay,set(@automakemd5,set(@autorecover,0)));
return;[/font]
[font=Arial, Verdana, Tahoma,]OnTalk:
mes "Do you want to turn on(off) auto-prescribe?";
if(select("[On]","[Off]")==2||@automaketype)
{
 mes "{[OFF]}";
 callsub OnCleann;
 close;
}
next;
mes "Do you want to set auto-using item to recover your sp?";
if(select("[No]","[Yes]")==2)
{
 next;
 if(!countitem(autorecover(set(@autorecover,select(.selectc$)),0)))
 {
  mes "Sorry,you don't have this item.";
  callsub OnCleann;
  close;
 }
 mes "Complete.When your sp is lower thant 5,will auto recover.";
}
next;
mes "Choose what you want to creat?";
next;
callsub OnSelect,set(@automaketype,select(.selectr$)),1;
close2;
set @automakemd5,.automakemd5;
addtimer set(@automakedelay,getarg(0)),strnpcinfo(0)+"::OnDo";
end;
OnSelect:
switch(getarg(0))
{
 case 1:
  if(need(getarg(1),905,5,7033,5,1092,1,713,1,7134,1))
break;
  end;
 case 2:
  if(need(getarg(1),970,1,1059,1,713,1,7134,1))
break;
  end;
 case 3:
  if(need(getarg(1),929,1,713,1,7134,1))
break;
  end;
 case 4:
  if(need(getarg(1),1032,2,713,1,7134,1))
break;
  end;
 case 5:
  if(need(getarg(1),1051,1,1050,1,713,1,7134,10))
break;
  end;
 case 6:
  if(need(getarg(1),970,1,950,1,713,1,1044,1,7134,1))
break;
  end;
 case 7:
  if(need(getarg(1),7134,1,507,1,1093,1))
break;
  end;
 case 8:
  if(need(getarg(1),7134,1,508,1,1093,1))
break;
  end;
 case 9:
  if(need(getarg(1),7134,1,509,1,1093,1))
break;
  end;
 case 10:
  if(need(getarg(1),7134,1,510,1,911,1,1093,1))
break;
  end;
 case 11:
  if(need(getarg(1),1092,1,501,1,952,1,7134,1))
break;
  end;
 case 12:
  if(need(getarg(1),1092,1,503,1,1017,1,7134,1))
break;
  end;
 case 13:
  if(need(getarg(1),1092,1,504,1,1061,1,7134,1))
break;
  end;
 case 14:
  if(need(getarg(1),716,1,1093,1,1012,2,7134,1))
break;
  end;
 case 15:
  if(need(getarg(1),717,1,1093,1,950,3,7134,1))
break;
  end;
 case 16:
  if(need(getarg(1),715,1,1093,1,7126,2,7134,1))
break;
  end;
 case 17:
  if(need(getarg(1),717,1,1093,1,1057,3,7134,1))
break;
  end;
 case 18:
  if(need(getarg(1),708,1,713,1,970,1,7134,1))
break;
  end;
 case 19:
  if(need(getarg(1),518,1,713,1,704,1,7134,1))
break;
  end;
 case 20:
  if(need(getarg(1),7140,1,7141,1,7143,1,7134,1))
break;
  end;
 case 21:
  if(need(getarg(1),7033,1,972,1,952,1,939,1,937,1,713,1,657,1))
break;
  end;
 case 22:
  if(need(getarg(1),7433,1,904,3))
break;
  end;
 case 23:
  if(need(getarg(1),7433,1,946,3))
break;
  end;
 case 24:
  if(need(getarg(1),7433,1,947,3))
break;
  end;
 case 25:
  if(need(getarg(1),7433,1,1013,3))
break;
  end;
 case 26:
  if(need(getarg(1),950,1,970,1,713,1,1044,1))
break;
  end;
}
return;[/font]
[font=Arial, Verdana, Tahoma,]OnDo:
if(@automakemd5!=.automakemd5)
{
 callsub OnCleann;
 end;
}[/font]
[font=Arial, Verdana, Tahoma,]callsub OnSelect,@automaketype,0;[/font]
[font=Arial, Verdana, Tahoma,]if(rand(1,1000)<nRate(@automaketype))
{
 callsub OnSelect,@automaketype,98;
 specialeffect2 305;
}else
 specialeffect2 306;
callsub OnSelect,@automaketype,97;
heal 0,-5;
addtimer @automakedelay,strnpcinfo(0)+"::OnDo";
end;[/font]
[font=Arial, Verdana, Tahoma,]OnInit:
set .automakemd5,gettimetick(2);
set .selectr$,"";
while(set(.@p,getitemid(set(.@i,.@i+1))))
 set .selectr$,.selectr$+(.@i==1?"":":")+getitemname(.@p);
set .selectc$,"";
while(set(.@p,autorecover(set(.@j,.@j+1),0)))
 set .selectc$,.selectc$+(.@j==1?"":":")+getitemname(.@p);
end;
}

[QQfoolsorellina]

if(rand(1,1000)<nRate(@automaketype))

change to

if(1)

Edited January 10, 2012 by QQfoolsorellina

[maynard]

done. thank you very much