|
Dtext 145 <EVAL (<DLOCAL._FOR>*20)+125> 00 <strreverse <strsub 9 30 <strreverse <serv.area.a_<f_moonsep <DLOCAL._FOR>,<def.moonkord>>_moongate_1.name>>>>[red]16:23:ERROR : (moongate.scp,33)Bad string function usage. missing )
16:23:ERROR : (moongate.scp,33)Can't resolve <strsub 9>.
16:23:ERROR : (moongate.scp,33)Bad string function usage. missing )[/red]IF (<ISEMPTY <CTAG.Craft_Menu_Skill>>)
CTAG.Craft_Menu_Skill = BS_IRON
ENDIF
IF !(<CTAG0.Craft_Menu_Cat>)
CTAG.Craft_Menu_Cat = 1
ENDIF
LOCAL.Y = 30
FOR cat 1 <DEF.<CTAG.Craft_Menu_Skill>_TOTAL_CATS>
button 11 <dLOCAL.Y> 10710 10711 1 0 <EVAL (60000 + <LOCAL.CAT>)>
dhtmlgump 46 <dLOCAL.Y> 85 25 1 0 <DEF.<CTAG.Craft_Menu_Skill>_CAT_<dLOCAL.CAT>_NAME>
LOCAL.Y += 35
ENDFOR
LOCAL.Y = 30
FOR item_y 1 5
LOCAL.X = 170
FOR item_x 1 3
LOCAL.ITEM = <DEF.<CTAG.Craft_Menu_Skill>_CAT_<dCTAG0.Craft_Menu_Cat>_ITEM_<EVAL ((<LOCAL.item_y> - 1) * 3) + <LOCAL.item_x>) - 1)>>
IF (0<DEF.<LOCAL.ITEM>>)
SERV.NEWITEM <LOCAL.ITEM>
tilepic <EVAL (<LOCAL.X> + 40)> <dLOCAL.Y> <NEW.DISPIDDEC> <dNEW.COLOR>
button <dLOCAL.X> <EVAL (<LOCAL.Y> + 60)> 10710 10711 1 0 <EVAL ((<LOCAL.item_y> - 1) * 3) + <LOCAL.item_x>) - 1)>
dhtmlgump <EVAL (<LOCAL.X> + 30)> <EVAL (<LOCAL.Y> + 60)> 140 25 1 0 <def.bfont_blue> <NEW.NAME>
NEW.REMOVE
ENDIF
LOCAL.X += 175
ENDFOR
LOCAL.Y += 90
ENDFOR
[DIALOG d_knightmenu BUTTON]
ON=0
CLEARCTAGS Craft_Menu
ON=1 60000
LOCAL.ITEM = <DEF.<CTAG.Craft_Menu_Skill>_CAT_<dCTAG0.Craft_Menu_Cat>_ITEM_<ARGN1>>
IF !(<CANMAKE <LOCAL.ITEM>>)
SDIALOG d_knightmenu
SYSMESSAGE @58,,1 <SERV.ITEMDEF.<LOCAL.ITEM>.NAME> yapabilmek için <SERV.ITEMDEF.<LOCAL.ITEM>.RESMAKE>'e ihtiyacınız var.
sysmessage @38,,1 Bu itemi yapabilmek için <SERV.ITEMDEF.<LOCAL.ITEM>.SKILLMAKE> gerekli.
RETURN
ENDIF
CLEARCTAGS Craft_Menu
MAKEITEM <LOCAL.ITEM>
src.ctag.inclus.tekraryap = <LOCAL.ITEM>
ON=60001 60050
CTAG.Craft_Menu_Cat = <EVAL (<ARGN1> - 60000)>
SDIALOG d_knightmenu
[EVENTS e_craft_menus]
ON=@SkillMenu
RETURN 1
[TYPEDEF t_mortar]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = ALCHEMY
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_potion_empty]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = ALCHEMY
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_ingot]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = BS_<STRSUB 8 50 <BASEID>>
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_shaft]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = BOWCRAFT
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_FEATHER]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = BOWCRAFT
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_sewing_kit]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = TAI
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_carpentry]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = CARPENTRY
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_tinker_tools]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = TINKERING
SRC.SDIALOG d_knightmenu
RETURN 1
[TYPEDEF t_scroll_blank]
ON=@DClick
IF (<topobj.uid> != <src.uid>)
src.sysmessage Bunu çantanızdayken kullanabilirsiniz.
else
SRC.CTAG.Craft_Menu_Skill = INSCRIPTION
SRC.SDIALOG d_knightmenu
RETURN 1
/////////////////////////////////////////
[DEFNAME craftingmenus]
TAI_TOTAL_CATS "13"
TAI_CAT_1_NAME "Bone Armor"
TAI_CAT_1_ITEM_1 "i_bone_chest"
TAI_CAT_1_ITEM_2 "i_bone_arms"
TAI_CAT_1_ITEM_3 "i_bone_gloves"
TAI_CAT_1_ITEM_4 "i_bone_helmet"
TAI_CAT_1_ITEM_5 "i_bone_leggings"
08-01-2021, xwerswoodx
- Added: Quote support for STRSUB function to avoid whitespace issues.
09-01-2021, Nolok
- Fixed: Explicitly setting a LOCAL to "" set its value to 0, instead of to an empty string. Setting it to an empty argument still sets it to 0.
- Fixed: ARGS not returning the full string but only the first argument if we pass to a function multiple quoted arguments (like "Test1", "Test2", test).
- Fixed: ARGV truncating the value of a quoted argument to the last quote character ("), even if there was other text after it.
- Fixed: Console error when @CreateLoot or @NPCRestock couldn't create an item (example: the char or the corpse got immediately removed after creation, if ever created) (Issue: #592).
10-01-2021, xwerswoodx
- Fixed: STRTOKEN can't parse commands correctly if argument has more than one quotes.
- Added: Apostrophe support for STRTOKEN that let you go deeper with using STRTOKEN.
20:24:DEBUG:__ thread (1876) __ | # | _____ function _____________ | ticks passed from previous function start ______
20:24:DEBUG:>> 1876 | 0 | NetworkManager::processAllInput | +0
20:24:DEBUG:>> 1876 | 1 | NetworkInput::processInput | +15
20:24:DEBUG:>> 1876 | 2 | NetworkInput::processData | +0
20:24:DEBUG:>> 1876 | 3 | NetworkInput::processData | +0
20:24:DEBUG:>> 1876 | 4 | NetworkInput::processGameClientData | +0
20:24:DEBUG:>> 1876 | 5 | PacketSingleClick::onReceive | +0
20:24:DEBUG:>> 1876 | 6 | CClient::Event_SingleClick | +0
20:24:DEBUG:>> 1876 | 7 | CItem::OnTrigger | +0
20:24:DEBUG:>> 1876 | 8 | CScriptObj::OnTriggerScript | +0
20:24:DEBUG:>> 1876 | 9 | CScriptObj::OnTriggerRunVal | +0
20:24:DEBUG:>> 1876 | 10 | CScriptObj::OnTriggerRun | +0
20:24:DEBUG:>> 1876 | 11 | CScriptObj::OnTriggerRun | +0
20:24:DEBUG:>> 1876 | 12 | CItemScript::r_Verb | +0
20:24:DEBUG:>> 1876 | 13 | CItem::r_Verb | +0
20:24:DEBUG:>> 1876 | 14 | CObjBase::r_Verb | +0 <-- exception catch point (below is guessed and could be incorrect!)
20:24:DEBUG:>> 1876 | 15 | CVarDefMap::Empty | +0
20:24:CRITICAL:(fix.scp,52)"Access Violation" (0x6bea0), in CObjBase::Verb() #1 "MESSAGE or MSG"On=@ItemClick
if (strmatch('<act.cont.type>','t_eq_trade_window'))
act.message [secure]
endif
if (<act.topobj.id> == c_pv)
if (strmatch('<act.price>',''))
act.message [satilamaz]
elseif (<act.price> <= 0)
act.message [satilik degil]
else
if ((<act.type> == t_armor) || (<act.type> == t_armor_leather) || (<act.type> == t_shield) || (<act.type> == t_clothing) || (<act.type> == t_weapon_sword) || (<act.type> == t_weapon_fence) || (<act.type> == t_weapon_mace_staff) || (<act.type> == t_weapon_mace_smith) || (<act.type> == t_weapon_mace_pick) || (<act.type> == t_weapon_bow) || (<act.type> == t_weapon_xbow))
if !(<eval ((<act.more1l> * 100) / <act.more1h>)> == 100)
act.message [<act.price> gp] [%<eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]
else
act.message [<act.price> gp]
endif
else
act.message [<act.price> gp]
endif
endif
endif|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
203 - 6x client geciş
Son cevap: 22-12 03:46 · Son yazan: Eren19944 · Mesaj: 5 · Görüntü: 2554
|
Client ve Account Sistemleri | 22-12 03:46 | Eren19944 |
5 | 2554 |
|
Bazı karakterlere client sorgulamasın
Son cevap: 26-05 19:56 · Son yazan: xwerswoodx · Mesaj: 10 · Görüntü: 7535
|
Client ve Account Sistemleri | 26-05 19:56 | xwerswoodx |
10 | 7535 |
|
Bazı şeyler asla değişmez..
Son cevap: 08-07 09:05 · Son yazan: Franklin · Mesaj: 6 · Görüntü: 7300
|
UO Screenshot / Video | 08-07 09:05 |  Franklin |
6 | 7300 |
|
5xcliente geçiş hata alıyorum
Son cevap: 07-09 13:35 · Son yazan: tayfun12 · Mesaj: 1 · Görüntü: 3261
|
Client ve Account Sistemleri | 07-09 13:35 | tayfun12 |
1 | 3261 |
|
Bazı scriptsel sorunlar
Son cevap: 17-07 04:25 · Son yazan: xwerswoodx · Mesaj: 5 · Görüntü: 5918
|
Script Yardımı | 17-07 04:25 | xwerswoodx |
5 | 5918 |