Kod:
[Skill 38]
DEFNAME=Skill_Tracking
KEY=Tracking
TITLE=Ranger
PROMPT_MSG=What do you wish to track?
DELAY=2.5
STAT_STR=25
STAT_DEX=50
STAT_INT=50
BONUS_STR=0
BONUS_DEX=50
BONUS_INT=50
BONUS_STATS=25
ADV_RATE=0.1,0.1,0.1
ON=@Select
IF (<DEF.USENEWTRACKING>)
SRC.CTAG.TRACKINGCHARS
FOR <SRC.CTAG0.TRACKEDPLAYERS>
TRY SRC.CTAG.TRACKEDPLAYERS.<EVAL <LOCAL._FOR>>
ENDFOR
SRC.CTAG.TRACKEDPLAYERS
FOR <SRC.CTAG0.TRACKEDMONSTERS>
TRY SRC.CTAG.TRACKEDMONSTERS.<EVAL <LOCAL._FOR>>
ENDFOR
SRC.CTAG.TRACKEDMONSTERS
FOR <SRC.CTAG0.TRACKEDHUMANS>
TRY SRC.CTAG.TRACKEDHUMANS.<EVAL <LOCAL._FOR>>
ENDFOR
SRC.CTAG.TRACKEDHUMANS
FOR <SRC.CTAG0.TRACKEDANIMALS>
TRY SRC.CTAG.TRACKEDANIMALS.<EVAL <LOCAL._FOR>>
ENDFOR
SRC.CTAG.TRACKEDANIMALS
src.ctag0.trackerpath <muldiv 50,<eval (<tracking>)/10>,100>
LOCAL._TrackingSteps = <qval ( <src.findlayer.layer_robe.baseid> == i_robe_tracking ) ? 50 : 0 >
forchars <eval <src.dctag0.trackerpath>+<dLOCAL._TrackingSteps>>
IF (<UID> != <SRC>)
IF !(<ISGM>)
If (<src.tracking> == 0)
src.tracking=1
EndIf
IF (<TRACKING> <= <SRC.TRACKING>)
SRC.CTAG0.TRACKINGCHARS ++
IF (<ISPLAYER>)
SRC.CTAG0.TRACKEDPLAYERS ++
TRY SRC.CTAG.TRACKEDPLAYERS.<EVAL <SRC.CTAG0.TRACKEDPLAYERS>>=<UID>
ELIF (<NPC> == brain_animal)
SRC.CTAG0.TRACKEDANIMALS ++
TRY SRC.CTAG.TRACKEDANIMALS.<EVAL <SRC.CTAG0.TRACKEDANIMALS>>=<UID>
ELIF (<BODY> != c_man) && (<BODY> != c_woman) && (<BODY> != c_elf_male)
SRC.CTAG0.TRACKEDMONSTERS ++
TRY SRC.CTAG.TRACKEDMONSTERS.<EVAL <SRC.CTAG0.TRACKEDMONSTERS>>=<UID>
ELSE
SRC.CTAG0.TRACKEDHUMANS ++
TRY SRC.CTAG.TRACKEDHUMANS.<EVAL <SRC.CTAG0.TRACKEDHUMANS>>=<UID>
ENDIF
ENDIF
ENDIF
ENDIF
ENDFOR
SRC.DIALOG d_NEW_TRACKING
RETURN 1
ENDIF
ON=@Fail
SRC.CTAG0.TRACKFIX
src.sys_kirmizi Tracking başarısız oldu.
src.SKILL FAIL
SRC.ACTION -1
RETURN 1
ON=@Abort
SRC.CTAG0.TRACKFIX
src.sys_kirmizi Tracking durduruldu.
src.SKILL FAIL
SRC.ACTION -1
RETURN 1
on=@start
src.SKILL FAIL
SRC.ACTION -1
RETURN 1
[DIALOG d_NEW_TRACKING]
120,130
nomove
page 1
gumppictiled 0 0 500 150 3004
gumppictiled 6 6 490 140 1759
gumppictiled 400 0 200 150 3004
gumppictiled 405 5 190 140 1759
dhtmlgump 26 80 200 20 0 0 <def.bfont_lgray>HAYVANLAR
tilepic 26 20 8451
dhtmlgump 105 80 200 20 0 0 <def.bfont_lgray>YARATIKLAR
tilepic 105 20 8436
dhtmlgump 185 80 200 20 0 0 <def.bfont_lgray>VENDORLAR
tilepic 185 20 8455
dhtmlgump 261 80 200 20 0 0 <def.bfont_lgray>OYUNCULAR
tilepic 261 20 8454
dhtmlgump 450 20 200 20 0 0 <def.bfont_lgray>TRACKİNG MENÜ
dhtmlgump 418 60 200 20 0 0 <def.bfont_lgray>(<src.tracking>) Tracking yeteneğiniz
LOCAL._TrackingSteps = <qval ( <src.findlayer.layer_robe.baseid> == i_robe_tracking ) ? 50 : 0 >
dhtmlgump 418 80 200 20 0 0 <def.bfont_lgray><eval <src.dctag0.trackerpath>+<dLOCAL._TrackingSteps>> adimlik alani inceler.
dhtmlgump 500 100 200 20 0 0 <def.bfont_lgray><serv.name>
button 40 110 015e1 015e5 0 500 1 // Hayvanlar
button 115 110 015e1 015e5 0 400 1 // Yaratıklar
button 190 110 015e1 015e5 0 300 1 // Vendorlar
button 265 110 015e1 015e5 0 200 1 // Oyuncular
// === PAGE 2: OYUNCULAR ===
PAGE 200
local.page = 200
gumppictiled 248 106 300 220 3004
gumppictiled 252 111 290 210 1759
dorigin 0 90
if (<ctag0.trackedplayers>)
for 0 <eval <ctag0.trackedplayers>-1>
if (<local._for> > 6) && (<eval (<local._for> %7)> == 0)
button 485 300 2469 2470 0 <eval <local.page>+1> 1
local.page += 1
page <eval <local.page>>
dorigin 0 90
gumppictiled 248 106 300 220 3004
gumppictiled 252 111 290 210 1759
button 255 300 2458 2459 0 <eval <local.page>-1> 1
endif
ref33 = <uid.<ctag0.trackedplayers.<eval <local._for>+1>>>
local.name = <ref33.name>
if !<isempty <ref33.tag.name.suffix>>
local.name .= <ref33.tag.name.suffix>
endif
dcroppedtext 295 *25 130 20 <qval <ref33.ispk> ? 39:100> <local.name>
dtext 515 *0 0481 (<ref33.distance>)
button 258 *0 4006 4007 1 0 <eval <local._for>+10>
endfor
else
DTEXT 285 200 55 Player izi bulamadiniz.
endif
// === PAGE 3: VENDORLAR ===
PAGE 300
local.page = 300
gumppictiled 248 106 300 220 3004
gumppictiled 252 111 290 210 1759
dorigin 0 90
if (<ctag0.trackedhumans>)
for 0 <eval <ctag0.trackedhumans>-1>
if (<local._for> > 6) && (<eval (<local._for> %7)> == 0)
button 485 300 2469 2470 0 <eval <local.page>+1> 1
local.page +=1
page <eval <local.page>>
dorigin 0 90
gumppictiled 248 106 300 220 3004
gumppictiled 252 111 290 210 1759
button 255 300 2458 2459 0 <eval <local.page>-1> 1
endif
dcroppedtext 295 *25 130 20 54 <uid.<ctag0.trackedhumans.<eval <local._for>+1>>.name> the <uid.<ctag0.trackedhumans.<eval <local._for>+1>>.job>
dtext 515 *0 0481 (<uid.<ctag0.trackedhumans.<eval <local._for>+1>>.distance>)
button 258 *0 4006 4007 1 0 <eval <local._for>+100>
endfor
else
DTEXT 285 200 55 Vendor izi bulamadiniz.
endif
page 400
local.page = 400
gumppictiled 248 106 300 350 3004
gumppictiled 252 111 290 340 1759
dorigin 0 70
if (<ctag0.trackedmonsters>)
for 0 <eval <ctag0.trackedmonsters>-1>
if (<local._for> > 6) && (<eval (<local._for> %7)> == 0)
button 485 430 2469 2470 0 <eval <local.page>+1> 1
local.page +=1
page <eval <local.page>>
dorigin 0 70
gumppictiled 248 106 300 350 3004
gumppictiled 252 111 290 340 1759
button 255 430 2458 2459 0 <eval <local.page>-1> 1
endif
dcroppedtext 305 *45 200 20 39 <uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.name>
if (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.brain> == brain_monster)
dtext 305 +20 50 Monster Class
elseif (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.brain> == brain_berserk)
dtext 305 +20 38 Berserk Class
elseif (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.brain> == brain_undead)
dtext 305 +20 67 Undead Class
elseif (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.brain> == brain_dragon)
dtext 305 +20 55 Dragon Class
elseif (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.brain> == brain_beserk)
dtext 305 +20 38 Berserk Class
endif
dtext 515 *0 0481 (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.distance>)
buttontileart 258 *0 8199 298 1 0 <eval <local._for>+10000> <uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.icon> <eval <uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.color>> <qval (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.icon> == 020fd)? -2:-5> -2
endfor
else
DTEXT 285 200 55 Yaratık izi bulamadiniz.
endif
// === PAGE 5: HAYVANLAR ===
PAGE 500
local.page = 500
gumppictiled 248 106 300 350 3004
gumppictiled 252 111 290 340 1759
dorigin 0 70
if (<ctag0.trackedanimals>)
for 0 <eval <ctag0.trackedanimals>-1>
if (<local._for> > 6) && (<eval (<local._for> % 7)> == 0)
button 485 430 2469 2470 0 <eval <local.page>+1> 1
local.page +=1
page <eval <local.page>>
dorigin 0 70
gumppictiled 248 106 300 350 3004
gumppictiled 252 111 290 340 1759
button 255 430 2458 2459 0 <eval <local.page>-1> 1
endif
if (strmatch("*horse*","<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.body>")) || (strmatch("*llama*","<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.body>")) || (strmatch("*ostard*","<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.body>"))
dcroppedtext 305 *45 200 20 65 <uid.<ctag0.trackedanimals.<eval <local._for>+1>>.name>
tilepic 290 +16 4022
if (<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.owner>)
dtext 330 +20 48 Bu hayvan sahipli
else
dtext 330 +20 0481 Sahibi bulunmuyor
endif
else
dcroppedtext 305 *45 200 20 54 <uid.<ctag0.trackedanimals.<eval <local._for>+1>>.name>
if (<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.owner>)
dtext 305 +20 48 Bu hayvan sahipli
else
dtext 305 +20 0481 Sahibi bulunmuyor
endif
endif
dtext 515 *0 0481 (<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.distance>)
buttontileart 258 *0 8199 298 1 0 <eval <local._for>+1000> <uid.<ctag0.trackedanimals.<eval <local._for>+1>>.icon> <eval <uid.<ctag0.trackedanimals.<eval <local._for>+1>>.color>> <qval (<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.icon> == 020fd)? -2:-5> -2
endfor
else
DTEXT 285 200 55 Hayvan izi bulamadiniz.
endif
[DIALOG d_NEW_TRACKING BUTTON]
ON=0
src.ctag.trackedchars
src.ctag.trackedanimals
src.ctag.trackedplayers
src.ctag.trackedmonsters
src.ctag.trackedhumans
src.ctag.trackerpath
ON=10 99
src.ARROWQUEST <UID.<CTAG0.TRACKEDPLAYERS.<EVAL <ARGN1>-9>>.P>
src.sysmessage @95,,1 <UID.<CTAG0.TRACKEDPLAYERS.<EVAL <LOCAL._FOR>+1>>.NAME> (<uid.<ctag0.trackedplayers.<eval <local._for>+1>>.distance>) adım uzaklikta.
//src.<CTAG0.TRACKEDPLAYERS.<EVAL <ARGN1>-9>>
if !(<src.isevent.e_tracking_control>)
src.events +e_tracking_control
timerf 2, arrowquest
timerf 2, events -e_tracking_control
timerf 2,src.ctag.trackingchars
timerf 2,src.ctag.trackedplayers
timerf 2,src.ctag.trackedmonsters
timerf 2,src.ctag.trackedhumans
timerf 2,src.ctag.trackedanimals
timerf 2,src.ctag0.trackerpath
if (<src.tracking> >=0) && (<src.tracking> =<1000)
src.tracking +=1
return 1
endif
endif
ON=100 999
src.ARROWQUEST <UID.<CTAG0.TRACKEDHUMANS.<EVAL <ARGN1>-99>>.P>
src.sysmessage @95,,1 <UID.<CTAG0.TRACKEDHUMANS.<EVAL <LOCAL._FOR>+1>>.NAME> (<uid.<ctag0.trackedhumans.<eval <local._for>+1>>.distance>) adım uzaklikta.
//src.<CTAG0.TRACKEDHUMANS.<EVAL <ARGN1>-99>>
if !(<src.isevent.e_tracking_control>)
src.events +e_tracking_control
timerf 2, arrowquest
timerf 2, events -e_tracking_control
timerf 2,src.ctag.trackingchars
timerf 2,src.ctag.trackedplayers
timerf 2,src.ctag.trackedmonsters
timerf 2,src.ctag.trackedhumans
timerf 2,src.ctag.trackedanimals
timerf 2,src.ctag0.trackerpath
if (<src.tracking> >=0) && (<src.tracking> =<1000)
src.tracking +=1
return 1
endif
endif
ON=1000 9999
src.ARROWQUEST <UID.<CTAG0.TRACKEDMONSTERS.<EVAL <ARGN1>-999>>.P>
src.sysmessage @95,,1 <UID.<CTAG0.TRACKEDMONSTERS.<EVAL <LOCAL._FOR>+1>>.NAME> (<uid.<ctag0.trackedmonsters.<eval <local._for>+1>>.distance>) adım uzaklikta.
if !(<src.isevent.e_tracking_control>)
src.events +e_tracking_control
timerf 2, arrowquest
timerf 2, events -e_tracking_control
timerf 2,src.ctag.trackingchars
timerf 2,src.ctag.trackedplayers
timerf 2,src.ctag.trackedmonsters
timerf 2,src.ctag.trackedhumans
timerf 2,src.ctag.trackedanimals
timerf 2,src.ctag0.trackerpath
if (<src.tracking> >=0) && (<src.tracking> =<1000)
src.tracking +=1
return 1
endif
endif
IF BUTTON_ID == 6 // page 6'ya git
CTAG0.TRACKEDMONSTERS_PAGE = 6
REDRAW_PAGE 6
ELSEIF BUTTON_ID == 4 // geri page 4
CTAG0.TRACKEDMONSTERS_PAGE = 4
REDRAW_PAGE 4
ENDIF
ON=10000 99999
src.ARROWQUEST <UID.<CTAG0.TRACKEDANIMALS.<EVAL <ARGN1>-9999>>.P>
src.sysmessage @95,,1 <UID.<CTAG0.TRACKEDANIMALS.<EVAL <LOCAL._FOR>+1>>.NAME> (<uid.<ctag0.trackedanimals.<eval <local._for>+1>>.distance>) adım uzaklikta.
if !(<src.isevent.e_tracking_control>)
src.events +e_tracking_control
timerf 2, arrowquest
timerf 2, events -e_tracking_control
timerf 2,src.ctag.trackingchars
timerf 2,src.ctag.trackedplayers
timerf 2,src.ctag.trackedmonsters
timerf 2,src.ctag.trackedhumans
timerf 2,src.ctag.trackedanimals
timerf 2,src.ctag0.trackerpath
if (<src.tracking> >=0) && (<src.tracking> <300)
src.tracking +=1
Elseif (<src.tracking> >=300) && (<src.tracking> <600) && (rand(3)==1)
src.tracking +=1
Elseif (<src.tracking> >=600) && (<src.tracking> <900) && (rand(4)==1)
src.tracking +=1
Elseif (<src.tracking> >=900) && (<src.tracking> =<1000) && (rand(5)==1)
src.tracking +=1
return 1
endif
endif
[events e_tracking_control]
ON=@UserWarmode
sysmessage Konsantrasyonunuzu kaybettiniz, iz aramaktan vazgectiniz.
ref38 -1
src.ARROWQUEST <<CTAG0.TRACKINGANIMALS.<EVAL <ARGN1>-9999>>>
src.ARROWQUEST <<CTAG0.TRACKEDMONSTERS.<EVAL <ARGN1>-999>>>
src.ARROWQUEST <<CTAG0.TRACKEDHUMANS.<EVAL <ARGN1>-99>>>
src.ARROWQUEST <<CTAG0.TRACKEDPLAYERS.<EVAL <ARGN1>-9>>>
src.CTAG0.TRACKINGCHARS
src.CTAG0.TRACKEDPLAYERS
src.CTAG0.TRACKEDMONSTERS
src.CTAG0.TRACKEDHUMANS
src.CTAG0.TRACKEDANIMALS
EVENTS= -e_tracking_control
ctag0.trackertime <eval <local.for>+5
[function ispk]
if (<src.kills> >= 6)
return 1
else
return 0
endif
[ITEMDEF i_robe_tracking]
Name=Tracking Robe
ID=I_robe
SKILLMAKE=TAILORING 130.0
CATEGORY=BuckEtHeAd
SUBSECTION=Tailor Craftables
DESCRIPTION=shirt
ARMOR=8
WEIGHT=1
ON=@CREATE
attr=04
COLOR=0810
HITPOINTS=-1
timer 2592000
src.sysmessage @,,1 <name> kullanım süresi 30 gündür. 30 gün sonra otomatik silinir.
ON=@timer
remove
return 1
on=@dclick
if (<link> == 04fffffff)
link <src.uid>
src.sysmessage @049,,1 <name> artık sizin adınıza kayıtlandı!.
return 1
else
if !(<link> == <src.uid>)
unequip
src.hata <name> size ait değil!.
return 1
endif
on=@click
if (<link> == <src.uid>)
message @0481,,1 [Sahibi : <link.name>]
if (<timer> > 0)
local.temp = <timer>
local.day = <dlocal.temp> / 86400
local.temp = <dlocal.temp> - (86400 * <dlocal.day>)
local.hours = <dlocal.temp> / 3600
local.temp = <dlocal.temp> - (3600 * <dlocal.hours>)
local.minutes = <dlocal.temp> / 60
local.seconds = <dlocal.temp> - (60 * <dlocal.minutes>)
src.sysmessage @38,,1 Silinme süresi : [<dlocal.day> gün, <dlocal.hours> saat, <dlocal.minutes> dakika, <dlocal.seconds> saniye]
else
message @0481,,1 [Sahibi : <link.name>]
endif
on=@equip
src.sysmessage @95,,1 +50 adim gorme ozelligi kazandiniz.
return 1
on=@unequip
src.sysmessage @95,,1 +50 adim gorme ozelligi kaybettiniz.
return 1
Çalişan bir Tracking menu bulamadıgım icin paylasmak istedim Tracking robe Ekledim normal 100 skilli olan birisi 50 kare Alan tararken tracking robesi olan birisi 100 alan tarıyor bi yanlıs bi hata gormedim fakat olursada duzeltiriz kullanmak isteyen olabilir
SphereX de kullanacak kisiler dhtmlgump 418 60 200 20 0 0 <def.bfont_lgray>(<src.tracking>
Tracking yeteneğiniz , bölümünü ; dhtmlgump 418 60 200 20 0 0 <def.bfont_lgray>(<src.skill.tracking>
Tracking yeteneğiniz ; olarak degistirip kullanabilirler.
Dogrudur hocam saygılar