Wenn irgendein Item nicht verschoben wird das verschoben werden sollte wäre es nett wenn ihr das mitteilen könntet. Damit ich das einbinden kann
Ansonsten war es ja kein Akt 3 Zeilen hinzuzufügen . . .
Spoiler: Zeigen
- Code: Alles auswählen
;Transfer Groups by Famulus on UOSigena @2010
;Erweitert um Rezepte,Karten,Notenblätter für
;Sigena www.uosigena.de 22.06.2011 FlamingBiFi/Fourier
set #menuButton N/A
menu clear
menu Show 0 0
menu Window Title Transfer Groups
menu Window Size 10 550
menu Font Size 9
menu text Text1 20 0 Transfer What?
menu Font Size 8
menu Button T1 25 20 70 50 All
menu Button T2 25 70 70 50 Pots
menu Button T3 25 120 70 50 Reags
menu Button T4 25 170 70 50 Rare-Reags
menu Button T5 25 220 70 50 Gems
menu Button T6 25 270 70 50 Gold
menu Button T7 25 320 70 50 Scrolls
menu Button T8 25 370 70 50 Notenblatt
menu Button T9 25 420 70 50 Rezepte
menu Button T10 25 470 70 50 Karten
menu Font Style "i"
menu Font Size 5
menu text Text2 50 375 by Famulus
loop:
if N/A notin #menuButton
{
gosub buttons
}
goto loop
sub buttons
set %from 0
set %to 0
set %stacks 0
set %items 0
Setup1:
display ok From which Bag
set #targcurs 1
setup1:
if #targcurs = 1
{
goto setup1
}
set %from #ltargetid
Setup2:
display ok To which Bag
set #targcurs 1
setup2:
if #targcurs = 1
{
goto setup2
}
set %to #ltargetid
set #lobjectid %from
event macro 17 0
wait 10
if T1 in #menubutton
{
set %item *
set %name Items
}
if T2 in #menubutton
{
set %item AVF_UUF_OUF_TUF_YUF_NUF_XUF_ZUF
set %name Pots
}
if T3 in #menubutton
{
set %item SZF_WZF_JUF_KUF_MZF_JZF_RZF_KZF
set %name Reags
}
if T4 in #menubutton
{
set %item TZF_KIF_XZF_FUF_DUF_HUF_OZF_EUF_GUF_QZF_RZF_PZF_LZF_VZF_EAG_YZF_UZF_JIF_IUF
set %name Rare-Reags
}
if T5 in #menubutton
{
set %item VUF_MWF_DVF_FVF_RVF_IVF_CVF_EVF_NVF_GVF_HVF_OVF_BVF
set %name Gems
}
if T6 in #menubutton
{
set %item POF
set %name Gold
}
if T7 in #menubutton
{
set %item MMF_LMF_OMF_NMF_YMF_XMF_ANF_DPF_YOF_XOF_APF_ZOF_KPF_JPF_QXL_PXL_AYL_ZXL_CYL_BYL_WXL_VXL_YXL_XXL_IYL_HYL_JYL_EYL_DYL_GYL_FYL_STL_RTL_UTL_TTL_NTL_PTL_CUL_BUL_XTL_HUL_KUL_DUL_GUL_FUL_PUL_SUL_MUL_OUL_NUL_YUL_UUL_TUL_BVL_EVL_DVL_OVL_NVL_QVL_CZM_BZM_EZM_DZM_YYM_XYM_AZM_ZYM_KZM_JZM_MZM_LZM_OTL_NXL_KYL_EUL_AUL_QUL_FVL_VTL_IUL_JUL
set %name Scrolls
}
if T8 in #menubutton
{
set %item UVH
set %name Notenblaetter
}
if T9 in #menubutton
{
set %item RVH
set %name Rezepte
}
if T10 in #menubutton
{
set %item XVH
set %name Karten
}
iteration:
finditem %item C_ , %from
if #findkind <> -1
{
exevent drag #findid #findstack
wait 5
exevent dropc %to
wait 5
set %stacks ( %stacks + 1 )
set %items ( %items + #findstack )
goto iteration
}
else
{
event ExMsg #charid 3 133 Finished - %stacks Stacks with %items %name transfered!
}
set #MenuButton N/A
return