# 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:$uExt = $uExt;
$a2 = index($uStr, $uExt)!=-1? "TRUE" : "FALSE";
while ($a2=="TRUE") &IncrementInternalNew;
$uExt = ".gif"; $r = 1; $s = 2; $go = 98;
#index($uStr, $uExt)!=-1?while ($go > 0) &IncrementInternal:0;
$a2 = index($uStr, $uExt)!=-1? "TRUE" : "FALSE";
while ($a2=="TRUE") &IncrementInternalNew;
$uExt = ".png"; $r = 1; $s = 2; $go = 98;
#index($uStr, $uExt)!=-1?while ($go > 0) &IncrementInternal:0;
$a2 = index($uStr, $uExt)!=-1? "TRUE" : "FALSE";
while ($a2=="TRUE") &IncrementInternalNew;
$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;
}

IncrementInternalNew{
while ($go > 0) &IncrementInternal;
$a2 = "FALSE";
}

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;
$a2 = index($uStr, $uExt)!=-1? "TRUE" : "FALSE";
while ($a2=="TRUE") &DecrementInternalNew;
$uExt = ".gif"; $r = 0; $s = 1; $go = 98;
#index($uStr, $uExt)!=-1?while ($go > 0) &DecrementInternal:0;
$a2 = index($uStr, $uExt)!=-1? "TRUE" : "FALSE";
while ($a2=="TRUE") &DecrementInternalNew;
$uExt = ".png"; $r = 0; $s = 1; $go = 98;
#index($uStr, $uExt)!=-1?while ($go > 0) &DecrementInternal:0;
$a2 = index($uStr, $uExt)!=-1? "TRUE" : "FALSE";
while ($a2=="TRUE") &DecrementInternalNew;
$uExt = ".jpg"; length($uSub)<=1?&DecChkMore:0;
$uExt = ".gif"; length($uSub)<=1?&DecChkMore:0;
$uExt = ".png"; length($uSub)<=1?&DecChkMore:0;
length($uSub)>1?open($uSub):0;
}

DecrementInternalNew{
while ($go > 0) &DecrementInternal;
$a2 = "FALSE";
}

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_BuildToolbar{
$Large = (index(readfile(getfolder("SkinFolder")."\\..\\skins.ini"),getpref(STRING,"kmeleon.general.skinsCurrent")."=1")>-1);
$Large ? pluginmsg(toolbars,"AddToolbar","IncDecTB,24,24",""):pluginmsg(toolbars,"AddToolbar","IncDecTB,16,16","");
$Large ? pluginmsg(toolbars, "AddButton", "IncDecTB, 24, macros(IncrementURLStarter), IncDecURL, Increment / Decrement Image, 24, 24, urlupdn.bmp[0], urlupdn.bmp.bmp[0], urlupdn.bmp[0]",""):pluginmsg(toolbars, "AddButton", "IncDecTB, 16, macros(IncrementURLStarter), IncDecURL, Increment / Decrement Image, 16, 16,  urlupdn.bmp[0], urlupdn.bmp[0], urlupdn.bmp[0]","");
}

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

$OnInit=$OnInit."_IncDecURL_BuildMenu;";
$OnSetup=$kToolbars?$OnSetup."_IncDecURL_BuildToolbar;":$OnSetup;

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