|
İçerde : 1 misafir, 0 üye : ---
|
[Function COLORS]
IF (<ISEMPTY <TAG.LSEARCH.ITEM>>)
TAG.LSEARCH.ITEM=01415
ENDIF
DIALOG d_colors,1
[DIALOG d_colors]
50,50
NOMOVE
PAGE 1
RESIZEPIC 0 0 5120 250 150
RESIZEPIC 10 10 0bb8 230 130
RESIZEPIC 20 20 0bb8 210 30
DHTMLGUMP 25 28 150 20 0 0 Başlangıç Noktası:
RESIZEPIC 165 25 0bb8 60 20
DTEXTENTRYLIMITED 170 25 50 20 0 1 4
RESIZEPIC 20 60 0bb8 210 30
DHTMLGUMP 25 68 50 20 0 0 Item ID:
RESIZEPIC 75 65 0bb8 150 20
DTEXTENTRY 80 65 140 20 0 2 <QVAL !<ISEMPTY <SRC.TAG.LSEARCH.ITEM>>?<SERV.ITEMDEF.<SRC.TAG.LSEARCH.ITEM>.BASEID>>
RESIZEPIC 20 100 0bb8 210 30
BUTTON 205 107 025E6 025E7 1 0 1
DHTMLGUMP 25 108 180 20 0 0 Renklere Bak
PAGE 2
RESIZEPIC 0 0 5120 620 380
RESIZEPIC 10 10 0bb8 600 360
LOCAL.SCOLOR=<DARGV[0]>
IF (<DLOCAL.SCOLOR> <= 0)
LOCAL.SCOLOR=0
ENDIF
LOCAL.OSCOLOR=<DLOCAL.SCOLOR>
LOCAL.ITEM=01415
IF !(<ISEMPTY <ARGV[1]>>)
LOCAL.ITEM=<ARGV[1]>
ENDIF
LOCAL.ECOLOR=3000
TAG.LITEM=<LOCAL.ITEM>
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 20 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 25 <LOCAL.ITEM> <QVAL !(<DLOCAL.CLR>)?3000:<DLOCAL.CLR>>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 74 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 70 40 20 0 0 <HVAL <LOCAL.CLR> + 1>
ENDIF
ENDFOR
LOCAL.SCOLOR +=11
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 100 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 105 <LOCAL.ITEM> <DLOCAL.CLR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 154 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 150 40 20 0 0 <HVAL <DLOCAL.CLR> + 1>
ENDIF
ENDFOR
LOCAL.SCOLOR +=11
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 180 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 185 <LOCAL.ITEM> <DLOCAL.CLR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 234 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 230 40 20 0 0 <HVAL <DLOCAL.CLR> + 1>
ENDIF
ENDFOR
LOCAL.SCOLOR +=11
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 260 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 265 <LOCAL.ITEM> <DLOCAL.CLR> //<CTAG.COLOR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 314 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 310 40 20 0 0 <HVAL <DLOCAL.CLR> + 1>
ENDIF
ENDFOR
RESIZEPIC 20 330 0bb8 580 30
RESIZEPIC 260 335 0bb8 120 20
DHTMLGUMP 265 338 110 20 0 0 <DEF.CENTER><DEF.BFONT_DRED><EVAL <DLOCAL.OSCOLOR> + 1><DEF.BFONT_BLACK>-<DEF.BFONT_DRED><EVAL <DLOCAL.OSCOLOR> + 44><DEF.BFONT_BLACK>/<DEF.BFONT_DRED><DLOCAL.ECOLOR>
BUTTON 240 337 025EA 025EB 1 0 <EVAL 5000 + <DLOCAL.OSCOLOR>>
BUTTON 380 337 025E6 025E7 1 0 <EVAL 10000 + <DLOCAL.OSCOLOR>>
[DIALOG d_colors BUTTON]
On=1
IF <DARGTXT[1]> >= 3000
SRC.SYSMESSAGE @,,1 Başlangıç noktası 3000den yüksek olamaz.
ELSE
LOCAL.STARTP=0
IF (<DARGTXT[1]>)
LOCAL.STARTP=<DARGTXT[1]>
ENDIF
LOCAL.ITEM=01415
IF !(<ISEMPTY <ARGTXT[2]>>)
IF (<SERV.ITEMDEF.<ARGTXT[2]>.ID>)
LOCAL.ITEM=<SERV.ITEMDEF.<ARGTXT[2]>.ID>
ENDIF
ENDIF
SRC.TAG.LSEARCH.ITEM=<LOCAL.ITEM>
DIALOG d_colors,2,<EVAL <LOCAL.STARTP> - 1>,<LOCAL.ITEM>
On=100 3100
LOCAL.NXT=<EVAL <DARGN> - 99>
IF (!<ISEMPTY <TAG.COLOREDITEM>>)
SERV.NEWITEM <TAG.COLOREDITEM>,1,<SRC>
NEW.COLOR=<DLOCAL.NXT>
REMOVE
ELSE
SERV.NEWITEM <TAG.LITEM>
NEW.CONT=<SRC.FINDLAYER.layer_pack>
NEW.COLOR=<DLOCAL.NXT>
NEW.UPDATE
ENDIF
On=5000 9999
LOCAL.NXT=<EVAL (<DARGN> - 5000) - 44>
IF !(<DLOCAL.NXT>)
LOCAL.NXT=0
ENDIF
DIALOG d_colors,2,<DLOCAL.NXT>,<TAG.LITEM>
On=10000 14999
LOCAL.NXT=<EVAL (<DARGN> - 10000) + 44>
IF (<DLOCAL.NXT> > 2957)
LOCAL.NXT=2957
ENDIF
DIALOG d_colors,2,<DLOCAL.NXT>,<TAG.LITEM>
[ITEMDEF i_deed_dye]
ID=i_deed
NAME=dye deed
TYPE=t_normal
On=@DClick
TAG.COLOREDITEM=i_dye_tub_all //Burada renk butonuna tıklanınca boyanıp verilecek item.
SDIALOG d_colors,2,0,<SERV.ITEMDEF.i_dye_tub.ID>
//Burada;
// d_colors,2 direkt renk sayfasını açmak için
// ,0, kısmındaki 0 başlangıç noktası - 1, yani 0480 yazılırsa 0481 den başlar.
// <SERV.ITEMDEF.i_dye_tub.ID> ise dialog açılınca görünmesini istediğim eşyanın IDsi, ben burada i_dye_tub'ün görünmesini istedim.
// <SERV.ITEMDEF.i_dye_tub.ID> yerine, sunucuda .show serv.itemdef.i_dye_tub.id yazıp aldığınız cevabı yazabilirsiniz.
[DIALOG d_colors]
50,50
NOMOVE
PAGE 1
RESIZEPIC 0 0 5120 250 150
RESIZEPIC 10 10 0bb8 230 130
RESIZEPIC 20 20 0bb8 210 30
DHTMLGUMP 25 28 150 20 0 0 Başlangıç Noktası:
RESIZEPIC 165 25 0bb8 60 20
DTEXTENTRYLIMITED 170 25 50 20 0 1 4
RESIZEPIC 20 60 0bb8 210 30
DHTMLGUMP 25 68 50 20 0 0 Item ID:
RESIZEPIC 75 65 0bb8 150 20
DTEXTENTRY 80 65 140 20 0 2 <QVAL !<ISEMPTY <SRC.TAG.LSEARCH.ITEM>>?<SERV.ITEMDEF.<SRC.TAG.LSEARCH.ITEM>.BASEID>>
RESIZEPIC 20 100 0bb8 210 30
BUTTON 205 107 025E6 025E7 1 0 1
DHTMLGUMP 25 108 180 20 0 0 Renklere Bak
PAGE 2
RESIZEPIC 0 0 5120 620 380
RESIZEPIC 10 10 0bb8 600 360
LOCAL.SCOLOR=<DARGV[0]>
IF (<DLOCAL.SCOLOR> <= 0)
LOCAL.SCOLOR=0
ENDIF
LOCAL.OSCOLOR=<DLOCAL.SCOLOR>
LOCAL.ITEM=01415
IF !(<ISEMPTY <ARGV[1]>>)
LOCAL.ITEM=<ARGV[1]>
ENDIF
//LOCAL.ECOLOR=<DARGV[1]>
//IF !(<DLOCAL.ECOLOR>)
LOCAL.ECOLOR=3000
TAG.LITEM=<LOCAL.ITEM>
//ENDIF
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 20 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 25 <LOCAL.ITEM> <DLOCAL.CLR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 74 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
// DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 70 40 20 0 0 <HVAL <LOCAL.CLR> + 1>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 70 40 20 0 0 <LOCAL.CLR>
ENDIF
ENDFOR
LOCAL.SCOLOR +=11
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 100 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 105 <LOCAL.ITEM> <DLOCAL.CLR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 154 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 150 40 20 0 0 <LOCAL.CLR>
ENDIF
ENDFOR
LOCAL.SCOLOR +=11
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 180 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 185 <LOCAL.ITEM> <DLOCAL.CLR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 234 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 230 40 20 0 0 <LOCAL.CLR>
ENDIF
ENDFOR
LOCAL.SCOLOR +=11
FOR 0 10
LOCAL.CLR=<EVAL <DLOCAL.SCOLOR> + <DLOCAL._FOR>>
IF (<DLOCAL.CLR> <= <DLOCAL.ECOLOR>)
RESIZEPIC <EVAL 20 + (<DLOCAL._FOR> * 53)> 260 0bb8 50 50
TILEPICHUE <EVAL 25 + (<DLOCAL._FOR> * 53)> 265 <LOCAL.ITEM> <DLOCAL.CLR> //<CTAG.COLOR>
BUTTON <EVAL 25 + (<DLOCAL._FOR> * 53)> 314 2103 2104 1 0 <EVAL 100 + <DLOCAL.CLR>>
DHTMLGUMP <EVAL 40 + (<DLOCAL._FOR> * 53)> 310 40 20 0 0 <LOCAL.CLR>
ENDIF
ENDFOR
RESIZEPIC 20 330 0bb8 580 30
RESIZEPIC 260 335 0bb8 120 20
DHTMLGUMP 265 338 110 20 0 0 <DEF.CENTER><DEF.BFONT_DRED><DLOCAL.OSCOLOR><DEF.BFONT_BLACK>-<DEF.BFONT_DRED><EVAL <DLOCAL.OSCOLOR> + 43><DEF.BFONT_BLACK>/<DEF.BFONT_DRED><DLOCAL.ECOLOR>
BUTTON 240 337 025EA 025EB 1 0 <EVAL 5000 + <DLOCAL.OSCOLOR>>
BUTTON 380 337 025E6 025E7 1 0 <EVAL 10000 + <DLOCAL.OSCOLOR>>
[DIALOG d_colors BUTTON]
On=1
IF <DARGTXT[1]> >= 3000
SRC.SYSMESSAGE @,,1 Başlangıç noktası 3000den yüksek olamaz.
ELSE
LOCAL.STARTP=0
IF (<DARGTXT[1]>)
LOCAL.STARTP=<DARGTXT[1]>
ENDIF
LOCAL.ITEM=01415
IF !(<ISEMPTY <ARGTXT[2]>>)
IF (<SERV.ITEMDEF.<ARGTXT[2]>.ID>)
LOCAL.ITEM=<SERV.ITEMDEF.<ARGTXT[2]>.ID>
ENDIF
ENDIF
SRC.TAG.LSEARCH.ITEM=<LOCAL.ITEM>
DIALOG d_colors,2,<DLOCAL.STARTP>,<LOCAL.ITEM>
On=100 3100
LOCAL.NXT=<EVAL <DARGN> - 100>
IF (!<ISEMPTY <TAG.COLOREDITEM>>)
SERV.NEWITEM <TAG.COLOREDITEM>,1,<SRC>
NEW.COLOR=<DLOCAL.NXT>
REMOVE
ELSE
SERV.NEWITEM <TAG.LITEM>
NEW.CONT=<SRC.FINDLAYER.layer_pack>
NEW.COLOR=<DLOCAL.NXT>
NEW.UPDATE
ENDIF
On=5000 9999
LOCAL.NXT=<EVAL (<DARGN> - 5000) - 44>
IF !(<DLOCAL.NXT>)
LOCAL.NXT=0
ENDIF
DIALOG d_colors,2,<DLOCAL.NXT>,<TAG.LITEM>
On=10000 14999
LOCAL.NXT=<EVAL (<DARGN> - 10000) + 44>
IF (<DLOCAL.NXT> > 2957)
LOCAL.NXT=2957
ENDIF
DIALOG d_colors,2,<DLOCAL.NXT>,<TAG.LITEM>
// In-Game Hue Tester/Sampler
// By n1ghtwish/Maximus
// LAST EDITED: 9/06/2016
[DEFNAME hueTest_Settings]
htMaxPP = 15 // max tiles per page (don't change this unless you modify the overall dialog size and other code)
htDefHuesFile = "hues.txt" // default hues file from root Sphere directory
[FUNCTION huetest]
sdialog dHueTest
[DIALOG dHueTest]
150,150
page 0
resizepic 0 0 2620 300 220
checkertrans 5 5 290 215
dhtmlgump 15 15 269 25 1 0 <def.center><def.big>Hue Tester - Options<def.bige><def.centere>
button 15 60 4005 4007 1 0 1 // hue range
dtext 57 60 68 Range
resizepic 100 60 9350 40 23
dtextentrylimited 103 61 40 23 0 1 4 <eval rand(1,1500)>
dtext 150 61 68 TO
resizepic 180 60 9350 40 23
dtextentrylimited 183 61 40 23 0 2 4 <eval rand(1501,3000)>
button 15 90 4005 4007 1 0 2 // file
dtext 57 90 68 File
resizepic 100 90 9350 180 23
dtextentrylimited 103 90 180 23 0 3 30 <def.htDefHuesFile>
button 15 120 4005 4007 1 0 3 // all 3,000
dtext 57 120 68 ALL Hues
button 15 180 4017 4019 1 0 0 // close
dtext 57 180 68 Close
[DIALOG dHueTest BUTTON]
ON=0 // cancel
sysmessage Aborted!
ON=1 // range
if (<isempty <argtxt1>>)||(<isempty <argtxt2>>)||(!<isnum <argtxt1>>)||(!<isnum <argtxt2>>)
sysmessage Must provide two numbers for hue range!
return 1
elseif (<isnum <argtxt1>>)&&(<isnum <argtxt2>>)&&(<argtxt1> > <argtxt2>)
sysmessage Invalid range.
return 1
endif
ctag.htType = 1
ctag.htB = <argtxt1>
ctag.htE = <argtxt2>
sysmessage Select target.
targetf fHuetest
ON=2 // file
if (!<FILE.FILEEXIST <argtxt3>>)
sysmessage File "<argtxt3>" not found!
return 1
endif
ctag.htType = 2
ctag.htFile = <argtxt3>
sysmessage Select target.
targetf fHuetest
ON=3 // all
ctag.htType = 3
sysmessage Select target.
targetf fHuetest
[FUNCTION fHuetest]
// You could get rid of this IF statement to allow targeting of characters as well
if (<argo.isitem>)
ctag.htTileBG = 2620
ctag.htPnum = 1
argo.sdialog dHuetest2
return 1
endif
sysmessage Items only, dummy!
[DIALOG dHuetest2]
100,100
page 0
resizepic 0 0 2620 700 560
checkertrans 5 5 695 555
doswitch <eval <src.ctag.htType> - 1>
begin // range
local.tnum = <eval <eval <src.ctag.htE> - <src.ctag.htB>> + 1>
dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - Range: <src.dctag.htB> to <src.dctag.htE><def.bige><def.centere>
end
begin // file
FILE.MODE.WRITEFLAG = 0
FILE.MODE.CREATEFLAG = 0
FILE.MODE.READFLAG = 1
if (<FILE.OPEN <src.ctag.htFile>>)
local.tnum = <FILE.FILELINES <src.ctag.htFile>>
endif
dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - File: <src.ctag.htFile> - <dlocal.tnum> hues<def.bige><def.centere>
end
begin // all
local.tnum = 3000
dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - ALL HUES<def.bige><def.centere>
end
enddo
local.pages = <eval (((<local.tnum> - 1) / <def.htMaxPP>) + 1)>
if (<src.ctag.htPnum> > <local.pages>)
src.ctag.htPnum = <dlocal.pages>
endif
local.offset = <qval (<src.ctag.htPnum> > 1) ? <eval ((<src.ctag.htPnum> - 1) * <def.htMaxPP>)> : 1>
local.x = 15
local.y = 45
if (<local.tnum> >= 1)
for h <dlocal.offset> <eval <local.offset> + <eval <def.htMaxPP> - 1>>
if (<local.h> <= <local.tnum>)
local.c += 1
resizepic <dlocal.x> <dlocal.y> <eval <src.ctag.htTileBG>> 126 126 // 2620 dark, 3000 light
doswitch <eval <src.ctag.htType> - 1>
begin // range
tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <eval <eval <local.h> + <src.ctag.htB>> - 1>
button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <eval <local.h> + <src.ctag.htB> - 1> + 3>
dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <eval <eval <local.h> + <src.ctag.htB>> - 1>
end
begin // file
tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <FILE.READLINE <dlocal.h>>
button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <FILE.READLINE <dlocal.h>> + 3>
dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <FILE.READLINE <dlocal.h>>
end
begin // all
tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <dlocal.h>
button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <local.h> + 3>
dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <dlocal.h>
end
enddo
local.x += 135
if (<local.c> == 5)
local.x = 15
local.y = 200
elseif (<local.c> == 10)
local.x = 15
local.y = 360
endif
endif
end
endif
FILE.CLOSE
button 15 517 4005 4007 1 0 3
dtext 50 517 1152 Toggle Light/Dark BG
if (<src.ctag.htPnum> > 1)
button 275 520 9909 9909 1 0 1
endif
dhtmlgump 305 517 100 25 1 0 <def.center><eval <src.ctag.htPnum>> / <dlocal.pages><def.centere>
if (<local.pages> > <src.ctag.htPnum>)
button 414 519 9903 9903 1 0 2
endif
[DIALOG dHuetest2 BUTTON]
ON=1 2
doswitch <eval <argn1> - 1>
src.ctag.htPnum -= 1
src.ctag.htPnum += 1
end
sdialog dHuetest2
ON=3
src.ctag.htTileBG = <qval <src.ctag.htTileBG> == 2620 ? 3000:2620>
sdialog dHuetest2
ON=4 3100
color = <eval <argn1> - 3>
|