# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)

# ---------- Increment Decrement URL ------------------------------------------------------------------------------------
#
# Dependencies	: main.kmm (ExecMacros, OpenURL)
# Resources	: -
# Preferences	: -
#
# ------------------------------------------------------------------------------------------------------------------

IncrementURLStarter{
$uStr = $URL; $uSub = "";
$uExt = ".jpg"; $r = 1; $s = 2; $go = 98;
index($uStr, $uExt)!=-1?while ($go > 0) &IncrementInternal:0;
$uExt = ".gif"; $r = 1; $s = 2; $go = 98;
index($uStr, $uExt)!=-1?while ($go > 0) &IncrementInternal:0;
$uExt = ".png"; $r = 1; $s = 2; $go = 98;
index($uStr, $uExt)!=-1?while ($go > 0) &IncrementInternal:0;
$uExt = ".jpg"; length($uSub)<=1?&IncChkMore:0;
$uExt = ".gif"; length($uSub)<=1?&IncChkMore:0;
$uExt = ".png"; length($uSub)<=1?&IncChkMore:0;
length($uSub)>1?open($uSub):0;
}

IncrementInternal{
$go>90 ? $s = "0".$s:0; $go>89 ? $r = "0".$r:0;
$chkStr = $r.$uExt; $chkRep = $s.$uExt;
index($uStr, $chkStr)!=-1?$uSub = gsub($chkStr, $chkRep, $uStr):0;
length($uSub)>1 ? $go = 0:$go = $go - 1;
$r = $r + 1; $s = $s + 1;
}

DecrementURLStarter{
$uStr = $URL; $uSub = "";
$uExt = ".jpg"; $r = 0; $s = 1; $go = 98;
index($uStr, $uExt)!=-1?while ($go > 0) &DecrementInternal:0;
$uExt = ".gif"; $r = 0; $s = 1; $go = 98;
index($uStr, $uExt)!=-1?while ($go > 0) &DecrementInternal:0;
$uExt = ".png"; $r = 0; $s = 1; $go = 98;
index($uStr, $uExt)!=-1?while ($go > 0) &DecrementInternal:0;
$uExt = ".jpg"; length($uSub)<=1?&DecChkMore:0;
$uExt = ".gif"; length($uSub)<=1?&DecChkMore:0;
$uExt = ".png"; length($uSub)<=1?&DecChkMore:0;
#alert($chkStr.\n.$chkRep.\n.$uStr,"",INFO);
length($uSub)>1?open($uSub):0;
}

DecrementInternal{
$go>89 ? $s = "0".$s:0; $go>88 ? $r = "0".$r:0;
$chkStr = $s.$uExt; $chkRep = $r.$uExt;
index($uStr, $chkStr)!=-1?$uSub = gsub($chkStr, $chkRep, $uStr):0;
length($uSub)>1 ? $go = 0:$go = $go - 1;
$r = $r + 1; $s = $s + 1;
}

IncChkMore{
$ia = index($uStr, $uExt); $ia!=-1?$ib = $ia - 1:$ib = 0;
$ib!=0?$ic = substr($uStr,$ib,1):$ic = -1;
$ic==0? $irep = 1 : $ic==1? $irep = 2 : $ic==2? $irep = 3 : $ic==3? $irep = 4 : $ic==4? $irep = 5 : $ic==5? $irep = 6 : $ic==6? $irep = 7 : $ic==7? $irep = 8 : $ic==8? $irep = 9 : $ic==9? $irep = 10 : $irep = -1;
$irep!=-1?$uSub = gsub($ic.$uExt, $irep.$uExt, $uStr):0;
}

DecChkMore{
$ia = index($uStr, $uExt); $ia!=-1?$ib = $ia - 1:$ib = 0;
$ib!=0?$ic = substr($uStr,$ib,1):$ic = -1;
$ic==9? $irep = 8 : $ic==8? $irep = 7 : $ic==7? $irep = 6 : $ic==6? $irep = 5 : $ic==5? $irep = 4 : $ic==4? $irep = 3 : $ic==3? $irep = 2 : $ic==2? $irep = 1 : $ic==1? $irep = 0 : $ic==10? $irep = 9 : $irep = -1;
$irep!=-1?$uSub = gsub($ic.$uExt, $irep.$uExt, $uStr):0;
}

# ----- PRIVATE

_IncDecURL_BuildMenu{
setmenu("",inline,IncDec);
setmenu(IncDec,macro,"&- Decrement URL",DecrementURLStarter,1);
setmenu(IncDec,macro,"&+ Increment URL",IncrementURLStarter,2);
}

$OnInit=$OnInit."_IncDecURL_BuildMenu;";

# ------------------------------------------------------------------------------------------------------------------
$macroModules=$macroModules."IncDecURL;";